ヘッダーとフッターを含むテキストとしてのエクスポートクエリへのアクセス

Question

私は、この問題を高回答と低回答のために、あるいは少なくとも行くためのテンプレートとして研究してきました。

私はMS Access 2007を使用しています。固定幅仕様のテキストファイルとしてクエリをエクスポートする必要があります。私が実行している問題は、エクスポートに特定のヘッダーとフッターを追加する必要があることです。ヘッダーには現在の日付があり、トレーラにはエクスポートされるアイテムの合計が必要です。

私は頭の中ではっきりとしていますが、通常、同様のことをするいくつかのVBAコードと一緒に遭遇する可能性があります。

誰でも手助けできますか？

Answer 1

エクスポートで余分なテキスト行を定義する方法はありません。

あなたは、固定幅形式でクエリをエクスポートするために、TransferSpreadsheetメソッドを使用していると仮定します。これは、通常、フィールドヘッダーの有無にかかわらず、固定幅のコンテンツを生成するための正しいアプローチです。

データコンテンツの前後にファイルに行を追加する場合は、既存のファイルを開いて新しいファイルを作成し、ヘッダ行を追加してから既存のファイルからデータを追加する必要があります新しいファイルに追加し、フッタ行を追加して、両方のファイルを閉じます。

ファイルを操作するための組み込みVBA関数を使用できますが、Scripting.Runtimeライブラリは、ファイルを扱うより直感的でオブジェクト指向の方法を提供しています。あなたがツールでMicrosoftスクリプトランタイムライブラリへの参照を追加する必要があります

...参考...

Sub EnhanceExportedFile() 

    Const exportedFilePath As String = "C:\Foo.txt" 
    Const newFilePath As String = "C:\NewFoo.txt" 

    Dim fso As Scripting.FileSystemObject 
    Dim exportedFile As TextStream 
    Dim newFile As TextStream 
    Dim rowCount As Long 

    Set fso = New Scripting.FileSystemObject 

    Set exportedFile = fso.OpenTextFile(exportedFilePath, ForReading, False) 
    Set newFile = fso.CreateTextFile(newFilePath, True) 

    'Append the date in ISO format 
    newFile.WriteLine Format(Now, "yyyy-mm-dd") 

    'Append each line in the exported file 
    Do While Not exportedFile.AtEndOfStream 
    newFile.WriteLine exportedFile.ReadLine 
    rowCount = rowCount + 1 
    Loop 
    'Append the total exported lines 
    newFile.WriteLine rowCount 

    'Close both files 
    exportedFile.Close 
    newFile.Close 

End Sub 

Answer 2

ユニオンクエリを使用してください。 クエリにフィールドID（自動番号、ロング）、名字、姓があり、テーブル名がtablexxであるとします。シーケンシャルIDがある場合は、次のようになります。

クエリを作成します。 idで0を選択し、idでフォーマット（date（）、 "dd/mm/yyyy"）をfirstname、 "" as lastname "、" nextfield etc etcなどから選択します。

とidによってTableXXテーブルオーダーから（TableXXテーブルから選択数（ID））クエリ
選択9999999999 IDとして（あなたの期待されるIDよりもはるかに大きい）、FIRSTNAMEとして、 "" 姓として、 "" としてnextfieldなどなど;

今、3つの組を構成します。空白行でも（id = 1など）入れることができます。