2

複数の '|' をインポートします これで私の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に変換してインポートすることは可能ですか、それとももっと良い方法がありますか? これらのファイルは毎日数十個到着するはずなので、手動で行うことはできません。

4

1 に答える 1