VB 如何生成EXCEL表格？谢谢了-vb导出excel报表,vb导出到excel的方法

录入后直接复制粘贴到WORD中，也是表格的。
或者在WORD中插入EXCEL表格也是可以的。双击插入的表格后就是EXCEL的操作

Private Sub Command2_Click()
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook

Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Add()
objExcel.Visible = True

'设置活动工作表
Dim objSheet As Excel.Worksheet
Set objSheet = objExcel.Worksheets("sheet1")
objSheet.Cells(1, 1) = "mather" '对单元格赋值
objWorkBook.SaveAs "D:\aa.xls" '保存
objWorkBook.Close
objExcel.Quit
Set objSheet = Nothing
Set objWorkBook = Nothing
Set objExcel = Nothing
End Sub

补充： 在“工程e799bee5baa6e58685e5aeb9336”-引用 -中要选择 Microsoft Excel 11.0【或其他数值】 Object Library

写入Excel参考以下代码：

Option Explicit
    Dim xlapp As Object
    Dim xlBook As Object
    Dim xlSheet As Object
    Dim A As String
    Dim B As String
    Dim C As String
    Dim D As String
    Dim sj(3, 5) As Integer
Private Sub Command1_Click()
    Set xlapp = CreateObject("excel.application")
    xlapp.Visible = True
    Set xlBook = xlapp.Workbooks.Add
    Set xlSheet = xlBook.worksheets(1)
    A = "vb操作e799bee5baa6e997aee7ad94e4b893e5b19e366excel"
    xlSheet.Cells(1, 1) = A
    B = xlSheet.Cells(1, 2) ' = B
    C = xlSheet.Cells(1, 3) ' = C
    D = xlSheet.Cells(1, 3) ' = D
    xlSheet.Cells(8, 1) = xlSheet.Cells(1, 1) + xlSheet.Cells(2, 1) + xlSheet.Cells(3, 1)
End Sub

你需要点工程菜单，然后选用引用，找到Microsoft Excel 12.0 Object Library，然后选中引用即可
中间的12.0是版本号，可能由于你的电脑装的Excel版本不一样而不一样