Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

42054 / 76736

←次へ　｜　前へ→


	【39753】Re:ｃｓｖファイルに書き出す場所を選択...

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】ｃｓｖファイルに書き出す場所を選択する方法 an 06/6/30(金) 13:44