VBA：无效的过程调用或参数

[m0_65271083]

Sub get_QRnum()

Dim Url As String
Dim t As String
Dim regex As Object
Dim QR_num As Object
Set regex = CreateObject("vbscript.regexp")
regex.Pattern = "\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d\d"
Url = "http://www.audhz.com/index/index/get_letter_id"
i = Sheets("基本信息").Range("C6666").End(xlUp).Row
For j = 1 To i - 1

        With CreateObject("msxml2.xmlhttp")
            .Open "post", Url, False
            .send
            t = .responsetext
            Set QR_num = regex.Execute(t)

            Sheets("基本信息").Cells(j + 1, 5) = QR_num(0)

        End With
Next j
MsgBox "二维码填充完毕"

End Sub
 

 

求助兄弟萌！！！为什么  Sheets("基本信息").Cells(j + 1, 5) = QR_num(0)  这一步会报无效的过程调用或参数啊

[CSDN-Ada助手]

您可以前往 CSDN问答-Python 发布问题, 以便更快地解决您的疑问