作者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/cn.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