Visual Basic如何动态调用EXCEL表格

Question

拉一个ole控件，把class设置为excel，应该没问题的。

Answer 1

你是想控件EXCEL，还是想读取EXCEL的数据文件啊？说清楚大家才可以帮你啊！

Answer 2

可以使用DDE，与EXCEL建立自动式连接，
example:
Private Sub Form_Load()
text1.LinkMode=vbLinkNone
text1.LinkTopic="Execl and Money.xls"
text1.LinkItem="R1C1"
text1.LinkMode=vbLinkAutomatic
End Sub

Answer 3

    Set db = OpenDatabase(“filename”, False, False, "Excel 8.0;HDR=YES;")
Set rs = db.OpenRecordset(“sheet1”&”$”,dbopentable)'rs是记录集变量
'JET引擎访问EXCEL有一些限制
'1.不能删除行
'2.不能创建索引
‘3.不能删除或修改包含公式的单元
‘4.不能读取加密的文件，即使有正确的passwd

Answer 4

1.首先在工程中引用Microsoft Excel8.0 Object
2.如果是调用运行中的Excel则使用GetObject,否则使用CreateObject,可以参照下面的例程:
Global MyExcel As Excel.Application
Global Book As Excel.Workbook
Global MySheet As Excel.WorksheetOn 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)

Answer 5

以上的DDE和VBA的方法都很好。
但是我这有一个控件“Formula One 6”是Z版，有序列号.
支持Excel5、Excel7、8、Text...
可以单独开发...
3月8日发布