открытие файла excel vba

[katrina-n]

oWbk.Close 0 'или 1 или True/False - это сохранить изменения/не сохранять изменения

не выходит

[katrina-n]

oWbk.Close 0 'или 1 или True/False - это сохранить изменения/не сохранять изменения

не выходит

[Hugo121]

Выходит:

Sub tt()
Set oWbk = Workbooks.Open("C:\temp\post_194409.xls")
MsgBox oWbk.Sheets(1).Name
oWbk.Close 0
End Sub

[katrina-n]

DoCmd.OpenQuery "Экспорт_Лома"
Dim oWbk As Workbook
Set oWbk = Workbooks.Open("C:\Users\Ека\Deskto p\Домашная база\бд.xls")
Application.OnTime Now + TimeValue("00:00:10"), "Оптимизация_шихты"

на OnTime возникает ошибка "compile error:method or data member not found"

[Hugo121]

Да, как-то не получается таким образом запустить макрос из открываемой книги. Но получилось скриптом vbs - может быть пригодится:

Dim objExcel

ActivateExcel

Set oWbk = objExcel.Workbooks.Open("C:\Users\Ека\Desktop\Домашная база\бд.xls")
oWbk.Application.OnTime Now + TimeValue("00:00:10"),  "Оптимизация_шихты"

Private Function ActivateExcel()
On Error resume next 
Set objExcel = GetObject(, "Excel.Application")
If objExcel Is Nothing Then
   Set objExcel = CreateObject("Excel.Application")
   objExcel.Visible = True 'false
End If
End Function

[katrina-n]

Спасибо,

Set oWbk = objExcel.Workbooks.Open("C:\Users\Ека\Desktop\Домашная база\бд.xls")
oWbk.Application.OnTime Now + TimeValue("00:00:10"),  "Оптимизация_шихты"

работает, но макрос некорректно работает(ошибка "некорректное использование....")

а вот закрыть файл так и не удается.