ActiveX 部件不能創建物件
Dim X, Y
Set X = CreateObject("Excel.Application.Range")
Set Y = CreateObject("Excel.Application.Range")
If 關卡.登場1.Caption = Level.Cells(X, 1) Then
X = ActiveCell.Row
End If
If 關卡.ChapterLabel = Level.Cells(1, Y) Then
Y = ActiveCell.Column
End If
我F2看了下Excel.Application.Range所參考的DAO3.6我已經加載了啊>.<
uj5u.com熱心網友回復：
excel/office有沒有安裝，是不是完整版的uj5u.com熱心網友回復：
沒有這樣的物件Excel.Application.Range都是這么用的Excel.Application
uj5u.com熱心網友回復：
在Excel中開始記錄宏，手動完成所需功能，結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/54323.html
標籤：VB基礎類
上一篇：VS2010里的VB如何撰寫在彈出對話框里自動點確定？
下一篇：VBA新手運行時提示溢位怎么修改