|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
Dim ws As Worksheet
Dim selectedFile As String
Set ws = ThisWorkbook.Worksheets("SHEET1")
Open the file selection window
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Raw 파일을 선택하세요"
.Filters.Add "엑셀파일", "*.xls; *.xlsx; *.xlsm; *.xlsb"
.AllowMultiSelect = False
If .Show = -1 Then
selectedFile = .SelectedItems(1)
End If
End With
If selectedFile <> "" Then
On Error Resume Next
ws.OLEObjects.Add Filename:=selectedFile, Link:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\Windows\system32\packager.dll", IconIndex:=0, IconLabel:=selectedFile
On Error GoTo 0
End If
파일 선택해서 선택한 파일을 전체 복사한 뒤 sheet1의 a1셀에 붙이고 싶은데 파일 선택하는것만 동작하는것 같습니다..
전체 복사와 sheet1의 a1셀에 붙이는 구현을 어떻게 하면 좋을까요? |
|