0
Excel 파일이 있고 버튼을 클릭하여 모든 데이터를 자동 검색하려고합니다.셀 값의 파일 경로를 사용하여 여러 엑셀 파일에서 데이터 검색
파일 경로를 B11에서 B13으로 저장했습니다.
내 코드는 다음과 같습니다 : B13 :
Sub FetchData()
Dim wbSource As Workbook
Dim shSource As Worksheet
Dim shDestin As Worksheet
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Users\Corporate Quality\Desktop\test\New Microsoft Excel Worksheet" & Sheets("Sheet1").Range("B3")
Set wbSource = ActiveWorkbook
Set shSource = wbSource.Sheets("Sheet1")
Set shDestin = ThisWorkbook.Sheets("Sheet1")
shDestin.Range("E11") = shSource.Range("A2")
wbSource.Close False
End Sub
Workbooks.Open Filename:= "C:\Users\Corporate Quality\Desktop\test\New Microsoft Excel Worksheet"
B11에를 변경할 수 있습니까?
예. @AndyG가 게시 한 내용과 마찬가지로 동일한 방식으로 연결할 수 있습니다. 그러나 B11-B13에 저장된 다른 파일 소스의 모든 정보를로드하려면 루프를 반복하고 코드를 수정해야합니다. – L42