如何用vb将数据导出到已设置好格式的excel表格

Question

先引用microsoft excel *.0 ....，定义一个数组保存你的数据
Dim appexl As Excel.Application,i as integer,j as integer
Set appexl = New Excel.Application
appexl.Workbooks.Open xlsfilePATH, 1, 0, , , , 1, , , 1, 0
appexl.AlertBeforeOverwriting = False  '自动保存
appexl.Sheets(2).Cells(i, j)=YOUdata   '将你的数据写入excel
....
appexl.workbooks.close
appexl.quit

Answer 1

appexl.Workbooks.Open xlsfilePATH
就可以打开你原来已设计好的文件嘛，怎么会重建？

Answer 2

Dim conn As New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=C:\Book1.xls;Extended Properties=Excel 8.0;"
   conn.Execute "Insert into MyTable (FirstName, LastName)" & _
      " values ('Bill', 'Brown')"
   conn.Execute "Insert into MyTable (FirstName, LastName)" & _
      " values ('Joe', 'Thomas')"
   conn.Close

Answer 3

excel的格式已经设定好的情况下不需要自动化的对象，直接用数据库引擎。
另一例：
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & .FileName & ";" & _
           "Extended Properties=""Excel 8.0;"""strSQL = "insert into [" & sSheetName & "$] Select * FROM [;database=" & sAccessDBPath & "]." & sAccessTable
cnn.Execute strSQL

Answer 4

excel的格式已经设定好的情况下不需要自动化的对象，直接用数据库引擎。
另一例：
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & .FileName & ";" & _
           "Extended Properties=""Excel 8.0;"""strSQL = "insert into [" & sSheetName & "$] Select * FROM [;database=" & sAccessDBPath & "]." & sAccessTable
cnn.Execute strSQL

Answer 5

連接上excel好象要用
Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="Driver={Microsoft Excel Driver (*.xls)};DBQ=c:\book1.XLS"
但連接上後要怎樣才能將數據導入指的單元格中
例如：
在窗體中有一個text1
要才樣才能將TEXT1中的數據導入EXCEL中的B3單元格中，
而不改變其它單元格裡的數據

Answer 6

1 Jet引擎就可以非常好地处理excel。因为excel是jet引擎的“内部数据库”。2 以上方法都是基于excel首行已经填入表头（字段名），而且你的数据在一个Access数据表中。3 你现在的问题完全是另外一回事了。
       Dim oExcelApp As Object       ' Create a reference to the currently running excel application
       Set oExcelApp = GetObject(, "Excel.application")
       ' Make the Excel Application Visible.
       oExcelApp.Visible = True
       ' Fill Excel Cell
       oExcelApp.Sheets(2).Cells(B,3) = Text1   

Answer 7

一句题外话：这种填充Excel单元格的操作一般不叫做“导出数据”。

Answer 8

不行
Set oExcelApp = GetObject(, "Excel.application")
这里有错