특정 폴더에서 Excel을 여는 방법

Question

예 : TEST라는 폴더 이름이 있습니다. 그리고 테스트에는 aaa.xlsx, bbb.xlsx, ccc.xlsx, ......., zzz.xlsx가 포함되어 있습니다. 이제 셀에 파일 이름 (aaa.xlsx)을 입력하고 vba 버튼을 입력하면 데이터가 표시됩니다. aaa.xlsx에서.

-Folder 이름과 파일 이름은 고정적입니다.

Answer 1

만든 목록 시트 1입니다.

Sub DropDown2_Change() 
Application.DisplayAlerts = False 
Application.ScreenUpdating = False 
ThisWorkbook.Activate 
Sheets("dropdown").Select 
Range("a5:Z1000").Clear 
    With Worksheets("dropdown").Shapes("Drop Down 2").ControlFormat 
    'MsgBox "ListIndex: " & .ListIndex & vbNewLine & "List value:" & .List(.ListIndex) 
    Sheets("dropdown").Range("A3").Value = .List(.ListIndex) 
    End With 
    currentfile = Sheets("dropdown").Range("a3").Value 
Workbooks.Open Filename:=ThisWorkbook.Path & "\path\" & currentfile 
ActiveSheet.UsedRange.Select 
Selection.Copy 
ThisWorkbook.Activate 
Sheets("Dropdown").Activate 
ActiveSheet.Range("a5").Select 
ActiveSheet.Paste 
Windows(currentfile).Close 
Application.DisplayAlerts = True 
Application.ScreenUpdating = True 
End Sub 

Answer 2

것은이 하나의 통합 문서를 추가하려고 : 파일 이름의

Sub openworksheet() 
Workbooks.Open Filename:="C:\Users\........\test.xlsx" 'past your file path within " " 
End Sub