DoCmd.TransferText メソッド (Access)

[アーティクル]
04/07/2023

TransferText メソッドは、Visual Basic で TransferText アクションを実行します。

構文

expression.TransferText (TransferType, SpecificationName, TableName, FileName, HasFieldNames, HTMLTableName, CodePage)

expression: DoCmd オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
TransferType	Optional	AcTextTransferType	変換の種類を指定します。区切りテキストファイル、固定長テキストファイル、または HTML ファイル間でデータをインポート、エクスポート、リンクすることができます。既定値は acImportDelim です。 Microsoft Access プロジェクト (.adp) では、acImportDelim、acImportFixed、acExportDelim、acExportFixed、または acExportMerge のみサポートされています。
SpecificationName	省略可能	Variant	作成してカレントデータベースに保存したインポートまたはエクスポートの定義名を文字列式で指定します。固定幅テキストファイルの場合、引数を指定するか、schema.ini ファイルを使用する必要があり、この schema.ini ファイルは、インポート、リンク、またはエクスポートを行うテキストファイルと同じフォルダーに格納する必要があります。 schema ファイルを作成するには、テキストのインポート/エクスポートウイザードを使用します。区切りテキストファイルおよび Microsoft Word の差し込み印刷データファイルの場合は、この引数を指定しないで、既定のインポート/エクスポート定義を選択できます。
TableName	省略可能	Variant	テキストデータのインポート先の Access テーブル、テキストデータのエクスポート元の Access テーブル、テキストデータのリンク先の Access テーブル、またはテキストファイルにエクスポートする結果の Access クエリの名前を、文字列式で指定します。
FileName	省略可能	Variant	インポート、エクスポート、またはリンクを行うテキストファイルの、パスを含めた完全な名前を文字列式で指定します。
HasFieldNames	省略可能	Variant	インポート、エクスポート、またはリンクするときにフィールド名としてテキストファイルの最初の行を使用するには、True (1) を使用します。テキストファイルの最初の行を通常のデータとして扱うには、False (0) を使用します。この引数を空白にすると、既定値 (False) と見なされます。 Microsoft Word の宛名の差し込みデータファイルの場合は、この引数は無視され、最初の行には常にフィールド名が含まれます。
HTMLTableName	省略可能	バリアント型	インポートまたはリンクする HTML ファイル内のテーブルまたはリストの名前を文字列式で指定します。 TransferType 引数が acImportHTML または acLinkHTML に設定されている場合を除き、この引数は無視されます。この引数を空白のままにすると、HTML ファイル内の最初のテーブルまたはリストがインポートまたはリンクされます。 CAPTION タグがある場合、HTML ファイル内のテーブルまたはリストの名前は、CAPTION タグで指定されたテキストによって決まります。 CAPTION タグが存在しない場合、この名前は TITLE タグで指定されたテキストによって決まります。複数のテーブルまたはリストの名前が同じ場合、それらを区別するためにそれぞれのテーブルまたはリストの名前の末尾に番号が追加されます。たとえば、Employees1 および Employees2 のようになります。
CodePage 識別子	省略可能	バリアント型	コードページの文字セットを示す長整数型 (Long) の値を指定します。

解説

現在の Access データベースまたは Access プロジェクト (.adp) とテキストファイルとの間でテキストをインポートまたはエクスポートするには、TransferText メソッドを使用します。また、テキストファイルのデータを現在の Access データベースにリンクすることもできます。リンクされたテキストファイルを使えば、ワードプロセッシングプログラムからデータに完全にアクセスできる状態で、Access でテキストデータを表示することができます。また、HTML ファイル (*.html) のテーブルまたはリストをインポート、エクスポート、およびリンクすることもできます。

Access の選択クエリのデータをテキストファイルにエクスポートすることができます。クエリの結果セットもテーブルと同じようにエクスポートされます。

例

次の例では、指定の標準出力を使用して、Access テーブル External Report のデータを区切り記号付きテキストファイル April.doc にエクスポートします。

DoCmd.TransferText acExportDelim, "Standard Output", _ 
    "External Report", "C:\Txtfiles\April.doc"

次のコードでは、新しい Microsoft Word 文書を作成し、Customers テーブルに格納されているデータを使用して差し込み印刷を実行する方法を示します。

Public Sub DoMailMerge(strFileSavePath As String)

    ' Create new Word App, add a document and set it visible
    Dim wdApp As New Word.Application
    wdApp.Documents.Add
    wdApp.Visible = True

    ' Open the data set from this database
    wdApp.ActiveDocument.MailMerge.OpenDataSource _
        Name:=Application.CurrentProject.FullName, _
        OpenExclusive:=False, _
        LinkToSource:=True, _
        Connection:="TABLE Customers", _
        SQLStatement:="SELECT Customers.* FROM Customers;"
              
    ' Add fields to the mail merge document
    Dim oSel As Object
    Set oSel = wdApp.Selection
    With wdApp.ActiveDocument.MailMerge.Fields
    
        oSel.TypeText vbNewLine & vbNewLine
        .Add oSel.range, "First_Name"
        oSel.TypeText " "
        .Add oSel.range, "Last_Name"
        oSel.TypeText vbNewLine
        .Add oSel.range, "Company"
        oSel.TypeText vbNewLine
        .Add oSel.range, "Address"
        oSel.TypeText vbNewLine
        .Add oSel.range, "City"
        oSel.TypeText ", "
        .Add oSel.range, "State"
        oSel.TypeText " "
        .Add oSel.range, "Zip"
        oSel.TypeText vbNewLine
        oSel.TypeParagraph
        oSel.TypeText "Dear "
        .Add oSel.range, "First_Name"
        oSel.TypeText ","
        oSel.TypeText vbNewLine
        oSel.TypeParagraph
        oSel.TypeText "We have created this mail just for you..."
        oSel.TypeText vbNewLine
        oSel.TypeText vbNewLine
        oSel.TypeText "Sincerely," & vbNewLine & "John Q. Public"
        oSel.TypeText vbFormFeed
        
    End With
    
    ' Execute the mail merge and save the document
    wdApp.ActiveDocument.MailMerge.Execute
    wdApp.ActiveDocument.SaveAs strFileSavePath
        
    ' Close everything and Cleanup Variables
    Set oSel = Nothing
    wdApp.ActiveDocument.Close False
    Set wdApp = Nothing

End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

次の方法で共有

DoCmd.TransferText メソッド (Access)

構文

パラメーター

解説

例

サポートとフィードバック

フィードバック

その他のリソース