如何在VB6中创建新的Excel电子表格

Question

我正在尝试从VB6应用程序中创建Excel电子表格，因此......

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")