창

Question

사람은 말해 줄 수 왜 코드 :

Set wshNetwork = WScript.CreateObject("WScript.Network") 

strcomputerName = wshNetwork.ComputerName 

MsgBox strcomputerName 

Pcname = Mywb.Cells(4, 3).Value 

If strcomputerName = Pcname Then 

MsgBox "Hi Vivek!!" 

End If 

VBS 파일에서 작동하지만 그것이 VB 편집기에서 코드로 넣을 때 나는 런타임 시간 오류 424 얻을 - 개체 필수? 어떤 라이브러리를 참조해야합니까? 내가 참조 라이브러리 아래 추가 시도 MS 엑셀 2010 사용하고 있습니다 :

MS 스크립팅 런타임 MS 스크립트 제어 및 Windows 스크립트 호스트 개체 모델을 다음의 아무도 나를 위해 제대로 작동하지 않습니다. > 참조 - -

Answer 1

늦은 개체 변수를

도구를 사용하여 엑셀 2010 바인딩> 마이크로 소프트 14.0 개체 라이브러리

Dim strComputerName As String 
Dim objWS As Object 

Set objWS = CreateObject("Wscript.Network") 
strComputerName = objWS.ComputerName 
MsgBox strComputerName 

Set objWS = Nothing