返回列表下一主題上一主題發帖

[發問] 如何讀取另一個xls裡的sheets資料到array裡以便處理

kasl

小學生 Rank: 1

帖子: 21
主題: 8
精華: 0
積分: 35
點名: 0
作業系統: winXP
軟體版本: 1.0
閱讀權限: 10
性別: 男
註冊時間: 2010-8-4
最後登錄: 2018-3-8

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-2-6 21:27 | 顯示全部帖子

[發問] 如何讀取另一個xls裡的sheets資料到array裡以便處理

請問如何在不開檔的情況下去開啟另一個xls裡的四個sheets(open,close,high,low)
存到四個不同的array裡以便做後續的處理謝謝
我找到一個比較像的例子但我改不出來
煩請各位指教

Sub get_word_table( )
Dim wrdApp As Object
Set wrdApp = CreateObject("Word.Application") '建立引用Word應用程式的物件
Set wrdDoc = wrdApp.Documents.Open("D:\Temp\ole_test.doc") '引用Word文件
With wrdDoc.Tables(1)
　For r = 1 To .Rows.Count
　　For c = 1 To .Columns.Count
　　Cells(r, c) = .Cell(r, c)
　　Next c
　Next r
End With
wrdDoc.Close 'close the document
wrdApp.Quit 'close Word
Set wrdDoc = Nothing '釋放物件變數
Set wrdApp = Nothing
End Sub

樓主熱帖

小菜鳥一個請多指教~

kasl

小學生 Rank: 1

帖子: 21
主題: 8
精華: 0
積分: 35
點名: 0
作業系統: winXP
軟體版本: 1.0
閱讀權限: 10
性別: 男
註冊時間: 2010-8-4
最後登錄: 2018-3-8

論壇贊助勳章

2^#

發表於 2014-2-7 00:01 | 顯示全部帖子

小弟自問自答一下

Sub Get_Stock_Table()

Dim ExcApp As Object

Set ExcApp = CreateObject("Excel.Application") '建立引用Word應用程式的物件
Set ExcDoc = ExcApp.Workbooks.Open("D:\開高低收.xls") '引用Word文件

Dim AR_Open, AR_High, AR_Low, AR_Close

With ExcDoc.Worksheets("Open")
  AR_Open = .UsedRange.Value
End With

With ExcDoc.Worksheets("High")
  AR_High = .UsedRange.Value
End With

With ExcDoc.Worksheets("Low")
  AR_Low = .UsedRange.Value
End With

With ExcDoc.Worksheets("Close")
  AR_Close = .UsedRange.Value
End With

ExcDoc.Close 'close the document
ExcApp.Quit 'close Excel
Set ExcDoc = Nothing '釋放物件變數
Set ExcApp = Nothing

End Sub

不知中間那幾個行重覆做的怎麼用loop的方式把他們合起來寫
謝謝~

小菜鳥一個請多指教~

TOP

kasl