Блог

Главная - Вопросы по программированию - Как создать массив или словарь из чтения Excel

Как создать массив или словарь из чтения Excel

#excel #vbscript

#преуспеть #vbscript

Вопрос:

Приведенный ниже код завершается ошибкой и не позволяет мне создать массив, включающий ячейки от g5 до g5000. Как бы я создал словарь, если бы хотел позже сравнить этот столбец данных с другим столбцом.

 Dim xlApp, xlBook, xlSht 
Dim filename, cellarray
filename = "c:usersa352592desktopfinRate.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)"

Ответ №1:

Ответ на этом сайте

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

Зачем вам нужен словарь?

Ответ №2:

Используйте .Range для сохранения листа (части) в массив. В коде:

 Option Explicit

Dim oEx : Set oEx = CreateObject("Excel.Application")
Dim oSh : Set oSh = oEx.WorkBooks.Open("E:trialsSoTrialsanswers18376588datapt.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

Прежде чем спрашивать о словаре, подумайте / опубликуйте, какая информация вам нужна и как вы могли бы использовать ее для сравнения (с чем?).