Excel VBA質問箱 IV

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

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


42050 / 76732 ←次へ | 前へ→

【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
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 お礼

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