複数の '|' をインポートします これで私のDBにファイルを分離しました:
Private Sub cmdImport_Click()
Dim i As Integer
Dim path1 As String
path1 = "C:\ImportFiles"
Destination = "C:\ImportFiles\processed"
Set fs = Application.FileSearch
With fs
.LookIn = Path1
.FileName = "*.*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
DoCmd.TransferText acImportDelim, "ImportRPS", "tbImportRPSTemp", .FoundFiles(i), False
fileName = .FoundFiles(i)
fileName = Replace(fileName, path1, "")
Set fs1 = CreateObject("Scripting.FileSystemObject")
fs1.MoveFile Path1 & fileName, Destination & Format(Now, "YYYYDDMMTHHMMSS") & fileName
Next i
Else
MsgBox "No files to update", vbInformation
Exit Sub
End If
End With
Me.Requery
End Sub
問題は、ファイルが UTF-8 であるのに対し、私が使用しているアクセス データベースは UTF-8 ではないことです。最初のレコードの前に '' を付けてインポートし、テーブルは次のように終了します。
Type Nmbr Date
100 12312 15082013
問題なくファイルをインポートするにはどうすればよいですか? ファイルをANSIに変換してインポートすることは可能ですか、それとももっと良い方法がありますか? これらのファイルは毎日数十個到着するはずなので、手動で行うことはできません。