Oki2, добавлю про #2, если вдруг Вы не поняли:
* находясь в редакторе Visual Basic for Application Вы нажимате F1;
* в окне Справка Visual Basic, прямо в Оглавлении, Вы нажимаете ссылку «Microsoft Excel Visual Basic Reference», затем «Microsoft Excel Object Model».Если и это не помогло — выполните:
hh.exe mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1049\vbaxl10.chm::/html/xltocOMMap.htmВсё вышеизложенное справедливо для Microsoft Office 2003.
Исчерпывающе. Спасибо!
]]>Если и это не помогло — выполните:
hh.exe mk:@MSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\1049\vbaxl10.chm::/html/xltocOMMap.htmВсё вышеизложенное справедливо для Microsoft Office 2003.
]]>
]]>... Это официальный термин?..
Нет.
]]>…символические псевдонимы объектной модели приложения
Это официальный термин? Поскольку раза два-три на моей памяти подобные вопросы задавались — я хочу поместить в Коллекцию краткое пояснение про разницу в программном коде VBScript и VBA, дабы можно было затем на эту статью ссылаться.
]]>Насколько я понял это кусок макроса...
Да.
... После вставки приведенного кода в мой уже HTA...
В вопросе не было сказано ни слова об использовании HTA или чего-то подобного. Цитирую: "Как в книге Excel создать новый лист копированием другого листа в этой книге"?
В таких случаях обычно говорят: "Телепаты ушли на другой форум".
... скрипт выдает ошибку...
1. В сценариях нельзя использовать символические псевдонимы объектной модели приложения (в данном случае это выражение After:=). Нельзя также использовать и произвольный порядок задания необязательных параметров.
2. Пример корректного кода сценария:
Set objExcel = CreateObject("Excel.Application")
'objExcel.Visible = True
Set objWB = objExcel.WorkBooks.Open(srtPath4)
objWB.WorkSheets(1).Copy ,objWB.Worksheets(objWB.Worksheets.Count)
objWB.Worksheets(objWB.Worksheets.Count).Name = "Новый_лист" set ExcelApp = CreateObject("Excel.Application")
set Excel = ExcelApp.WorkBooks.Open(srtPath4)
set Excel = ExcelApp.ActiveWorkBook.WorkSheets(1)
Worksheets(WorkSheets(1)).Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = "new"... Как в книге Excel создать новый лист копированием другого листа в этой книге?..
Например, так:
Worksheets("Лист1").Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = "Новый_лист"... где взять описание api excel?..
Если под "api excel" подразумевается объектная модель Excel, то в справке по VBA для этого приложения, разумеется.
]]>