作者hakim9505 (hakim)
看板Office
標題[問題]EXCEL VBA陣列索引超出範圍(錯誤代碼9)
時間Fri Nov 3 11:07:56 2017
日安：
各位大大好
因工作需要在網路上找了一些範例，要去抓取營收的資料
但是會出現
"陣列索引超出範圍(錯誤代碼 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://webptt.com/m.aspx?n=bbs/Office/M.1509678478.A.69D.html
1F：→ soyoso: 有可能無符合"設定"工作表名的工作表 11/03 11:17
3F：→ soyoso: 出現原文所述錯誤訊息 11/03 11:18
4F：→ hakim9505: !真的，我發現我那一分頁叫做"1.設定"不是"設定"Orz 11/03 11:19
7F：→ soyoso: 報錯那列上方加上 worksheets("國內上市Data").select 11/03 11:30
8F：→ hakim9505: 過！！！了！！！大大我愛你！我對你的景仰.... 11/03 11:52