50分求助EXECL导表问题!高手请进！～

Question

我要往局域网内其他机器上的一个EXECL表导数据!我往自己机器EXECL表导数据的程序这样的!If Dir(App.Path & "\Temp\excel.bz") = "" Then '判断EXCEL是否打开
    Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
    xlApp.Visible = True '设置EXCEL可见
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\temp\canshu.xls") '打开EXCEL工作簿
    Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
     '激活工作表
 
    xlsheet.Activate '激活工作表
xlsheet.cells(1,1)="dd"
    xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL中的启动宏   Else
    MsgBox ("EXCEL已打开")
  End If
请问怎么改这个程序!谢谢!

Answer 1

vba导表，有必要CreateObject("Excel.Application")吗？？
这是vb的代码吧

Answer 2

用ADO把EXCEL作为数据库来连,连上再写数据

Answer 3

看看这个例子：
 Sub AppendDataToExcel()
       Dim Conn   As New ADODB.Connection
       Dim ConnA  As New ADODB.Connection
       Dim Rst    As New ADODB.Recordset
       Dim RstA   As New ADODB.Recordset
       Dim DbPath As String
       On Error GoTo 11
       DbPath = "provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0;HDR=YES';data source=" & ThisWorkbook.FullName
       Conn.Open DbPath
       Set RstA = Conn.Execute("SELECT * FROM [Sheet2$]")
  
       DbPath = "provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0;HDR=YES';data source=" & ThisWorkbook.Path & "\b.xls"
       ConnA.Open DbPath
       Rst.Open "select * from [sheet2$]", ConnA, 1, 3       Do While Not RstA.EOF
          Rst.AddNew
          For I = 0 To Rst.Fields.Count - 1
              Rst.Fields(I).Value = RstA.Fields(I).Value
          Next
          Rst.Update
          Rst.MoveNext
          RstA.MoveNext
       Loop
       MsgBox "鬼子已經進村了!"
       Exit Sub
   11:
      MsgBox "八路的有!"
      MsgBox Err.Description
   End Sub