I';我在基于表格的Excel web查询的vba代码中遇到语法错误
我正在尝试更新我录制的宏,以便电子表格中的行中的内容将更新web查询目标,但遇到了一些错误。我已经对其中几个进行了分类,但当前的问题是运行时错误。以下是我的查询代码:I';我在基于表格的Excel web查询的vba代码中遇到语法错误,vba,excel,web,Vba,Excel,Web,我正在尝试更新我录制的宏,以便电子表格中的行中的内容将更新web查询目标,但遇到了一些错误。我已经对其中几个进行了分类,但当前的问题是运行时错误。以下是我的查询代码: Sub GetAllPkgInfo() Sheets("AllPkgs").Select Range("A2").Select Do Until ActiveCell.Value = "" Call PkgInfo1 Loop End Sub Sub PkgInfo1() ' ' PkgInf
Sub GetAllPkgInfo()
Sheets("AllPkgs").Select
Range("A2").Select
Do Until ActiveCell.Value = ""
Call PkgInfo1
Loop
End Sub
Sub PkgInfo1()
'
' PkgInfo1 Macro
' Import RHEL package information from RPMFind
'
' Keyboard Shortcut: Ctrl+Shift+D
'
Selection.Copy
Sheets("WebQuery").Select
ActiveSheet.Cells.Clear
Range("$G$1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With ActiveSheet.QueryTables.Add( _
Connection:="URL;https://rpmfind.net/linux/rpm2html/search.php?query=" & _
Range("$G$1").Value, Destination:=Range("$A$1"))
.CommandType = 0
.Name = "search.php?query=abrt_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "2"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveCell.Offset(1, -5).Range("A1").Select
Selection.Copy
Sheets("AllPkgs").Select
ActiveCell.Offset(0, 1).Range("CombinedPackages[[#Headers],[Column1]]").Select
ActiveSheet.Paste
Sheets("WebQuery").Select
ActiveCell.Cells.Select
Application.CutCopyMode = False
Selection.QueryTable.Delete
Selection.ClearContents
Sheets("AllPkgs").Select
ActiveCell.Offset(1, -1).Range("CombinedPackages[[#Headers],[Column1]]").Select
End Sub
我收到的错误消息声明“运行时错误“1004”:工作表类的粘贴方法失败”,并突出显示
ActiveSheet.Paste
有人能帮我弄清楚吗?有什么问题吗?您是否收到错误?我收到一个编译错误:语法错误消息,突出显示行:With ActiveSheet.QueryTables.Add(连接:==“URL;”“&range(“G1”)),目标:=
With ActiveSheet.QueryTables.Add( _
Connection:= "URL;https://rpmfind.net/linux/rpm2html/search.php?query=" & _
Range("G1").Value, Destination:=Range("$A$1"))