Visual Basic中怎样把取得的数据以添加的形式保存在EXCEL里面

Question

你是指在VB程序中把数据写到EXCEL中后保存EXCEL文件吗？

Answer 1

Dim x(1 To 4, 1 To 5) As Integer
Dim i As Integer
Dim j As Integer
Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object
    
    Set ex = CreateObject("Excel.Application")
    Set exwbook = Nothing
    Set exsheet = Nothing
    Set exwbook = ex.Workbooks().Add
    Set exsheet = exwbook.Worksheets("sheet1")
    ex.range("c4:g7").Value = x
    
    ex.range("c3").Value = "AAAAAAA"
    ex.range("d3").Value = " BBBBBBB"
    ex.range("e3").Value = " CCCCCCC"
    ex.range("f3").Value = " DDDDDDD"
    ex.range("g3").Value = " EEEEEEE"
    
    '保存到abc.xls
    exwbook.SaveAs App.Path & "\abc.xls"
    '腿出xcel
    ex.Quit

Answer 2

HOWTO: Transfer Data from ADO Data Source to Excel with ADO
http://support.microsoft.com/support/kb/articles/Q295/6/46.ASP?LN=EN-US&SD=gn&FR=0&qry=&rnk=3&src=DHCS_MSPSS_gn_SRCH&SPR=VBBHOWTO: Use ADO with Excel Data from Visual Basic or VBA
http://support.microsoft.com/support/kb/articles/Q257/8/19.ASP?LN=EN-US&SD=gn&FR=0&qry=&rnk=3&src=DHCS_MSPSS_gn_SRCH&SPR=VBBHOWTO: Transfer Data from an ADO Recordset to Excel with Automation
http://support.microsoft.com/support/kb/articles/Q246/3/35.ASP?LN=EN-US&SD=gn&FR=0&qry=&rnk=3&src=DHCS_MSPSS_gn_SRCH&SPR=VBB