Question

我的代码失败，不允许我创建一个包含从g5到g5000的单元格的数组。如果我想将该列数据与另一列进行比较，我将如何创建字典。

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

使用.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

在询问字典之前，请考虑/发布您需要的信息以及如何使用它来比较（什么？）。

Answer 2

在本网站上回答

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

为什么需要字典？

如何通过读取excel创建数组或字典

2 个答案: