Question

请教如何用VB将数据库中的某部分内容导入到excel中

我想将其中的的那个部分导入到excle中，但是错误了
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Dim sql As String

Dim xlsheet As Excel.Worksheet
Dim xlapp As Excel.Application

Private Sub Command1_Click()
Dim i, h As Integer

Set xlapp = New Excel.Application
Set xlapp = CreateObject("excel.application")
xlapp.Visible = True
Set xlbook = xlapp.Workbooks.Add
Set xlsheet = xlbook.Worksheets(1)
For i = 1 To rs.Fields.Count
xlsheet.Cells(1, i) = rs(i - 1).Name
Next i
h = 2
Do While rs.EOF = False
For i = 1 To rs.Fields.Count
xlsheet.Cells(h, i) = rs(i - 1)
Next
rs.MoveNext
h = h + 1
Loop
xlbook.SaveAs (App.Path & "\excel\ss.xls")

End Sub

Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\data\data1.mdb"
conn.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient

sql = "select year(事故日期),count(*) as 事故数目 from 事故信息 group by 事故日期"
MSChart1.TitleText = "按【事故发生年份】统计分析"
MSChart1.ColumnLabel = "合计事故数目(次)"

rs.Open sql, conn, 1, 1
MSChart1.RowCount = rs.RecordCount
For i = 1 To rs.RecordCount
MSChart1.Row = i
MSChart1.Data = rs.Fields(1)
MSChart1.RowLabel = rs.Fields(0)
rs.MoveNext
Next i
End Sub

Answer 1

Set Excelapp = CreateObject("excel.Application")
Set Excelwb=Excelapp.Workbooks.Open("E:\new_excelfile.xls")
excelapp.worksheets.ITEM(1).cells(1,1).value=data_1

在E盘新建个文件：new_excelfile.xls,定义data_1并赋值，上面这几句可以把数据data_1注入到EXCEL 文件的第一个SHEET的第（1，1）位置

另：可以到CSND下载个EXCEL API看看，一学你就都会了