高手帮忙：从access中取出数据插入到excel中 结果总是不能差到正确的位置上 大家帮忙

Question

OutSQL = ""
 OutSQL = "insert into [Excel 8.0;Database=C:\MHT\EXPORT\マスタ取込シート.xls].[部門マスタ$](部門コード,部門名, TABファイル名) SELECT DepartMentCD,DepartMentName,TableName  FROM  MST_DepartMent"
conn.Execute (OutSQL)
请问如何定位从第二行  第一列开始插入阿

Answer 1

首先:在菜单"工程"的"引用"中添加EXCEL引用;
Public myexcel As New Excel.Application
Public mybook As New Excel.Workbook
Public mysheet As New Excel.WorksheetPublic Sub OpenExcel()
  Set myexcel = CreateObject("Excel.Application")
  Set mybook = myexcel.Workbooks.Add
  Set mysheet = mybook.Worksheets(1)
End SubPublic Sub CloseExcel()
Set myexcel = Nothing
End Sub'-----------------------------------------------
Public cn As New ADODB.Connection
Public rs As New ADODB.RecordsetPublic Sub OpenConn()
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Jet OLEDB:Database Password=;Persist Security Info=False;"
    
End Sub'关闭数据库连接
Public Sub CloseConn()
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub'-----------------------------------------------------------Private Sub to_excel()
k = 0Call OpenConn
   
   'SQL = "select * from 供应商表单 ORDER BY 表单ID"
   
   SQL = "select 表单ID,日期,供应商名称,采购员,是否有票客户,发票号码,货款, 付款,补单,备注 from 供应商表单 where 帐套连接ID='" & AccID & "'"
   
 rs.Open SQL, cn, 1, 1
   If rs.RecordCount <= 0 Then
     MsgBox "没有可以导出的记录！", 48, "错误提示"
     Exit Sub
   Else
   Call OpenExcel
   '添加excel列头~~~~~~~~~~~~~~~~~~~~~~~
   mysheet.Cells(1, 1) = ImageCombo1.SelectedItem.Text
   mysheet.Cells(2, 1) = "表单ID"
   mysheet.Cells(2, 2) = "日期"
   mysheet.Cells(2, 3) = "供应商名称"
   mysheet.Cells(2, 4) = "采购员"
   mysheet.Cells(2, 5) = "是否有票客户"
   mysheet.Cells(2, 6) = "发票号码"
   mysheet.Cells(2, 7) = "应付货款"
   mysheet.Cells(2, 8) = "已付货款"
   mysheet.Cells(2, 9) = "补单"
   mysheet.Cells(2, 10) = "备注"
   
   
   j = 3
  
  Do While Not rs.EOF
  
     For i = 0 To rs.Fields.Count - 1
       mysheet.Cells(j, i + 1) = rs.Fields(i).Value
     Next i
    j = j + 1
    rs.MoveNext
     k = k + 1
  Loop
   End If
 
 
 mysheet.Cells(j, 7) = "HAHAHAH得！"
 
 
 Frame1.Visible = False
 ProgressBar1.Value = 0
 myexcel.Visible = True
 
 Call CloseConn
 Call CloseExcel
 
End Sub

Answer 2

或简单测试首先:在菜单"工程"的"引用"中添加EXCEL引用;'增加到模块
Public myexcel As New Excel.Application
Public mybook As New Excel.Workbook
Public mysheet As New Excel.WorksheetPublic Sub OpenExcel()
  Set myexcel = CreateObject("Excel.Application")
  Set mybook = myexcel.Workbooks.Add
  Set mysheet = mybook.Worksheets(1)
End SubPublic Sub CloseExcel()
Set myexcel = Nothing
End Sub--------------------------------------------------------------
Private Sub Command1_Click()   Call OpenExcel
   '添加excel列头~~~~~~~~~~~~~~~~~~~~~~~
   mysheet.Cells(1, 1) = "Hello"   
   mysheet.Cells(2, 1) = "AAAAAA"
   mysheet.Cells(2, 2) = "BBBBBB"
   mysheet.Cells(2, 3) = "CCCCCC"
   mysheet.Cells(2, 4) = "DDDDDD"
   mysheet.Cells(2, 5) = "EEEEEE"
   mysheet.Cells(2, 6) = "FFFFFF"
   mysheet.Cells(2, 7) = "GGGGGG"
   mysheet.Cells(2, 8) = "HHHHHH"
   mysheet.Cells(2, 9) = "IIIIII"
   mysheet.Cells(2, 10) = "JJJJJJ" myexcel.Visible = True
 
 Call CloseExcel