在vb中參考了microsoft excel 12.0 object library.
但運行時顯示實時錯誤430：類不支持自動化或不支持期望的介面。
程式如下：
Private Sub Command1_Click()
Dim ExApp As New Excel.Application
Dim Exb As Excel.Workbook
Dim Exsh As Excel.Worksheet
Dim arr(2, 100) As Integer
ExApp.Workbooks.Open "d:/shiyan.xls"
Dim Partname As Integer
For i = 1 To 2
For j = 1 To 100
arr(i, j) = Exsh.Cells(i, j)
Next j
Next i
For k = 1 To 100
If (arr(1, k) = Text2.Text) Then
Partname = k
End If
Next k
Exsh.Cells(2, k) = Text3.Text
ExApp.Workbooks.Close
ExApp.Quit
Set ExApp = Nothing
End Sub
提示錯誤行在ExApp.Workbooks.Open "d:/shiyan.xls"
uj5u.com熱心網友回復：
按上Microsoft Data Access Components(MDAC)uj5u.com熱心網友回復：
d:/shiyan.xls 你的格式改成 d:\shiyan.xls轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/33373.html
標籤：VB基礎類
下一篇：求解vb題要被折磨死了