Excel VBA質問箱 IV

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

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


53296 / 76732 ←次へ | 前へ→

【28252】Re:パスを指定してフォルダを選択させる...
お礼  2月うさぎ  - 05/9/1(木) 13:30 -

引用なし
パスワード
   だるま様、小僧様、ありがとうございました。

使用しているExcelが2000以上の環境ということで、FileDialogが使う、という方法を先輩から教えてもらいました。

Dim StrPath As String
Dim F As FileDialog

StrPath = ThisWorkbook.Path

'ファイルを開くダイアログボックスの表示

  Set F = Application.FileDialog(msoFileDialogOpen)
  F.AllowMultiSelect = False
  F.Filters.Clear
  F.Filters.Add "Microsoft Excelブック", "*.xls"
  F.InitialFileName = StrPath

こんな感じで、思っていたような機能ができました。

よく調べずに投稿してお騒がせしてしまい、すいません。
またよろしくお願いいたします。

1 hits

【28173】パスを指定してフォルダを選択させるには? 2月うさぎ 05/8/30(火) 11:45 質問
【28181】Re:パスを指定してフォルダを選択させるに... だるま 05/8/30(火) 15:46 回答
【28182】Re:パスを指定してフォルダを選択させる... 小僧 05/8/30(火) 15:48 発言
【28252】Re:パスを指定してフォルダを選択させる... 2月うさぎ 05/9/1(木) 13:30 お礼

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