テーブルをCSV出力してバックアップフォルダに格納する方法｜ACCESS

テーブルをCSVファイルにエクスポートするVBA

さらに格納するフォルダを都度タイムスタンプをして、いつバックアップしたテーブルデータか分るようにもしておきます。

■サンプルACCESSの構成

ここでは適当に作成したテーブル2つと、エクスポートするためのモジュールを1つ作成しておきます。

【テーブル】

T_商品

T_店舗

【モジュール】

Module1

■テーブルのデータ内容はこんな感じ

【T_商品】

ID　オートナンバー

商品コード　短いテキスト

商品名　短いテキスト

【T_店舗】
ID　オートナンバー

店舗コード　短いテキスト

店舗名　短いテキスト

■バックアップフォルダとCSV保管用フォルダ

Cドライブに「バックアップ」フォルダを用意します。

さらにその中には「一時」フォルダと「保管」フォルダの2種類のフォルダを用意しておきます。

CSV保管の流れとしては

①　「一時」フォルダにCSVファイルを格納する
②　「一時」フォルダを「保管」フォルダ内にコピーする
③　「保管」フォルダ内の「一時」フォルダの名前を日時（タイムスタンプ）に変更する
④　最初の「一時」フォルダ内のCSVファイルを削除する

となり、最終的に「一時」フォルダ内には何も残りません

【バックアップフォルダ】

Cドライブに作成しています

【バックアップフォルダ内】

2つのフォルダを作成しています

【「保管」フォルダ内】

こちらにCSVを格納したフォルダを都度、タイムスタンプを名前にして格納していきます。

■モジュールのVBA

Public Sub バックアップ実行()

'①バックアップ実行選択*****************************************************************
If vbNo = MsgBox("バックアップを実行しますか？", vbYesNo, "確認") Then
Exit Sub
Else
End If

'②テーブルエクスポート*****************************************************************
DoCmd.TransferText acExportDelim, , "T_商品", "C:\バックアップ\一時\shohin.csv", True
DoCmd.TransferText acExportDelim, , "T_店舗", "C:\バックアップ\一時\tenpo.csv", True

'③バックアップフォルダに日付時刻をつけてフォルダごとコピーする*************************
Dim BUCstr
Dim BUSstr
Dim newdatestr

BUCstr = "C:\バックアップ\一時"
BUSstr = "C:\バックアップ\保管"
newdatestr = Format(Now(), "yyyymmdd_hhnnss")
Dim objfso
Set objfso = CreateObject("Scripting.FileSystemObject")
objfso.CopyFolder BUCstr, BUSstr & "\" & newdatestr & "_BU_csv"

'④一時データフォルダ内のファイルを削除する*********************************************
objfso.DeleteFile "C:\バックアップ\一時\shohin.csv"
objfso.DeleteFile "C:\バックアップ\一時\tenpo.csv"
Set objfso = Nothing

'⑤バックアップ完了メッセージ***********************************************************
MsgBox "バックアップを完了しました。", , "情報"
End Sub