Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Access 2010)
インポートするファイルの拡張子のチェックについて
投稿日時: 17/10/02 18:29:41
投稿者: タルタル5050

お世話になっております。
 
ドラッグ&ドロップでCSVファイルをインポートできるようにしています。
インポートするファイルの拡張子が「CSV」以外の場合にエラーメッセージを表示したいのですがどの様にすればよいでしょうか。
 
宜しくお願いします。
 
Win7Pro
Access2010

回答
投稿日時: 17/10/03 09:31:14
投稿者: sk

引用:
ドラッグ&ドロップでCSVファイルをインポートできるようにしています。
インポートするファイルの拡張子が「CSV」以外の場合に
エラーメッセージを表示したいのですがどの様にすればよいでしょうか。

インポートする CSV ファイルの絶対パスを
何らかのコードによって取得なさっているのであれば、
取得した絶対パスの末尾が ".csv" とマッチするか否かを
判別なさればよろしいのでは。
 
-------------------------------------------------------------
 
Dim strPath As String
 
'インポートする csv ファイルの絶対パスを取得
strPath = "C:\FolderName\FileName.csv"
 
'拡張子チェック
If Not strPath Like "*.csv" Then
    MsgBox "選択されたファイルの拡張子が .csv ではありません。", _
           vbExclamation, _
           "エラー"
    Exit Sub
End If
 
'以下に CSV ファイルのインポート処理
 
-------------------------------------------------------------

投稿日時: 17/10/17 17:37:50
投稿者: タルタル5050

返信が遅れて申し訳ありません。
 
skさん、ありがとうございました。
教えて頂きました内容で上手くできました。