vba - 将带有路径的excel文件中的列导入数组

Question

有没有更快的方法将特定 excel 文件中的列作为 VBA 数组导入？

我当前使用的代码必须打开 excel 文件。有没有办法在后台做到这一点？有没有办法从第一列逐行读取值？

谢谢

我的代码如下:

Sub LoadExcelArray()

Dim Vendor As Variant
Dim wb As Workbook
Dim sFile As String
sFile = "D:\Desktop\test.xlsx"

Application.ScreenUpdating = False

Set wb = Application.Workbooks.Open(sFile)

Vendor = wb.Sheets(1).Range("A1:A95").Value2

wb.Close False

Application.ScreenUpdating = True

MsgBox Vendor(30, 1)

End Sub

Answer 1

在我看来，您已经使用的是最好的方法。但如果您正在寻找其他选项: xlsx 文件实际上是一个 zip 文件。您可以将其作为 zip 文件打开并提取内容。这可以在不启动 Excel 的情况下完成。所以应该更快。

https://msdn.microsoft.com/en-us/library/dd922181(v=office.12).aspx

您可以将电子表格保存为文本文件，也可以将其保存为 CSV 文件。这两个选项之间的数据看起来会略有不同，因此请使用适合您的任何选项。

如果您的数据中永远不会有制表符，那么制表符分隔(.txt) 就是要走的路。打开文件，按行拆分，然后按列拆分。完毕。