이미 존재하는 것을 사용할 수있을 때 항상 모든 것을 스스로 발명 할 필요는 없습니다.

Excel 및 Office의 다른 응용 프로그램에있는 대부분의 기본 제공 대화 상자에 액세스 할 수 있습니다.

사용자가 통합 문서를 저장할 위치를 결정할 수 있도록하려면 기본 제공 대화 상자를 표시하여 다음과 같이 저장합니다.

Application.Dialogs(xlDialogSaveAs).Show

Excel에서 액세스 가능한 모든 대화 상자에 대한 목록을 보려면 개체 브라우저를 사용하십시오.

이를 표시하려면 모듈이 활성화 된 상태에서 F2를 누르십시오. Excel을 라이브러리로 선택하고 xlDialog로 시작하는 상수를 찾습니다 …​.

나중에 통합 문서를 열거 나 저장하는 데 사용할 사용자의 파일 이름 만 검색하려는 경우 GetOpenFilename 또는 GetSaveAsFilename 메서드를 사용할 수 있습니다. 두 방법 모두 각각의 대화 상자를 표시하지만 사용자가 대화 상자를 확인할 때 파일을 열거 나 저장하지 않습니다.

대신 메서드는 사용자가 열거 나 저장하려는 파일에 전체 파일 이름을 반환합니다.

FullFileName = Application.GetOpenFilename("Excel files (.xl),.xl", _

1, "Custom Dialog Title", , False)

FullFileName = Application.GetSaveAsFilename("DefaultFilename.xls", _

"Excel files (.xl),.xl", 1, "Custom Dialog Title")

결과는 원하는 방식으로 사용할 수 있습니다. 나중에 다음과 같이 선택한 통합 문서를 열 수 있습니다.

Workbooks.Open FullFileName

또는 다음과 같이 통합 문서를 저장할 수 있습니다.

ActiveWorkbook.SaveAs FullFileName

사용자가 FileOpen 대화 상자 또는 FileSaveAs 대화 상자를 확인했을 때 활성 또는 현재 폴더를 변경했을 수도 있으므로 사용자가 폴더를 선택할 수있는 간단한 방법으로이 두 가지 방법을 자주 사용합니다. 사용자가 파일 및 폴더 섹션에서 폴더를 선택하도록하는 다른 방법을 찾을 수 있습니다.