用VB创建EXCEL表

Question

各位大虾帮帮忙
我想做一个小程序用VB创建EXCEL表
并保存具体的路径及文件名、文件内容，并在不打开EXCEL的情况下完成
希望各位大虾帮帮帮忙   尽量简单些   我是个菜鸟  多了可能会看不懂

Answer 1

'以下代码仅供参考
Option ExplicitPrivate Sub Command1_Click()
        Dim xlsApp As Excel.Application
        Dim xlsDataBook As Excel.Workbook
        Dim xlsDataSheetD As Excel.Worksheet
        Set xlsApp = New Excel.Application
        Set xlsDataBook = xlsApp.Workbooks.Open(txtDataSheet.Text)
        Set xlsDataSheetD = xlsDataBook.Sheets("ABC")
        xlsDataBook.Sheets("ABC").Select '打开book1中指定的ABC表
         xlsApp.Visible = false
        '///////////////////////////////////////////////////////////////
        xlsDataSheetD.Activate
        '这个地方自己改，要有写ABC表的办法，因为没有显示Excel表，你是在暗地里写ABC表        
        'xlsDataSheetD.Range(Cells(3, 1), Cells(3, 3)).Copy
        xlsDataBook.Save
        '//////////////////////////////////////////////////////////////////
        xlsDataBook.Close
        Set xlsDataSheetD = Nothing
        Set xlsDataBook = Nothing
        xlsApp.Quit
        Set xlsApp = Nothing
End Sub

Answer 2

补上语句：需要这么操作菜单：“工程”--》“引用”--》加上“Microsoft Excel 11.0 Object Library”！“11”是表示2003，如果你的机器装的是Office 2000 那么可能是“Microsoft Excel 9.0 Object Library”