|
いつもお世話になっております。
テキストファイルをインポートして編集したデータを
CSVファイルに保存する作業を自動化したいと思って
おります。
過去ログから、以下のプログラムを参考にさせて頂き
たいと思っておりますが、subを抜かして4行目の
"C:\temp\Data.txt"の部分を選択させるにはどのように
すれば宜しいでしょうか?
読み込むときは、GetOpenFilenameを使っておりますが、
書き出しと保存先を選択できるようにする方法をアドバイス
頂けると大変助かります。
Sub Data_Exp()
Dim C As Range
Dim SAry As Variant
Dim Buf As String
Const MyF As String = "C:\temp\Data.txt"
If Dir(MyF) <> "" Then Kill MyF
Open MyF For Output Access Write As #1
For Each C In Range("A1", Range("A65536").End(xlUp))
With WorksheetFunction
SAry = .Transpose(.Transpose(C.Resize(, 4).Value))
End With
Buf = Join(SAry, ",")
Print #1, Buf
Erase SAry
Next
Close #1
End Sub
|
|