[問題]EXCEL VBA陣列索引超出範圍(錯誤代碼9)

[hakim9505 (hakim)]

日安：
各位大大好
因工作需要在網路上找了一些範例，要去抓取營收的資料
但是會出現
"陣列索引超出範圍(錯誤代碼 9"的錯誤
請問有大大可以指點迷津一下該如何修正呢？

vba碼
Sub 國內上市Data()

Dim year As String
Dim month As String
Dim qurl As String

year = Worksheets("設定").Range("$A$4")  <==此行執行時報錯
month = Worksheets("設定").Range("$B$4")
qurl = "http://mops.twse.com.tw/nas/t21/otc/t21sc03_" + year + "_" + month + "_0.html"

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & qurl, Destination:= _
         Worksheets("國內上市Data").Range("$A$1"))
        .Name = "otc/t21sc03_"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

Worksheets("設定").Range("$A$3") = "年份"
Worksheets("設定").Range("$B$3") = "月份"
End Sub



軟體:Office 2010

版本:

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 118.163.64.70
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1509678478.A.69D.html
→ soyoso: 有可能無符合"設定"工作表名的工作表
→ soyoso: 如https://i.imgur.com/uJmfsQ8.png 測試無該符合工作表名
→ soyoso: 出現原文所述錯誤訊息
→ hakim9505: !真的，我發現我那一分頁叫做"1.設定"不是"設定"Orz
→ hakim9505: 改完後變這樣＠＠https://i.imgur.com/2JM09FJ.png
→ hakim9505: 1.設定那頁長這樣https://i.imgur.com/9YFsfaW.jpg
→ soyoso: 報錯那列上方加上 worksheets("國內上市Data").select
→ hakim9505: 過！！！了！！！大大我愛你！我對你的景仰....