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

有什么方法可以在VBA中逐行读取xls文件吗？

1 个答案: