掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームに入力された値をCSV形式にするには？ (ID：115426)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
みなさんありがとうございます。 参考に作成してみたのですがどうもうまくいきません。 下のプログラムのどこが間違っているか教えていただけないでしょうか？ Option Explicit '概要：各テーブルのデータをCSVファイルに書き込む Private Sub Command1_Click() Dim strFileName As String Dim WriteData As String On Error GoTo Err_subExportFile 'ファイル名の取得 strFileName = CommonDialog1.FileName 'ファイルのオープン Open strFileName For Output As #1 WriteData = Text1 Write #1, WriteData MsgBox "書き込みが正常に終了しました", vbInformation Exit_subExportFile: Close #1 Exit Sub Err_subExportFile: MsgBox "書き込みに失敗しました", vbCritical MsgBox "Error:" & Err.Number & Err.Description, vbCritical Resume Exit_subExportFile End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.