Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何向Power Query Table VBA宏添加多行?_Excel_Vba - Fatal编程技术网

Excel 如何向Power Query Table VBA宏添加多行?

Excel 如何向Power Query Table VBA宏添加多行?,excel,vba,Excel,Vba,我有一张只有一个按钮的工作表,用于添加需要完成的其他行。这很费劲,我知道VBA可以改进它,但是我不熟悉Power Query,也不知道这是否会以任何方式更改VBA代码 非常感谢您的建议。多谢各位 Sub AddRow() ActiveSheet.Unprotect Range("A1").End(xlDown).ListObject.ListRows.Add AlwaysInsert:=False ActiveSheet.Protect Dra

我有一张只有一个按钮的工作表,用于添加需要完成的其他行。这很费劲,我知道VBA可以改进它,但是我不熟悉Power Query,也不知道这是否会以任何方式更改VBA代码

非常感谢您的建议。多谢各位

    Sub AddRow()
    ActiveSheet.Unprotect
    Range("A1").End(xlDown).ListObject.ListRows.Add AlwaysInsert:=False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=False, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=False, AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=False, AllowDeletingColumns:=False, AllowDeletingRows:=True, _
AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub

当您刷新查询时,PQ应该在表中读取,因为它在您点击刷新按钮时存在。因此,如果您更改表结构,无论是手动更改还是通过VBA更改,PQ都应该接受更改。这就是你要问的吗?你好,Ron,更多的是关于在上面添加VBA代码,以添加多行而不是1x。PQ只是一个问题,因为我不确定标准VBA代码编辑(我可能自己做)是否会影响现有查询。谢谢,我建议您在VBA代码中进行更改,并查看查询结果。如果有问题,请发回或提出新问题。当您刷新查询时,PQ应按您点击刷新按钮时的状态读取表中的内容。因此,如果您更改表结构,无论是手动更改还是通过VBA更改,PQ都应该接受更改。这就是你要问的吗?你好,Ron,更多的是关于在上面添加VBA代码,以添加多行而不是1x。PQ只是一个问题,因为我不确定标准VBA代码编辑(我可能自己做)是否会影响现有查询。谢谢,我建议您在VBA代码中进行更改,并查看查询结果。如果有问题,请发回邮件或提出新问题。