首先在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同,所以这个选项的版本号也是不同的。
Private Sub cmdExp_Click()
Dim newxls As Excel.Application
Dim newbook As Excel.Workbook
Dim newsheet As Excel.Worksheet
Dim i, j As Long
Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel
Set newbook = newxls.Workbooks.Add '创建工作簿
Set newsheet = newbook.Worksheets(1) '创建工作表
With newxls
.Rows(1).Font.Bold = True
End With
On Error Resume Next '如果有错误继续执行下一条
For i = 0 To grid.Rows
For j = 0 To grid.Cols
newsheet.Cells(i + 1, j + 1) = "'" & grid.TextMatrix(i, j)
Next j
Next i
newxls.Visible = True
newxls.ActiveWorkbook.SaveAs ("c:\22.xls")
On Error GoTo 0
Set newxls = Nothing
End Sub