엑셀 VBA는 -, 엑셀 파일의 디렉토리에서 데이터를 가져하려고 계속

Question

가능한 중복 :
Excel - VBA Question. Need to access data from all excel files in a directory without opening the files 그래서

내가 함께 사람들이 전송 된 코드를 넣어하려고했는데 나와 이것이 내가 지금까지 가지고있는 것입니다 ...

Dim xcell As Range 
Dim ycell As Range 
Dim sheetname As String 

Dim wbList() As String, wbCount As Integer, i As Integer 
Dim wbname As String 


    FolderName = "\\Drcs8570168\shasad\Test" 

    wbname = Dir(FolderName & "\" & "*.xls") 

    While wbname <> "" 

Set ycell = Range("a5", "h5") 
Set xcell = Range("a2", "h2") 
sheetname = "loging form" 

ycell.Formula = "=" & "'" & FolderName & "\[" & wbname & "]" _ 
& sheetname & "'!" & xcell.Address 


    Wend 


End Sub  

저는이 사실에 익숙하지 않기 때문에 코드 유형 사람들이 저에게 제공 한 것에서 많이 바뀌지는 않았지만 함께 이해되기를 바라고 있습니다. 문제는 루프가 멈추지 않고 아무것도 출력하지 않는 것 같습니다.

Answer 1

코드를 제공하지 않으므로 배우기 위해 직접 해결해야합니다. (당신은 당신을위한 전체 코드를 작성하는 사람을 찾고 있다면, 당신은 잘못된 위치에있어 -. 당신이 Rentacoder 같은 곳 시도해야 할)

이것은 당신이 그래도 시작할 수 있어야 ...

wbList()은 문자열 배열입니다. 반환 값이 Dir() 인 곳이어야합니다.

wbList의 각 요소에 대해 wbName에 문자열을 할당합니다. 그것은 wbCount과 i이 - wbCount에 대해 선언 된 것이고 wbList에있는 문자열의 수이고 i은 배열을 반복 할 때 현재 색인이됩니다.