大家好，又见面了，我是你们的朋友全栈君。
Sub 股票历史记录查询()
Worksheets("历史记录表").Cells.Clear ''输出结果表
X = Application.CountA(Worksheets("代码").Range("A:A")) ''需要提取的股票代码
Y = 1
For i = 2 To X
dm = IIf(Worksheets("代码").Cells(i, 1) < 600000, "1", "0") & Worksheets("代码").Cells(i, 1) ‘’‘分上证
dm = "http://quotes.money.163.com/service/chddata.html?code=" & dm ’‘’‘本次以163网站为试验
With Worksheets("历史记录表").QueryTables.Add(Connection:="URL;" & dm, Destination:=Worksheets("历史记录表").Range("A" & Y))
.RefreshStyle = xlOverwriteCells ’‘’有三种，0：不插入行或列写入，1：插入部分列，2：插入列
'With ActiveSheet.QueryTables.Add(Connection:="URL;" & wy, Destination:=[a2])
.Refresh
End With
Y = Application.CountA(Worksheets("历史记录表").Range("A:A"))
Next
Y = Application.CountA(Worksheets("历史记录表").Range("A:A"))
Worksheets("历史记录表").Range("A1:A" & Y).TextToColumns Worksheets("历史记录表").[A1], 1, , , , , 1 ‘’‘分列
Worksheets("历史记录表").[A:A].Columns.AutoFit
MsgBox ("OK")
End Sub
RefreshStyle 取值如下：
會指定在指定之工作表上加入或刪除列的方式，以容納查詢所傳回的記錄集中的列數。
名稱 值 描述
xlinsertdeletecells: 1 插入或者刪除部分的列以符合新記錄集所需要的確實列數。
xlInsertEntireRows 2 在必要時插入完整的數列以容納任何溢位。 不會從工作表刪除任何儲存格或列。
xlOverwriteCells 0 不在工作表中加入任何新儲存格或列。 覆寫周圍儲存格中的資料以容納溢位。
结果如下：
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/152704.html原文链接：https://javaforall.cn
【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛
【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...
