Ｐａｇｅ 888 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼複数ファイル出力 たつまろ 03/3/17(月) 13:19 ┗Re:複数ファイル出力 ポンタ 03/3/17(月) 16:52 ─────────────────────────────────────── ■題名 ： 複数ファイル出力 ■名前 ： たつまろ <sakuma@hokuto-sys.co.jp> ■日付 ： 03/3/17(月) 13:19 -------------------------------------------------------------------------
| はじめまして。 あるexcelの表があり、そこからセルの取得をし、その結果を 1だったら001.txt 2だったら002.txtと セルの結果毎に出力ファイルを作成したいのですが、 単純に Open→Print→close という記述だと、その結果毎にファイル指定しなければならないのですが、他によい方法はあるのでしょうか？ ご教授のほどよろしくお願いいたします。 |
| たとえば、こういうことですか？ Sub test() Dim FileName As String Dim objText As Object If Range("A1").Value <> "" Then FileName = Format(Range("A1").Value, "000.txt") Set objText = CreateObject("Scripting.FileSystemObject").CreateTextFile(FileName) objText.WriteLine (Range("A1").Value) objText.Close End If End Sub |