[發問] 陣列索引超出範圍請教

各位前輩好

目前正在寫一個程式，要抓取個股的財報資料，並整理到同一表格
執行的excel為財報統計表.xlsx
A1 = 1101, A2 = 1102, A3 = 1103...等個股代碼
個股財報為 1101季報、1102季報...等，excel頁面如下圖

程式碼如下
執行後會產生 "陣列索引超出範圍"的視窗

Sub Getdata()
For i = 2 To 5
      Dim WB1 As Workbook
         Workbooks.Open Filename:="C:\Users\user\Documents\KT\投資理財\Excel分析模組\" & Range("A" & i) & "季報.xlsx", UpdateLinks:=False, ReadOnly:=True
         Set WB1 = ActiveWorkbook

         With Workbooks(財報統計表).Worksheets("sheet1")
            Range("E" & i).FormulaR1C1 = "=[" & Range("A" & i) & "季報.xlsx]ISQ!R4C2"
            Range("F" & i).FormulaR1C1 = "=[" & Range("A" & i) & "季報.xlsx]ISQ!R5C2"
         End With

      WB1.Close
Next i
End Sub

若使用"On Error Resume Next"
程式執行會讀取正確資料，但我還是想知道真正問題出在哪...

1. 請教錯誤出現在哪個地方？
      一開始測試可執行                                  Range("E" & i).FormulaR1C1 = "=[1101季報.xlsx]ISQ!R4C2"
      修改後, 加入變數便產生錯誤             Range("E" & i).FormulaR1C1 = "=[" & Range("A" & i) & "季報.xlsx]ISQ!R4C2

2. With sheet1的情況下，不是應該都要寫成 " .range(....) "嗎？為何在此不必增加 "."呢？

謝謝各位前輩指教~

樓主熱帖

bulletin

小學生 Rank: 1

帖子: 27
主題: 7
精華: 0
積分: 38
點名: 0
作業系統: Win 7
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2012-9-19
最後登錄: 2014-2-18

5^#

發表於 2014-2-3 22:51 | 只看該作者

多謝超級版主回覆!!
我知道問題在哪了~
感恩~

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 256
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-26

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2014-2-3 22:34 | 只看該作者

本帖最後由 Hsieh 於 2014-2-3 22:40 編輯

回復 3# bulletin
放在'Workbooks("財報統計表.xlsm")的模組

Sub Getdata()
For i = 2 To 5
Dim WB1 As Workbook
Set WB1 = Workbooks.Open (Filename:="C:\Users\user\Documents\KT\投資理財\Excel分析模組\" & Range("A" & i) & "季報.xlsx", UpdateLinks:=False, ReadOnly:=True)
With Thisworkbook.Worksheets("sheet1") 'Workbooks("財報統計表.xlsm")
Range("E" & i).FormulaR1C1 = "=[" & Range("A" & i) & "季報.xlsx]ISQ!R4C2"
Range("F" & i).FormulaR1C1 = "=[" & Range("A" & i) & "季報.xlsx]ISQ!R5C2"
End With
WB1.Close
Next i
End Sub