如何在VB6中创build一个新的Excel电子表格

我试图从VB6应用程序内创build一个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" 

等等。

我特别希望每次执行此操作时都创build一个新文件。 此刻它返回一个文件未find错误。

我想知道这是否是正确的方法，如果是这样，我可以如何请求由.Open方法（或任何我应该使用的方法）创build一个新的文件。

Answer 1

OPEN意味着您正在尝试打开的现有工作表。

你应该创build一个新的工作表。

尝试这个

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

这将创build一个未保存的表单。 一旦你完成了所有的工作，你必须保存它。

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