如何从excel中读取数组或字典

我的代码如下失败，不允许我创build一个数组，包括单元格从g5到g5000。 如果我希望后者将该列数据与另一列进行比较，我将如何创build一个字典。

Dim xlApp, xlBook, xlSht Dim filename, cellarray filename = "c:\users\a352592\desktop\finRate.xls" Set xlApp = CreateObject("Excel.Application") set xlBook = xlApp.WorkBooks.Open(filename) set xlSht = xlApp.activesheet cellarray = "xlsft.cells(5,7) to xlsft.cells(5000,7)" 

Answer 1

在这个网站上回答

http://msdn.microsoft.com/en-us/library/office/ff837104(v=office.15).aspx

为什么你需要一本字典？

Answer 2

使用.Range将（表格的一部分）存储到数组中。 在代码中：

 Option Explicit Dim oEx : Set oEx = CreateObject("Excel.Application") Dim oSh : Set oSh = oEx.WorkBooks.Open("E:\trials\SoTrials\answers\18376588\data\pt.xls").Sheets(2) Dim aRr : aRr = oSh.Range("A1:B2") WScript.Echo TypeName(aRr) Dim r, c For r = LBound(aRr, 2) To UBound(aRr, 2) For c = LBound(aRr, 1) To UBound(aRr, 1) WScript.Echo r, c, aRr(r, c) Next Next oEx.Quit 

在问一本词典之前，先想一下/发布你需要什么信息，以及如何用它来比较（什么？）。