1.首先在工程中引用Microsoft Excel8.0 Object
2.如果是调用运行中的Excel则使用GetObject,否则使用CreateObject,可以参照下面的例程:
Global MyExcel As Excel.Application
Global Book As Excel.Workbook
Global MySheet As Excel.Worksheet
On Error Resume Next
Set MyExcel = GetObject(, "Excel.Application.8")
If Err Then
On Error GoTo 2
Set MyExcel = CreateObject("Excel.Application.8")
NewXls = True
End If
Set Book = MyExcel.Workbooks.Open(App.Path + "\report\test.xls")
Set MySheet=book.sheets(0)
可以使用DDE,与EXCEL建立自动式连接,
example:
Private Sub Form_Load()
text1.LinkMode=vbLinkNone
text1.LinkTopic="Execl and Money.xls"
text1.LinkItem="R1C1"
text1.LinkMode=vbLinkAutomatic
End Sub