Excel VBA質問箱 IV

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

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


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

【6124】DefaultFilePath 初心者 03/6/17(火) 10:39 質問
【6125】Re:DefaultFilePath つん 03/6/17(火) 11:16 回答
【6126】Re:出来ました。 初心者 03/6/17(火) 11:31 お礼

【6124】DefaultFilePath
質問  初心者  - 03/6/17(火) 10:39 -

引用なし
パスワード
   エクセルファイルを取り込む際に
ダイアログを表示しファイルを選択させ取り込む処理を行ってるのですが
その際、ファイルの保存されているフォルダの場所を指定出来る様にしたく
DefaultFilePath = 'パス付きフォルダ名’と指定し
ダイアログを表示させましたが
どうしてもそのパスに行ってくれません。
一度選択すると次回からは指定した場所が表示されるのですが
それでは意味がありません。
初回から表示されるにはどうしたら良いのでしょうか??
お手数ですがご回答お願いいたします。


Application.DefaultFilePath = "C:\対象データ\新しいフォルダ"
Ofname = Application.GetOpenFilename(fileFilter:="取り込みファイル.csv),*.csv")
If Ofname = False Then
  'ダイアログキャンセル
  Exit Sub
End If

【6125】Re:DefaultFilePath
回答  つん E-MAIL  - 03/6/17(火) 11:16 -

引用なし
パスワード
   初心者 さん、こんにちは

初心者さんが、されたい処理をするには、
「DefaultFilePath」ではなく、「ChDir」を使えばいいと思います。
こんな感じ

  ChDir "C:\WINDOWS\デスクトップ"
  Ofname = Application.GetOpenFilename(fileFilter:="取り込みファイル(*.csv),*.csv")
    
これで、カレントフォルダを、直前に指定できるので、
ファイルを開くダイヤログの、デフォルトのフォルダが、任意のフォルダにできると思います。

「DefaultFilePath」は、私は知らなかったのだけど、
これはどうやら、エクセルの「ツール」−「オプション」のなかの
「全般」の「カレントフォルダ名」を設定/取得するもののようです。

それから、
>Ofname = Application.GetOpenFilename(fileFilter:="取り込みファイル.csv),*.csv")
  この行、間違ってまっせ。
  ここは
Ofname = Application.GetOpenFilename(fileFilter:="取り込みファイル(*.csv),*.csv")
  ですわ♪
    

【6126】Re:出来ました。
お礼  初心者  - 03/6/17(火) 11:31 -

引用なし
パスワード
   ありがとうございます。
出来ました。
もうずぅ〜〜っと悩んでたので大助かりです。
又分からなかったら質問しに来ますので
お願いします。
本当に感謝感謝です。

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