0

Excelを開いて保存して終了した後、ole dbソースからデータを更新する必要があります。ここに私のマクロコードがあります:

Sub auto_open()
    Call DataRefresh
End Sub

Sub DataRefresh()
    TimeToRun = Now
    Application.OnTime TimeToRun, "Refresh"
End Sub

Sub Refresh()
    ActiveWorkbook.Connections("Shas").Refresh
End Sub

Sub auto_close()
    Application.OnTime TimeToRun, "Refresh", , True
    Application.Quit
    ThisWoorkbook.Close SaveChanges:=True
End Sub

開封後の更新はいいのですが出ません。私は何を間違っていますか？

4

1 に答える 1

0

実際には、ワークブックを閉じるように指示することはありません...

また、Auto_Open() ルーチンは、ワークブックが開いた後に技術的にトリガーされるため、別のルーチンを呼び出す必要はありません。

また、アプリケーションを終了した後にワークブックを閉じることはできません...

代わりにこれだけを試してください：

Sub auto_open() ActiveWorkbook.Connections("Shas").Refresh DoEvents ThisWoorkbook.Close SaveChanges:=True End Sub

于 2014-11-11T17:31:47.377 に答える