오픈 소스 코드 VBA 드라이브 탐색 용

사용자가 파일 경로를 제공해야하는 vba 코드가 있습니다. 나는 클라이언트가 많은 파일을 가지고 작업 할 필요가 있고 경로를 타이핑하는 것이 효율적이지 않고 에러를 가져올 수도 있음을 알고있다. 나는 누군가가 올바른 파일을 가리킬 수있는 윈도우 (패널 또는 whateever)를 여는 vba 코드를 어디에서 찾을 수 있는지 알고 싶습니다. (예 : 응용 프로그램의 90 %에서 파일을 열 때와 같이) 감사합니다. 당신을위한 도움오픈 소스 코드 VBA 드라이브 탐색 용

출처

2013-07-29 user2497624

하실 수 있습니다;

Dim file As String 
With Application.FileDialog(3) 
    .InitialFileName = "c:\xxx\" 
    .Filters.Add "Text Files", "*.txt", 1 
    .Show 
    If (.SelectedItems.Count) Then 
     file = .SelectedItems(1) 
    End If 
End With 

MsgBox file

출처

2013-07-29 13:19:29

감사합니다. 마지막으로, 내가 자주 사용하기로되어있는 파일은 엑셀 파일 (.xls 또는 .xlsx)입니다. 필터를 사용하여 허용 된 확장을 추가하기 만하면됩니다. 함수를 추가 하시겠습니까? – user2497624

네, 그게 전부입니다. –

가능한 한 마지막으로, 취소 버튼을 누르면 오류가 나타납니다. 내 VBA 코드에서 파일이 null인지 확인하는 if 조건을 설정합니다. 그럼에도 불구하고 "오류 1004는 찾을 수 없으므로 미안합니다. 이름이 변경되었거나 이동되었거나 삭제되었을 수 있습니다." 오류가 발생하지 않고 코드의 실행을 취소 할 수있는 방법이 있습니까? – user2497624

오픈 소스 코드 VBA 드라이브 탐색 용

답변

관련 문제