Alt+F11을 눌러 VBA Editor 창을 띄우시고.. 모듈에 가보면 아래와 같은 코드를 확인할 수 있는데요..
Sub Macro1() Workbooks.Open Filename:="C:\Users\Public\Documents\ddd.xlsx" End Sub
Open이라는 코드 중간쯤을 마우스로 클릭해서 커서를 위치시키시고..
F1을 눌러 도움말을 보세요..
도움말을 보시면 도움이 많이 되실겁니다.
Application.GetOpenFilename
메서드
'### 도움말의 예제 코드에 밑줄친 코드 하나 추가.. 위에서 설명한 open문입니다.
'### 도움말을 참고해서 코딩하는 방법에 대한 가이드가 됐으면 좋겠습니다.
Sub Macro1() fileToOpen = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If fileToOpen <> False Then MsgBox "Open " & fileToOpen Workbooks.Open Filename:=fileToOpen End If End Sub
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141719point, 레벨:30/30"){kind=icon}
아별
신강현님..
매크로 기록을 사용해보세요..
매크로 기록기를 실행하고 파일을 하나 열고 기록을 중단합니다.
Alt+F11을 눌러 VBA Editor 창을 띄우시고.. 모듈에 가보면 아래와 같은 코드를 확인할 수 있는데요..
Sub Macro1()
Workbooks.Open Filename:="C:\Users\Public\Documents\ddd.xlsx"
End Sub
Open이라는 코드 중간쯤을 마우스로 클릭해서 커서를 위치시키시고..
F1을 눌러 도움말을 보세요..
도움말을 보시면 도움이 많이 되실겁니다.
Application.GetOpenFilename 메서드
'### 도움말의 예제 코드에 밑줄친 코드 하나 추가.. 위에서 설명한 open문입니다.
'### 도움말을 참고해서 코딩하는 방법에 대한 가이드가 됐으면 좋겠습니다.
Sub Macro1()
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
Workbooks.Open Filename:=fileToOpen
End If
End Sub