Скрипт не сохраняет Excel файл

[Schalk]

Всем привет!

написал следующий скрипт в Тиа Портал 15

"Sub WriteToExcel()

Dim a

Set a = CreateObject ("Excel.Application")

a.Visible = True

a.Workbooks.Open "E:\TIA_To_Excel\Test_Excel_File.xls"


a.cells(1,1).Value = SmartTags("Temperature")
a.cells(1,2).Value = SmartTags("Pressure")



a.Workbook.SaveAs "E:\TIA_To_Excel\Test_Excel_File.xls"
a.Workbooks.Close
a.Quit

Set a = Nothing

End Sub"

Файл открывает, значения в ячейки пишет, дальше должен файл сохранить и закрыть, но у меня файл не сохраняется и закрытия не происходит. В чем может быть проблема? компилятор ошибок не выдает

[AppCreator]

В чем может быть проблема?

Либо так:
a.ActiveWorkbook.SaveAs "E:\TIA_To_Excel\Test_Excel_File.xls"
a.ActiveWorkbook.Close
a.Quit
Set a = Nothing
Либо так (в Вашем примере используется то же самое имя):
a.ActiveWorkbook.Save
a.ActiveWorkbook.Close
a.Quit
Set a = Nothing

А в целом лучше через явный референс на книгу сделать:
Set a = CreateObject("Excel.Application")

a.Visible = True

Set b = a.Workbooks.Open("E:\TIA_To_Excel\Test_Excel_File.xls")

b.Worksheets(1).Cells(1, 1).Value = SmartTags("Temperature")
b.Worksheets(1).Cells(1, 2).Value = SmartTags("Pressure")

b.SaveAs "E:\TIA_To_Excel\Test_Excel_File.xls"
'либо b.Save
b.Close
a.Quit

Set a = Nothing

[I_m]

В чем может быть проблема?

Вы работаете через объект Application, а у него нет свойства Workbook, есть только Workbooks

a.Workbook.SaveAs "E:\TIA_To_Excel\Test_Excel_File.xls"

т.ч., думаю, достаточно будет эту строчку переписать как

a.ActiveWorkbook.SaveAs "E:\TIA_To_Excel\Test_Excel_File.xls"

Поторопился. Это

a.Workbooks.Close

вообще убрать. Workbooks - это коллекция, нет у неё Close.

Достаточно Quit у Application

[Schalk]

вообще убрать. Workbooks - это коллекция, нет у неё Close.

вот это помогло) все сохраняется и закрывается теперь) делал по видео с ютуба изначально) Бэйсик не знаю совсем) Спасибо) буду дальше ковырять тему)