

No.1ベストアンサー
- 回答日時:
https://oshiete.goo.ne.jp/qa/9769452.html
の回答を参考にして作りました。
Sub makeText2()
Dim ans As Integer
Dim fileName As String
Dim i, fileNo As Integer
fileName = ActiveWorkbook.Path & "\data"
i = 1
fileNo = 1
With ActiveSheet
Do While .Cells(i, 1).Value <> ""
Open (fileName & fileNo & ".txt") For Output As #1
Print #1, .Cells(i, 1).Value
Print #1, .Cells(i + 1, 1).Value
Close #1
i = i + 2
fileNo = fileNo + 1
Loop
End With
MsgBox fileNo - 1 & "個のファイルを書き出しました。"
End Sub
の回答を参考にして作りました。
Sub makeText2()
Dim ans As Integer
Dim fileName As String
Dim i, fileNo As Integer
fileName = ActiveWorkbook.Path & "\data"
i = 1
fileNo = 1
With ActiveSheet
Do While .Cells(i, 1).Value <> ""
Open (fileName & fileNo & ".txt") For Output As #1
Print #1, .Cells(i, 1).Value
Print #1, .Cells(i + 1, 1).Value
Close #1
i = i + 2
fileNo = fileNo + 1
Loop
End With
MsgBox fileNo - 1 & "個のファイルを書き出しました。"
End Sub
この回答へのお礼
お礼日時:2017/05/25 10:49
早速の回答ありがとうございます。
このとおりの式で完璧にできました!!
もう一つ質問なのですが、作業によって対象の行が増えた場合
例.2行づつ→3行~5行等
数式の変更が必要なところは、どちらになりますでしょうか?
色々いじってみましたが・・・2行づつにしかならないので;;
お手数ですが教えて下さい。

No.2
- 回答日時:
3行単位で出力の場合
Print #1, .Cells(i, 1).Value
Print #1, .Cells(i + 1, 1).Value
Print #1, .Cells(i + 2, 1).Value ・・・・①を追加
Close #1
i = i + 3 ・・・・②この行を2→3に変更
4行単位で出力の場合
Print #1, .Cells(i, 1).Value
Print #1, .Cells(i + 1, 1).Value
Print #1, .Cells(i + 2, 1).Value ・・・・①を追加
Print #1, .Cells(i + 3, 1).Value ・・・・②を追加
Close #1
i = i + 4 ・・・・③この行を2→4に変更
のようにしてください。
この回答へのお礼
お礼日時:2017/05/25 12:14
神様!
ご回答ありがとうございます!!
できました!
法則がわかりましたので、これを元に自分での勉強も頑張ります!
本当にありがとうございます!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでワークシートを引数として...
-
多数のサブディレクトリ内のフ...
-
.txtではなく.logの方が良いの...
-
エクセルの各セルの内容をそれ...
-
バッチ処理でファイルの中身を...
-
拡張子を元に戻す
-
バッチファイル 複数ファイル...
-
テキストファイルへ半永久的に...
-
psqlでエラーログをとりたい
-
VBSで、テキストファイルに対し...
-
accessでSQL文を使ってcsvファ...
-
forfilesで検索したファイルを...
-
バッチファイルからVBAに引数を...
-
バッチファイルで文字列削除に...
-
【csh】ファイルの中の値を配列...
-
ファイルのワイルドカードについて
-
ExcelVBA テキストファイルUNIC...
-
DOSコマンドによるテキストファ...
-
ファイル内容の修正、行削除に...
-
ファイルの最後に文字列挿入
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理でファイルの中身を...
-
.txtではなく.logの方が良いの...
-
VBAでワークシートを引数として...
-
テキストファイルで提出とは?
-
多数のサブディレクトリ内のフ...
-
ファイル名の一部をbatで変更し...
-
ファイル内容の修正、行削除に...
-
拡張子を元に戻す
-
エクセルの各セルの内容をそれ...
-
psqlでエラーログをとりたい
-
ファイルの最後に文字列挿入
-
COPYコマンドで結合すると余計...
-
Windows マシンでFTPバッチが動...
-
バッチファイルで文字列削除に...
-
バッチファイル 複数ファイル...
-
UWSCでテキストファイルを開い...
-
ExcelVBA テキストファイルUNIC...
-
VBSでフォルダ内のテキストファ...
-
外部exeに対しての引数受け渡し
-
accessでSQL文を使ってcsvファ...
おすすめ情報