Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


42057 / 76736 ←次へ | 前へ→

【39750】csvファイルに書き出す場所を選択する方法
質問  an  - 06/6/30(金) 13:44 -

引用なし
パスワード
   いつもお世話になっております。

テキストファイルをインポートして編集したデータを
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

0 hits

【39750】csvファイルに書き出す場所を選択する方法 an 06/6/30(金) 13:44 質問
【39753】Re:csvファイルに書き出す場所を選択... neptune 06/6/30(金) 14:22 回答
【39789】Re:csvファイルに書き出す場所を選択... an 06/6/30(金) 23:37 お礼
【39754】Re:csvファイルに書き出す場所を選択す... ハト 06/6/30(金) 14:32 回答
【39759】Re:csvファイルに書き出す場所を選択す... an 06/6/30(金) 15:49 お礼

42057 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free