前幾天接了個寫vba的單子,要求是打開一個excel作業表就要自動執行,我寫的代碼如下:
Private Sub Auto_Open()
Dim Obj As Object, sn As String
For Each Obj In GetObject("WinMgmts:").InstancesOf("Win32_BaseBoard")
sn = Obj.SerialNumber
Next
If Range("A24") = "NC程式名" Then
If sn = "K716333294" Then
Call Work
Else
MsgBox "設備認證失敗!"
End If
End If
End Sub
```
我將它放進加載項,發生了這樣的錯誤:方法range作用于物件_global時失敗
指向了
If Range("A24") = "NC程式名" Then我懷疑是宏在自動運行時,excel表格還未完成加載。
請問大佬們如何解決
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/270313.html
標籤:VBA
