| |
▼ごろ さん：
こんにちは。
>「テキストボックスの内容を一度テーブルに入れてそれをエクスポート」
>で合ってますでしょうか？
テーブルに保存する、という目的がエクスポートの為だけ
（今までの履歴を残すとかであれば別ですが）であれば
必要ないと思われます。
「テキスト内容」というテキストボックスの値を「.txt」の形式で出力する例です。
Private Sub 保存ボタン１_Click()
Dim FSO As Object
Dim Tex As Object
Dim OutPath As String
Dim OutFile As String
OutPath = "C:\temp"
OutFile = "test.txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Tex = FSO.CreateTextFile(OutPath & "\" & OutFile)
Tex.WriteLine Me.テキスト内容
Tex.Close
Set Tex = Nothing
Set FSO = Nothing
End Sub
Private Sub 保存ボタン２_Click()
Dim OutPath As String
Dim OutFile As String
OutPath = "C:\temp"
OutFile = "test.txt"
Open OutPath & "\" & OutFile For Output As #2
Print #2, Me.テキスト内容
Close #2
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
