日安：
各位大大好
因工作需要在網路上找了一些範例，要去抓取營收的資料
但是會出現
"陣列索引超出範圍(錯誤代碼 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
版本:

有可能無符合"設定"工作表名的工作表如https://i.imgur.com/uJmfsQ8.png 測試無該符合工作表名出現原文所述錯誤訊息

!真的，我發現我那一分頁叫做"1.設定"不是"設定"Orz改完後變這樣＠＠https://i.imgur.com/2JM09FJ.png1.設定那頁長這樣https://i.imgur.com/9YFsfaW.jpg

報錯那列上方加上 worksheets("國內上市Data").select

過！！！了！！！大大我愛你！我對你的景仰....