| |
|
|
| | Добрый день!
Как-то писал такой скрипт в отношении ворда:
Set oApp = CreateObject("Word.Application")
File_Name = Form_Setup.CurPath & "000.doc"
oApp.Documents.Open (File_Name)
Теперь надо тоже самое с экселем сделать, но в таком виде:
Set oApp = CreateObject("Excel.Application")
File_Name = Form_Setup.CurPath & "000.doc"
oApp.Documents.Open (File_Name)
скрипт не работает.
Пробовал получить доступ к листу через OLE и Spreadsheets. Тоже не получилось...
Офис 2000 или 2003 стоит (не помню... На работе....)
Помогите, плз, голова уже болит...
С уважением, Алексей
Alexey1_173@mail.ru | |
| |
| |
| |
|
|
| | 1. а открываете по прежнему док-т winword? 
Set oApp = CreateObject("Excel.Application")
File_Name = Form_Setup.CurPath & "000.doc"
oApp.Documents.Open (File_Name)
|
2. наберите в Гугле строку CreateObject("Excel.Application")
и будет вам счастье | |
| |
| |
| |
|
|
| | можно так
...
Dim xlApp As Object
On Error GoTo L_Err
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False 'True
With xlApp
.Workbooks.Open App.Path & "\Templates\OrderList.xlt"
...
|
| |
| |
| |
