1

テーブルを.txtファイルにエクスポートして、フルフィルメント ソフトウェアにロードしようとしています。使った

DoCmd.TransferText acExportDelim, "", "[Table Name]", "[Export Path Name]", False

そしてそれはうまくいきました。ただし、小さな問題が 1 つあります。テーブルには 10 個の製品スロットがあり、フルフィルメント ソフトウェアには 5 個しかありません。5 個の製品で顧客情報をエクスポートし、6 個目の製品があるかどうかを確認する方法を見つけたいと思います。VBA正しい場合は、同じ顧客情報を再度エクスポートします。しかし、今回は製品フィールドで6-10.

特定のフィールドのエクスポートや、特定のフィールドを確認する方法については何も見つかりませんでしたが、実行できることはわかっています。

これが曖昧に見える場合は申し訳ありません。私はできる限り説明しようとしました。

この件についてご協力いただきありがとうございます。

4

2 に答える 2

0

それで、あなたの最初の目標は、テーブルを .txt にエクスポートすることですか?

その場合、次のようなレコードセットを使用します。

Public Sub ExportToTxt(varTableYouWantToExport As String, pathFile As String)
    Dim filenumber
    Dim db As Database
    Dim rscurrent As Recordset
    Dim strSQL As String

    Open pathFile For Output As #filenumber
    strSQL = "SELECT * FROM " & varTableYouWantToExport & ";"
    Set db = CurrentDb
    Set rscurrent = db.OpenRecordSet()

    rscurrent.MoveFirst

    While Not rscurrent.EOF
        Print #filenumber, vbCrLf & _
            rscurrent("Product_Id") & ";" _
            rscurrent("Product_Price") ";" _
            ...
        rscurrent.MoveNext
    Wend

    rscurrent.Close
    db.Close

    Close #filenumber
End Sub
于 2013-05-31T10:47:40.117 に答える
0

次のようなクエリを作成DoCmd.TransferTextし、テーブルをエクスポートする代わりにそれを使用してエクスポートすることをお勧めします。

    SELECT CustomerID, Product1, Product2, Product3, Product4, Product5
    FROM [Table Name]
UNION ALL
    SELECT CustomerID, Product6, Product7, Product8, Product9, Product10
    FROM [Table Name]
    WHERE NOT
        (
            (Product6 IS NULL) AND (Product7 IS NULL) AND (Product8 IS NULL)
                AND (Product9 IS NULL) AND (Product10 IS NULL)
        )
于 2013-05-31T11:09:02.147 に答える