2014-05-19 3 views
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에를 변경할 수 있습니까?

+0

예. @AndyG가 게시 한 내용과 마찬가지로 동일한 방식으로 연결할 수 있습니다. 그러나 B11-B13에 저장된 다른 파일 소스의 모든 정보를로드하려면 루프를 반복하고 코드를 수정해야합니다. – L42

답변

0

B11 : B13에 무엇이 있는지 모르지만 B3에 대해 이미 수행 한 것과 같은 방법으로 값을 연결할 수 있습니다. 예 :

Filename := Range("B11").Value & Range("B12").Value & Range("B13").Value