Photo by
chiyoizmo
Access インポートするファイル名の一部をレコードとして取り込む
インポートするレコードがいつ作成されたものなのか、後々の分析作業で使用したい場面で使います。
ファイル名の最後に年月日（yyyymmdd）と文字列が入っている場合
AccessのVBAにもSQLを使用したモジュール入れて、レコードにすることが可能です。
この場合は Right(ファイル名, 8) で取り出します。
ファイル名は文字列なので、'で括ります。
後、フィールド名がNullの場合も考慮しNz関数を使用します。
AccessのVBAでSQLを起動する時はDoCmd.RunSQL構文を使います。
Sub date_import1()
Dim sql As String
DoCmd.SetWarnings WarningsOn:=False
sql = "UPDATE テーブル名 SET フィールド名='" & Right(ファイル名, 8) & "' WHERE Nz(フィールド名)=''"
DoCmd.RunSQL sql
DoCmd.SetWarnings WarningsOn:=True
End Sub
ファイルを選択、テーブルインポートから、ファイル名の年月日（yyyymmdd）の取得まで一気に行いたい場合
上の構文とは少し変えて、年月日（yyyymmdd）が、ファイル名の左にも右にも寄っておらず、任意の文字列の次に記載されていることとします。
ここでは、アンダーバー（_）の次に年月日（yyyymmdd）が記載されているファイル名だとして、テーブルにインポートする際のフルパス使用し、InStrRev関数を使用してアンダーバーはファイルの何番目の文字になるのかを i = InStrRev(FLNM, "_")で表します。
例として、csvファイルのインポートの想定で記します。
Sub date_import2()
DoCmd.SetWarnings False
Dim InRet As Integer ’ダイアログ用変数
Dim FLNM As String ’ファイルの値変数
Dim sql As String
Dim i As Long
With Application.FileDialog(msoFileDialogOpen)
’ダイアログのタイトルを設定
.Title = "任意のタイトル"
’ファイルの種類を選択
.Filters.Clear
.Filters.Add "csvファイル", "*.csv"
.FilterIndex = 1
’複数のファイル選択を許可しない
.AllowMultiSelect = False
’初期パスを設定
.InitialFileName = CurrentProject.Path & "\"
'ダイアログを表示
InRet = .Show
If InRet <> 0 Then
’ファイルが選択されたとき、フルパスを返り値に設定
FLNM = .SelectedItems.Item(1)
Else
’ファイルが選択されなければブランク
FLNM = ""
End If
’ファイルが未選択ならメッセージを出してモジュールを終了
If FLNM = "" Then
MsgBox "ファイルを選択してください"
Exit Sub
’ファイルが選択されたら所定のテーブルにインポート
End If
DoCmd.TransferText acImport, "インポート定義", "テーブル名", FLNM, True
'アンダーバーがファイル名の最初から何番目になるか取得
i = InStrRev(FLNM, "_")
’インポートしたテーブルの任意のフィールドに年月日を取得
sql = "UPDATE テーブル名 SET フィールド名='" & Mid(FLNM, i + 1, 8) & "' WHERE Nz(フィールド名)=''"
DoCmd.RunSQL sql
DoCmd.SetWarnings True
MsgBox "年月日情報をインポートしました"
End With
End Subインポートする時にFileDialogを使い、任意のファイルを選択します。
Accessを使用してると、確認のポップアップが出てくることが多いのですが、それを出したくない時は構文の前後に DoCmd.SetWarnings をFalseにすると、ポップアップが出なくなります。
構文が終わった後や、メッセージボックスを出したい時は Trueにしてポップアップが出るようにします。
DoCmd.SetWarnings False
構文
DoCmd.SetWarnings True