VBA 기능은 내가 엑셀 ​​파일을 열려면 VBA 기능 아래에있는 엑셀

Question

엽니 다 :

Function copie_sd() 

nom_fichier = Workbooks.Open(Filename:="C:\SD\copie_sd.xls") 
If nom_fichier = False Then 
    Range("A1").Select 
    copie_sd = "ERREUR" 
    Exit Function 
End If 

copie_sd = nom_fichier 

End Function 

을하지만 오류 : 런타임 오류 '438'개체가이 속성 또는 메서드를 지원하지 않습니다.

Answer 1

저는 Dim 변수를 이렇게 변경할 수 있다고 생각합니다. 이 http://msdn.microsoft.com/en-us/library/office/aa188204(v=office.10).aspx

Answer 2

하면 도움이 될

Dim nom_fichier as workbook 

그 다음은

set nom_fichier = workbooks.open 

또한 다음 줄이 개체 변수

if nom_fichier = false then 

작동하지 않을 설정 set를 사용 너 대구를 걷다. e, Workbooks.Open()은 부울 변수를 반환하지 않고 Excel.Workbook 개체에 대한 참조를 반환합니다.

당신의 문이 경우 False에 대한 Nothing하지 테스트로 변경해야합니다

if nom_fichier Is Nothing Then 
    copie_sd = "ERREUR" 
    Exit Function 
End If 

또 다른 한가지 : 는 'ERREUR'는 A1 셀로 인쇄 할 당신이 하시겠습니까?
그래, 당신은 당신이 필요로하는 모든

Function copie_sd(ByVal fn as String) as Boolean 
    copie_sd = False 
    Dim sd as Workbook  
    Set sd = Workbooks.Open(Filename:=fn) 
    If Not sd Is Nothing 
     copie_sd = True 
    End If  
End Function 

입니다

Range("A1").Value = "ERREUR" 

Answer 3

전화 그리고 셀에 쓸 수 없습니다

If copie_sd("C:\SD\copie_sd.xls") then 
    ' Other things to happen after open 
End If