VB打开EXCL的方法.docVIP

VB打开EXCEL的方法一楼的没有指明Dim xlBook As Excel.WorkBookSet xlBook = App.Workbooks.Open(文件名) 这种语法同样要求excel已经存在才能操作。 Public xlApp As Excel.ApplicationPublic xlBook As Excel.WorkbookPublic xlChar As New Excel.ChartPublic xlSheet As New Excel.Worksheet Set xlApp = New Excel.ApplicationSet xlApp = CreateObject(Excel.Application)Set xlBook = xlApp.Workbooks.AddSet xlSheet = xlBook.Worksheets.AddxlSheet.Cells(1, 1) = 测试 写入内容xlBook.SaveAs (FILENAME) 保存文件xlApp.QuitSet xlApp = Nothing 本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文件。但是如果文件已经存在，则会弹出是否覆盖的提示。因此，最好先在程序中检查文件是否已经存在，如