[問題]EXCEL VBA陣列索引超出範圍(錯誤代碼9)
日安：
各位大大好
因工作需要在網路上找了一些範例，要去抓取營收的資料
但是會出現
"陣列索引超出範圍(錯誤代碼 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
→
11/03 11:17,
7年前
, 1F
11/03 11:17, 1F
→
11/03 11:17,
7年前
, 2F
11/03 11:17, 2F
→
11/03 11:18,
7年前
, 3F
11/03 11:18, 3F
→
11/03 11:19,
7年前
, 4F
11/03 11:19, 4F
→
11/03 11:22,
7年前
, 5F
11/03 11:22, 5F
→
11/03 11:25,
7年前
, 6F
11/03 11:25, 6F
→
11/03 11:30,
7年前
, 7F
11/03 11:30, 7F
→
11/03 11:52,
7年前
, 8F
11/03 11:52, 8F