Excel VBA質問箱 IV

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

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


7328 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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

【39753】Re:csvファイルに書き出す場所を選択...
回答  neptune  - 06/6/30(金) 14:22 -

引用なし
パスワード
   ▼an さん:

>読み込むときは、GetOpenFilenameを使っておりますが、
>書き出しと保存先を選択できるようにする方法をアドバイス
>頂けると大変助かります。
そういう場合には関数化すると便利です。
サンプルです。

'使い方
Sub t()
Dim filepath As String
  filepath = GetFilePath
End Sub

'これは最低必要限しか書いてないので、目的に合わせて改造は必用です。
Public Function GetFilePath() As String
Dim sBuf As String
  GetFilePath = Application.GetOpenFilename("テキスト ファイル (*.txt), *.txt")

End Function

【39754】Re:csvファイルに書き出す場所を選択...
回答  ハト  - 06/6/30(金) 14:32 -

引用なし
パスワード
   おはようございます

>"C:\temp\Data.txt"の部分を選択させるにはどのように
>すれば宜しいでしょうか?
>
>読み込むときは、GetOpenFilenameを使っておりますが、
>書き出しと保存先を選択できるようにする方法をアドバイス
>頂けると大変助かります。

GetSaveAsFilename
を使ってみてはどうでしょうか?

  MyF = Application.GetSaveAsFilename("", "テキスト ファイル (*.txt), *.txt")

【39759】Re:csvファイルに書き出す場所を選択...
お礼  an  - 06/6/30(金) 15:49 -

引用なし
パスワード
   ▼ハト さん:

ありがとうございます!!

完璧に出来ました<m(__)m>

本当に助かります、今後とも宜しくお願いいたします。

【39789】Re:csvファイルに書き出す場所を選択...
お礼  an  - 06/6/30(金) 23:37 -

引用なし
パスワード
   ▼neptune さん:

アドバイスありがとうございます。

まだまだ勉強が足りず、改良することができません。
(選択は出来ますが、ファイルに書き込みができないです。)

もう少し勉強してみます。

今後とも宜しくお願いいたします。

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