12

myexcel.xlsx に Power Query セットがあります。その接続のプロパティを thisおよびthisに設定しました。

次のようなVBAコードを書きました

Sub UpdateData()
    Dim filename As String
    Dim wbResults As Workbook
   filename = "C:\myexcel.xlsx"
   Set wbResults = Workbooks.Open(filename)

   ActiveWorkbook.RefreshAll
   wbResults.Close savechanges:=True

End Sub

myexcel.xslx を手動で開くと、Power Query 接続が更新されます。しかし、VBA コードではそうではありません。これを昔ながらの Excel 接続でテストしたところ、VBA コードで問題なく動作しました。しかし、問題は Power Query 接続にあります。何かご意見は？

4

5 に答える 5

0

このコードも試すことができます

Sub auto_open()
    ActiveWorkbook.RefreshAll
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
    ThisWorkbook.Save
    ChDir "D:\Data"
    ActiveWorkbook.SaveAs Filename:="D:\Data\abc.txt", FileFormat:=xlText, CreateBackup:=False
    Application.Quit
End Sub

その時点でファイルを開くと、マクロが自動的に実行され、データも保存され、最後のファイルにも TXT 形式で保存されます :)

于 2019-05-02T12:32:08.573 に答える