access vba dbfインポート
Option Compare Database
'dbfインポート
Function import_dbf()
Dim Path As String
Dim buf As String, f As Object
Path = InputBox$("dbf格納フォルダ")
buf = Dir(Path & "\*.dbf")
Do While buf <> ""
Debug.Print (Path & "\" & buf)
'テーブルの存在確認
If ExistTable(Replace(buf, ".dbf", "")) Then
'テーブルをドロップ
DoCmd.DeleteObject acTable, Replace(buf, ".dbf", "")
End If
DoCmd.TransferDatabase acImport, "dBase IV", Path, acTable, buf, Replace(buf, ".dbf", "")
buf = Dir()
Loop
msgbox("おわり")
Exit_import_dbf:
Exit Function
Err_import_dbf:
Debug.Print (Err.Description)
MsgBox buf & vbCrLf & Err.Number & " - " & Err.Description
Resume Exit_import_dbf
End Function
'テーブルの存在確認
Public Function ExistTable(TableName As String) As Boolean
On Error Resume Next
ExistTable = CurrentDb.TableDefs(TableName).Name = TableName
End Function
