有没有办法在VBA中逐行读取xls文件

Question

我正在尝试创建一个新的VBA程序，需要帮助。

通常，我从用户那里检索到的文件包含csv扩展名，因此读取文件非常容易。

有了csv文件，我可以读取它并保存数组中的每一行，就像下面的例子一样：

Open strPath For Input As #1 ' Open file for input
Do While Not EOF(1) ' Loop until end of file
linenumber = linenumber + 1
Line Input #1, line
arrayOfElements = Split(line, ";")
lineCounter = lineCounter + 1
Loop
Close #1 ' Close fil

现在，我必须对xls文件执行同样的操作。这个文件将有n行，所以我需要读取循环中的每一行，并将其保存到一个数组中。

这可能吗？

谢谢你的帮助。

Answer 1

如果我们真的在谈论XLS文件代码，它可能看起来像

Sub ReadXLFileIntoArray()
Dim wkb As Workbook
Dim wks As Worksheet
Set wkb = Workbooks.Open("Filename")
Set wks = wkb.Sheets(1)
Dim vDat As Variant
' Vdat will be an 2-dimensional array containing the data
vDat = wks.UsedRange

End Sub