Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите переделать VBA в VBS / 13 сообщений из 13, страница 1 из 1
11.07.2012, 13:46
    #37874851
klicken
klicken
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
Sub test()

Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
With Application
.UseSystemSeparators = True
End With
Dim LastCell As Range: Set LastCell = Range("B65536").End(xlUp).Offset(1)
LastCell.FormulaR1C1 = "=SUM(R1C:R[-1]C)"
LastCell.AutoFill LastCell.Resize(, 2)
LastCell.EntireRow.Cells(1) = "Èòîã:"


End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2012, 13:51
    #37874861
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
Это приказ?
И чему помогать? Попыток автора и вопросов по теме не наблюдается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2012, 13:59
    #37874877
klicken
klicken
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
Shocker.Pro,

это просьба

<Script language="VBscript">
Function summ
Application.UseSystemSeparators = True
Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Summa As Range: Set Summa = Range("B65536").End(xlUp).Offset(1)
Summa.FormulaR1C1 = "=SUM(R1C:R[-1]C)"
Summa.EntireRow.Cells(1) = "Итог:"
end Function
</Script>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2012, 14:17
    #37874915
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
1) То есть все, что вы сделали - написали тэги вокруг кода.
2) если речь идет об html? может лучше сюда? HTML, JavaScript, VBScript, CSS
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2012, 14:25
    #37874942
klicken
klicken
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
Shocker.Pro,

спасибо за совет.
если бы я знал как переделать, то я бы не обратился за помощью!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2012, 14:28
    #37874950
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
Ну для начала надо наверное понять, что приведенный фрагмент программы выполняется в контексте какой-то книги. Если вы пишете отдельный скрипт, наверное надо как-то открыть эксель, открыть определенную книгу, подключиться к ней и т.п., а потом уже работать с ячейками? нет? все это надо за вас подумать?

ЗЫ: я точно не знаю, а позволит ли html-vbscript в принципе делать подобные небезопасные действия.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2012, 14:31
    #37874956
klicken
klicken
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
Shocker.Pro,

<script language="javascript">
function test() {

var xls = new ActiveXObject ( 'Excel.Application' );
xls.visible = true;
var newBook = xls.Workbooks.Add;
var oSheet = newBook.ActiveSheet;
newBook.Worksheets.Add;
newBook.Worksheets(1).Activate;
newBook.Worksheets(1).Cells(1,2).value='1.25';
newBook.Worksheets(1).Cells(2,2).value='2.1';
newBook.Worksheets(1).Cells(1,3).value='1';
newBook.Worksheets(1).Cells(2,3).value='10';
newBook.Worksheets(1).Name='WorkSheet from Javascript';

}
</script>
</head>
<body>
<input type='button' value='Excel' onClick="test()">
</body>
</html>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2012, 14:34
    #37874965
klicken
klicken
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
Shocker.Pro,

у меня не возникает проблем с открытием Excel и созданием книги.

Я подключил готовую книгу с этим макросом, но в связи с тем что у удаленного пользователя мог возникнуть проблемы с этим, мне пришлось думать как бы этот макрос переделать в VBS....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2012, 14:36
    #37874966
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
это будет только локально работать (скорее всего в HTC) и при условии ,что страничка не на webserver расположена. + куча ограничений по безопасности (требуются настройки)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2012, 14:39
    #37874971
klicken
klicken
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
Konst_One,

Мне как раз для локального пользования это тербуется.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2012, 14:40
    #37874974
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
смысл такого чуда локально не понятен. чеп не устраивает обычный vbs?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2012, 14:41
    #37874975
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
*чем
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.07.2012, 14:42
    #37874980
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите переделать VBA в VBS
1) Application - это xls
2) К Cells необходимо указывать полный путь через книгу, как в приведенном примере
3) Необходимо убрать именованные параметры из Replace
4) необходимо объявить константы (xlUP)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите переделать VBA в VBS / 13 сообщений из 13, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 170ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2157602]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 41ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 16ms
total:  170ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]