【Window業務効率化】バッチファイルとGetObjFmAccdb で Access のクエリをSQL抽出し、VBAスニペットを生成しよう

C:\Home\0385\accdb4>GetObjFmAccdb.bat

C:\Home\0385\accdb4>rem @echo off

C:\Home\0385\accdb4>setlocal

C:\Home\0385\accdb4>C:\Users\shirakabado\Tools\exe\GetObjFmAccdb.exe /h

GetObjFmAccdb.exe[評価版]　: ver 1.230 (2023/10/07 06:15:48)

使用方法:

>GetObjFmAccdb /h              ... このヘルプを出力します

>GetObjFmAccdb /v sample.accdb ... sample.accdb ファイルからVBAコードを抽出し、モジュール名.basを出力します

>GetObjFmAccdb /s sample.accdb ... sample.accdb ファイル内のクエリをSQLとして抽出し、クエリ名.sqlを出力します

>GetObjFmAccdb /c sample.sql   ... sample.sql ファイルをVBA変換し、sample.basを出力します

C:\Home\0385\accdb4>taskkill /f /im msaccess.exe  1>nul 2>&1

C:\Home\0385\accdb4>for %f in (*.accdb) do (
"%~ff" /decompile /x exit
 C:\Users\shirakabado\Tools\exe\GetObjFmAccdb.exe /v "%~ff"
 C:\Users\shirakabado\Tools\exe\GetObjFmAccdb.exe /s "%~ff"
)

C:\Home\0385\accdb4>(
"C:\Home\0385\accdb4\作成_T2040_日付_女性入院者数_男性入院者数_xlsx.accdb" /decompile /x exit
 C:\Users\shirakabado\Tools\exe\GetObjFmAccdb.exe /v "C:\Home\0385\accdb4\作成_T2040_日付_女性入院者数_男性入院者数_xlsx.accdb"
 C:\Users\shirakabado\Tools\exe\GetObjFmAccdb.exe /s "C:\Home\0385\accdb4\作成_T2040_日付_女性入院者数_男性入院者数_xlsx.accdb"
)

C:\Home\0385\accdb4>for %f in (*.sql) do (
C:\Users\shirakabado\Tools\exe\GetObjFmAccdb.exe /c "%~ff"
 rem del  "%~ff"
)

C:\Home\0385\accdb4>(
C:\Users\shirakabado\Tools\exe\GetObjFmAccdb.exe /c "C:\Home\0385\accdb4\Q2000_作成_T2000_日付.sql"
 rem del  "C:\Home\0385\accdb4\Q2000_作成_T2000_日付.sql"
)

C:\Home\0385\accdb4>(
C:\Users\shirakabado\Tools\exe\GetObjFmAccdb.exe /c "C:\Home\0385\accdb4\Q2020_作成_T2020_日付_男性_入院者数.sql"
 rem del  "C:\Home\0385\accdb4\Q2020_作成_T2020_日付_男性_入院者数.sql"
)

C:\Home\0385\accdb4>(
C:\Users\shirakabado\Tools\exe\GetObjFmAccdb.exe /c "C:\Home\0385\accdb4\Q2030_作成_T2030_日付_女性_入院者数.sql"
 rem del  "C:\Home\0385\accdb4\Q2030_作成_T2030_日付_女性_入院者数.sql"
)

C:\Home\0385\accdb4>(
C:\Users\shirakabado\Tools\exe\GetObjFmAccdb.exe /c "C:\Home\0385\accdb4\Q2040_作成_T2040_日付_女性入院者数_男性入院者数.sql"
 rem del  "C:\Home\0385\accdb4\Q2040_作成_T2040_日付_女性入院者数_男性入院者数.sql"
)

C:\Home\0385\accdb4>pause
続行するには何かキーを押してください . . .

Module Module1
Option Compare Database

Function Main()
    
    Const C_SUCCESS As Integer = 0
    Const C_FAILURE As Integer = 1
    
    DoCmd.SetWarnings False
    
    If (LinkExternalDbTable("Tools\accdb\作成_T0000_東京都コロナ発症状況_マスタ.accdb", "T0000_東京都コロナ発症状況_マスタ") = 0) Then
    Else
        Beep
        MsgBox "Link に失敗しました", vbOKOnly, ""
        Main = C_FAILURE
        Exit Function
    End If
    
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Q2000_作成_T2000_日付", acViewNormal, acEdit
    DoCmd.OpenQuery "Q2020_作成_T2020_日付_男性_入院者数", acViewNormal, acEdit
    DoCmd.OpenQuery "Q2030_作成_T2030_日付_女性_入院者数", acViewNormal, acEdit
    DoCmd.OpenQuery "Q2040_作成_T2040_日付_女性入院者数_男性入院者数", acViewNormal, acEdit
    
    Call ExportTableToBook("T2040_日付_女性入院者数_男性入院者数", "Tools_Data_Temp\xlsx\T2040_日付_女性入院者数_男性入院者数.xlsx")
    
    DoCmd.Quit acSave
    
    Main = C_SUCCESS
    
End Function

SELECT T0000_東京都コロナ発症状況_マスタ.公表_年月日 AS 日付 INTO T2000_日付
FROM T0000_東京都コロナ発症状況_マスタ
GROUP BY T0000_東京都コロナ発症状況_マスタ.公表_年月日;

Dim strSQL As String

strSQL = "SELECT T0000_東京都コロナ発症状況_マスタ.公表_年月日 AS 日付 INTO T2000_日付  " & _
         "FROM T0000_東京都コロナ発症状況_マスタ " & _
         "GROUP BY T0000_東京都コロナ発症状況_マスタ.公表_年月日;"

DoCmd.RunSQL strSQL

rem @echo off
setlocal

%USERPROFILE%\Tools\exe\GetObjFmAccdb.exe /h

taskkill /f /im msaccess.exe >nul 2>&1

for %%f in (*.accdb) do (
    "%%~ff" /decompile /x exit
    %USERPROFILE%\Tools\exe\GetObjFmAccdb.exe /v "%%~ff" 
    %USERPROFILE%\Tools\exe\GetObjFmAccdb.exe /s "%%~ff" 
)

for %%f in (*.sql) do (
    %USERPROFILE%\Tools\exe\GetObjFmAccdb.exe /c "%%~ff" 
rem del  "%%~ff" 
)

pause
endlocal

>GetObjFmAccdb /h

GetObjFmAccdb.exe　: ver 1.230 (2023/10/07 06:15:48)

使用方法:

>GetObjFmAccdb /h              ... このヘルプを出力します

>GetObjFmAccdb /v sample.accdb ... sample.accdb ファイルからVBAコードを抽出し、モジュール名.basを出力します

>GetObjFmAccdb /s sample.accdb ... sample.accdb ファイル内のクエリをSQLとして抽出し、クエリ名.sqlを出力します

>GetObjFmAccdb /c sample.sql   ... sample.sql ファイルをVBA変換し、sample.basを出力します

>