Access (VBA)

Access VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Home : Access 2016)
(.txt)テキストファイルをエクスポートしたい。
投稿日時: 21/06/03 16:22:10
投稿者: やっほー

Excelファイルはエクスポートできますが、
テキストファイル(.txt)をエクスポートしたいのです。
ツールの参照設定もどこへチェックを入れて良いか、わかりません。
ご指導をよろしくお願い致します。
 
Private Sub _Click()
 DoCmd.RunCommand acCmdAppMinimize 'Accessウィンドウの最小化
     
    Dim sFina1 As String
     
    sFina1 = SaveFile_FileDialog1
     
    If sFina1 <> "" Then
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "T_データ", sFina1
    End If
     
End Sub
 
Public Function SaveFile_FileDialog1() As String
    Dim oexcel1 As New Excel.Application
    Dim sfile1 As String
     
    sfile1 = oexcel1.GetSaveAsFilename( _
        FileFilter:="Excelファイル,*.xls,全てのファイル,*.*", _
        FilterIndex:=1, _
        InitialFileName:="データ.xls", _
        Title:="名前を付けて保存")
 
    If sfile1 = "False" Then
        SaveFile_FileDialog1 = ""
    Else
        SaveFile_FileDialog1 = sfile1
    End If
     
    Set oexcel1 = Nothing
     
'メッセージボックスを表示する→時間で閉じる
 
    Dim WSH1 As Object
     
    Set WSH1 = CreateObject("WScript.Shell")
     
    WSH1.PopUp "データを出力しました。", 1, "データ", vbInformation
     
    Set WSH1 = Nothing
     
    DoCmd.RunCommand acCmdAppRestore 'Accessウィンドウも元に戻す
      
End Function

回答
投稿日時: 21/06/04 12:09:04
投稿者: sk

引用:
Excelファイルはエクスポートできますが、
テキストファイル(.txt)をエクスポートしたいのです。

区切り記号付き可変長テキストファイルと固定長テキストファイルの
どちらの形式としてエクスポートなさりたいのかが不明ですが、
基本的には TransferText メソッドを使用なさればよろしいでしょう。

投稿日時: 21/06/04 12:19:24
投稿者: やっほー

sk さんの引用:
引用:
Excelファイルはエクスポートできますが、
テキストファイル(.txt)をエクスポートしたいのです。

区切り記号付き可変長テキストファイルと固定長テキストファイルの
どちらの形式としてエクスポートなさりたいのかが不明ですが、
基本的には TransferText メソッドを使用なさればよろしいでしょう。

 
ご連絡ありがとうございます!
区切り記号付き可変長テキストファイルでお願いいたします。
どこの部分をTransferText メソッドに変更すれば良いのでしょうか?

投稿日時: 21/06/06 00:07:29
投稿者: やっほー

引用:
区切り記号付き可変長テキストファイルと固定長テキストファイルの
どちらの形式としてエクスポートなさりたいのかが不明ですが、
基本的には TransferText メソッドを使用なさればよろしいでしょう。
 
失礼いたします。解決されておりません。
ご連絡ありがとうございます!
区切り記号付き可変長テキストファイルでお願いいたします。
どこの部分をTransferText メソッドに変更すれば良いのでしょうか?

トピックに返信