エクセルのデータをメモ帳に貼り付けて名前を付けて保存する方法

質問

計算が終了したシートからデータをコピーして、それをメモ帳に貼り付けて作成しておいたフォルダの中に名前を付けて保存する方法が知りたいです。
とりあえずフォルダの作成まではできました。

Sub フォルダをつくる()
MkDir "c:\test"
End Sub

上記のフォルダ内に、データをメモ帳に貼り付けて保存していきたいです。
計算が終わったエクセルシートから
「B3:C43、E3:D43、H3:I43、…、KM3:KN43」までの
複数のデータを抽出し、それぞれをメモ帳に貼り付けていきたいので
For ～　Nextをつかってループさせる予定です。
上記のフォルダ内に複数個のテキスト形式のデータを名前を付けながら保存させるプログラムを教えていただきたいです。

回答No.3

kmetu · ベストアンサー

マイドキュメントもしくは
エクセルのオプションのカレントフォルダで設定した場所に保存されています。

お礼

教えていただいたコードを自分なりにアレンジして任意のフォルダに保存できるようになりました。
保存先を指定するためにChdirを用いるとうまくできました。
アドバイスありがとうございました。

回答No.2

kmetu

あくまでも参考です
ブックは利用中の1個しか開いていないという仮定で
B3:C43、E3:D43…というように2列ずつ右に100列50組あると仮定してます。

Sub test()

Dim mFilename As String
Dim mColumn As Integer, NameCount As Integer

mColumn = 2
NameCount = 1

For mColumn = 2 To 102 Step 2
Range(Cells(3, mColumn), Cells(43, mColumn + 1)).Copy
Workbooks.Add
ActiveSheet.Paste
mFilename = "mybook" & NameCount & ".txt"
ActiveWorkbook.SaveAs Filename:= _
mFilename, FileFormat:=xlText, _
CreateBackup:=False
Workbooks(2).Close SaveChanges:=False
NameCount = NameCount + 1
Next i

End Sub

補足

プログラムを実行できました。
質問なのですが、このテキストデータはどこに保存されているのでしょうか？また、保存先のパスを入力すれば任意の場所に保存可能でしょうか？
よろしくお願いします。

回答No.1

kmetu

普通にテキスト形式で保存するのではだめなんですか？

ActiveWorkbook.SaveAs Filename:= _
"Book1.txt", FileFormat:=xlText, _
CreateBackup:=False

補足

テキスト形式で保存できれば問題ないです。
ただ１つのワークブック内にある
「B3:C43、E3:D43、H3:I43、…、KM3:KN43」までの約100個のデータを
１つずつ分けて保存していきたいです。
回答していただいたコードでも可能でしょうか？