Excel VBA質問箱 IV

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

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


43144 / 76732 ←次へ | 前へ→

【38644】Re:フォルダ選択ダイアログの表示
発言  ichinose  - 06/6/7(水) 17:52 -

引用なし
パスワード
   ▼aaa さん:
こんばんは。


>自パス配下のフォルダ名をダイアログを使用し表示させてセルにフォルダ名のみを表示させたいのですが、APIやShellを使ってもうまくいきません。
うまくいかないコードを見せてください。

私は、よくShellを使いますけど・・(よくでもないか・・)
'====================================
Sub main()
  MsgBox get_folder_path("SelectFolder", ThisWorkbook.Path & "\")
End Sub
'====================================
Function get_folder_path(Optional mes As String = "", Optional 初期値 = 17) As Variant
  Dim fld As Object
  Set fld = CreateObject("Shell.Application").BrowseForFolder(0, mes, 0, 初期値)
  On Error Resume Next
  If Not fld Is Nothing Then
    get_folder_path = fld.items.Item.Path
    If Err.Number <> 0 Then
     get_folder_path = False
     End If
  Else
    get_folder_path = False
    End If

End Function


これでもうまくいきませんか?
1 hits

【38642】フォルダ選択ダイアログの表示 aaa 06/6/7(水) 17:28 質問
【38644】Re:フォルダ選択ダイアログの表示 ichinose 06/6/7(水) 17:52 発言
【38664】Re:フォルダ選択ダイアログの表示 aaa 06/6/8(木) 10:06 質問
【38680】Re:フォルダ選択ダイアログの表示 ハト 06/6/8(木) 14:19 発言
【38691】Re:フォルダ選択ダイアログの表示 aaa 06/6/8(木) 16:23 お礼
【38705】参考までに ハト 06/6/8(木) 18:25 発言
【38649】Re:フォルダ選択ダイアログの表示 inoue 06/6/7(水) 18:54 発言

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