请老师指点：VBA同样代码，一台电脑行另一台电脑不行

中华美德

请老师指点：同样代码，一台电脑行另一台电脑不行

金牌1

能用JSA写出来最优。

2324104030

报错原因是url为空值。以下代码可以运行:

2324104030

Sub 低价涨幅()
Sheets("升").Range("W11") = "收盘价"     '更换：涨停封单额(元)2021.12.10
   Sheets("升").Range("X11") = "流通亿"     '更换：a股流通市值(元)2021.12.16
   Sheets("升").Range("Y11") = "竞价/昨成"
   Sheets("升").Range("Z11") = "开盘金亿"     '更换：竞价金额(元)2021.12.16
    For r = 12 To Range("Q12").CurrentRegion.Rows.Count
        dm = Cells(r, 17).Value
        Debug.Print dm
        If Val(dm) = sh000001 Then
        Url = "http://qt.gtimg.cn/q=" & dm
        Else
         If Val(dm) < 600000 Then
            Url = "http://qt.gtimg.cn/q=sz" & dm
         Else
            Url = "http://qt.gtimg.cn/q=sh" & dm
         End If
          End If
        With CreateObject("msxml2.xmlhttp")
            .Open "GET", Url, False
            .send
            sp = Split(.responsetext, "~")
            If UBound(sp) > 2 Then
                'Cells(r, 4).Value = sp(32) & "%"
                Cells(r, 23).Value = sp(3)       '当前价格
            Else
            End If
        End With
   Next
End Sub

中华美德

2324104030 发表于 2024-4-8 17:40
Sub 低价涨幅()
Sheets("升").Range("W11") = "收盘价"     '更换：涨停封单额(元)2021.12.10
   Sheets( ...

VBA比较烦，一个电脑行，另一台不能执行，安装的事情，电脑版本问题，如何统一？

shiruiqiang

python也可以试试

中华美德

shiruiqiang 发表于 2024-4-8 21:33
python也可以试试

谁能提供个正版VBA下载地址？

shiruiqiang

直接安装python免费版吧

perfect131

中华美德 发表于 2024-4-8 21:21
VBA比较烦，一个电脑行，另一台不能执行，安装的事情，电脑版本问题，如何统一？

这很正常 一般跟ie设置中的tls 有关
你换个对象 爬呗
3楼 4种对象 都试试
https://club.excelhome.net/forum ... ;page=1#pid10988357

perfect131

shiruiqiang 发表于 2024-4-8 21:52
直接安装python免费版吧

py 一直是免费的  况且这种难度也根本不需要py