在vb中讀取excel中的壹列數據

將引用項目菜單添加到該對象-& gt；查找Microsoft腳本運行時的參考。

參考Microsoft Excel 14.0對象庫

'

Dim elApp作為Excel。應用

將電子書調成Excel格式。練習本

將ekSheet調成Excel格式。工作表

' Dim TblMap_Card '創建壹個變量。

私有子命令1_Click()

將I標註為整數

openEl

Set dic = CreateObject("Scripting。字典》)

MsgBox ekSheet。單元格(行。計數，1)。結束(3)。排

對於i = 2到ekSheet。單元格(行。計數，1)。結束(3)。排

如果dic。存在(ekSheet。單元格(I，2)。值)那麽

dic(ekSheet。單元格(I，1)。Value) = dic(ekSheet。單元格(I，1)。Value) + ekSheet。單元格(I，2)。價值

其他

dic(ekSheet。單元格(I，1)。Value) = ekSheet。單元格(I，2)。價值

如果…就會結束

接下來我

ekSheet。範圍(" H:J ")。清楚的

Eksheet。單元格(1，9)。Resize (1，2) = array("商品"，"銷量")。

ekSheet。單元格(2，9)。調整大小(dic。計數，1) =應用程序。轉置(dic。按鍵)

ekSheet。單元格(2，10)。調整大小(dic。計數，1) =應用程序。轉置(dic。項目)

末端接頭

私有子openEl()

將我的路徑顯示為字符串

myPath = "\week.xlsx "

Set elApp = CreateObject("Excel。應用”)

Set elBooks = elApp。Workbooks.Open(應用程序。路徑與路徑。我的路徑)

Set ekSheet = elBooks。工作表(“Sheet1”)

Set ekSheet = elBooks。工作表(1)

艾勒普。可見=真

末端接頭

張:VB6通過測試。界面上只有壹個按鈕。