VBA 아래 첨자

Question

나는 바보 같은 질문일지도 모르다 그래서 VBA에 아주 새롭다. 나는 나의 userform에 2 개의 단추가 있고 하나는 입력을 위해 파일을 찾는다. (이것은 내가하는 일을 단순화 한 것입니다.) 때마다 '아래 첨자가 범위를 벗어났습니다'오류가 발생하지만 그 이유를 모르겠습니다. 아무도 나를 도울 수 있습니까? 덕분에 엑셀 도움말에서 많은

Public file as Variant 

Private Sub cmdBrowse_Click() 
file = Application.GetOpenFilename 
If file = False Then 
    MsgBox "There is no file selected.", vbCritical, "Warning" 
End If 
End Sub 

Private Sub cmdInput_Click() 
Cells(2, 2).Value = Workbooks(file).Worksheets(1).Cells(2, 2).Value 
End Sub 

Answer 1

는 - "표준 열기 대화 상자를 표시하고 실제로 파일을을 열지 않고 사용자 파일 이름을 가져옵니다." 통합 문서를 열어야합니다, 그래서 뭔가 같은 :

Private Sub cmdBrowse_Click() 
file = Application.GetOpenFilename 
If file = False Then 
    MsgBox "There is no file selected.", vbCritical, "Warning" 
    Exit Sub 
End If 
Workbooks.Open file 
End Sub 

편집 : Application.Workbooks 속성 GetOpenFileName에 의해 반환되는 전체 파일 경로를 고려하지 않습니다. 따라서 두 번째 하위에서는 전체 파일 경로가 필요하지 않습니다.

Private Sub cmdInput_Click() 
Dim FileName as string 

FileName = Mid(file,InStrRev(file,Application.PathSeparator)+1,99) 
Cells(2, 2).Value = Workbooks(FileName).Worksheets(1).Cells(2, 2).Value 
End Sub