MS Accessでクエリの一括実行 その２

その昔、「MS Accessでクエリの一括実行」というエントリを書いたことがありました。でも、これは僕はVBが全く使えなかったためなんですが、そんな僕のエントリを見て、VBAを作ってくださった方がいました。

プログラマとSEのあいだ

この方は、ツールで解決したようですが、僕はあえてVBAでやってみました。こんな感じです。

Option Compare Database Sub execFile() Set db = Application.CurrentDb() Set fs = CreateObject('Scripting.FileSystemObject') Set ts = fs.OpenTextFile(';..\デスクトップ\hoge.sql') While ts.AtEndOfLine = False lineData = ts.readLine db.Execute (lineData) Wend ts.Close End Sub

何のことはないと書いていらっしゃいますけど、ある程度のスキルがないとその何のことはないことに苦戦しちゃうんですよね。
次にこういう機会があったらぜひとも活用させてもらおうと思います。