Excel VBA - 尝试从 Excel 文件目录中提取数据，继续

Question

可能的重复：
Excel - VBA 问题。需要在不打开文件的情况下访问目录中所有excel文件的数据

所以我一直在尝试将人们发送给我的代码放在一起，这就是我到目前为止所得到的......

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 将是您迭代数组时的当前索引。