Как создать новую электронную таблицу Excel из VB6

Question

Я пытаюсь создать электронную таблицу Excel из приложения VB6, таким образом ...

Set xl = New Excel.application
Set xlwbook = xl.Workbooks.Open(file_name)
Set xlsheet = xlwbook.Sheets.Item(1)

, затем

xlsheet.Cells(1, 1) = "Blah blah blah"

и т. Д.

Я специально хочу создавать новый файл каждый раз, когда выполняется эта операция.В настоящий момент он возвращает ошибку "файл не найден".

Я хотел бы знать, является ли это правильным подходом, и если да, то как я могу запросить создание нового файла методом .Open (или любой другой метод, который мне следует использовать).

Answer 1

OPEN подразумевает существующий лист, который вы пытаетесь открыть.

Вы должны создать новый лист.

Попробуйте это

Set xl = New Excel.application
Set xlwbook = xl.Workbooks.Add
Set xlsheet = xlwbook.Sheets.Item(1)

Это создастнесохраненный лист.Как только вы закончите со всей работой, вы должны сохранить ее.

xl.ActiveWorkBook.Save ("c:\myfilename.xls")