open문을 사용해서 다른파일을 열려고하는데요
Open "C:\Book1.xlsx" For Input As file 이렇게도해보구
Open "C:\Documents and Settings\Administtator\바탕" For Input As file 이렇게대 해봣는데
솔직히 경로명과 파일을 어떻게 열어야하는지
그리고 뒤에 For Input As file 이게 왜 붇는지 모르겟어서 글올립니다.ㅠ
그리고 꼭 open문이 아니고 다른함수 getopenfilename 으로 하는법도 같이 달아주시면 감사하겟습니다
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
신강현님..
매크로 기록을 사용해보세요..
매크로 기록기를 실행하고 파일을 하나 열고 기록을 중단합니다.
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