Question

vb中的datagrid里面的数据如何导出到excel表里面

Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetDim strFilename As String ''Excel文件Dim i As Integer, j As IntegerSet xlApp = CreateObject("Excel.Application") '创建EXCEL应用类xlApp.Visible = False '设置EXCEL不可见Set xlBook = xlApp.Workbooks.Open(strFilename)'打开EXCEL工作簿Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表xlSheet.Activate '激活工作表xlBook.RunAutoMacros (xlAutoOpen) ''运行EXCEL中的启动宏''写入数据到ExcelFor i = 1 To 100For j = 1 To 100xlSheet.Cells(i, j) = "i=" & CStr(i) & ";j=" & CStr(j)NextNext '大功告成，关闭对象以及
退出xlBook.Save '''保存关闭文档xlBook.RunAutoMacros (xlAutoClose) '关闭宏xlBook.Close (True) '关闭EXCEL工作簿xlApp.Quit '关闭EXCEL

这段代码对不对啊，我运行Set xlBook = xlApp.Workbooks.Open(strFilename)'打开EXCEL工作簿这句话总是错，谁能给个正确的啊。大侠。

Answer 1

那是你没有指定xls文件的输出地址吧
你换成 Set xlBook = xlApp.Workbooks.Add