Excel VBA質問箱 IV

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

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


35150 / 76732 ←次へ | 前へ→

【46784】Re:指定フォルダを開く
発言  ichinose  - 07/2/15(木) 8:17 -

引用なし
パスワード
   おはようございます。
まだよくわかりませんが・・・。
新規ブックで試してみてください



参照設定として「Microsoft Internet Controls」にチェックをしてください。

このブックのThisworkbookのモジュールに
'=======================================================
Private WithEvents ep As InternetExplorer
Private ie_end As Boolean
'=======================================================
Function get_selectitem(ByVal mypath As Variant, Optional ByVal myfilter As Variant = "*") As Variant
  Dim fl As Object
  get_selectitem = False
  Set ep = CreateObject("InternetExplorer.Application")
  With ep
   .Visible = True
   .MenuBar = False
   .navigate mypath
   Do While .Busy = True Or .ReadyState <> 4
    DoEvents
    Loop
   With .document
    On Error Resume Next
    ie_end = True
    Do While ie_end = True
      For Each fl In .SelectedItems
       If fl.Name Like myfilter Then
         DoEvents
         get_selectitem = fl.Name
         Exit For
         End If
       Next
      DoEvents
      If TypeName(get_selectitem) <> "Boolean" Then Exit Do
      Loop
    Application.Wait Now() + TimeValue("00:00:02")
    End With
   If ie_end = False Then get_selectitem = False
   DoEvents
   .Quit
   End With
 Set ep = Nothing
End Function
'=======================================================
Private Sub ep_OnQuit()
  DoEvents
  ie_end = False
End Sub


標準モジュールに

'=======================================================
Sub main()
  Dim ans
  ans = ThisWorkbook.get_selectitem("D:\My Documents\TESTエリア\testarea2002")
'フォルダパスを指定する
  DoEvents
  AppActivate Application.Caption
  If TypeName(ans) <> "Boolean" Then
    MsgBox ans
    End If
End Sub


このmainを実行してください。

指定したフォルダが表示されます。
何か選択すると、選択したファイル名が表示されます。
Win2000&Excel2002で確認。

このようなことですか?
4 hits

【46759】指定フォルダを開く ooisi 07/2/14(水) 12:17 質問
【46761】Re:指定フォルダを開く へっぽこ 07/2/14(水) 12:28 発言
【46762】Re:指定フォルダを開く Blue 07/2/14(水) 12:32 質問
【46766】Re:指定フォルダを開く Kein 07/2/14(水) 16:07 回答
【46771】Re:指定フォルダを開く ooisi 07/2/14(水) 20:01 発言
【46772】Re:指定フォルダを開く ichinose 07/2/14(水) 21:05 発言
【46776】Re:指定フォルダを開く ooisi 07/2/14(水) 22:09 発言
【46777】Re:指定フォルダを開く ichinose 07/2/14(水) 22:12 発言
【46778】Re:指定フォルダを開く ooisi 07/2/14(水) 22:25 発言
【46779】Re:指定フォルダを開く りん 07/2/14(水) 22:39 回答
【46780】Re:指定フォルダを開く ooisi 07/2/14(水) 22:56 発言
【46784】Re:指定フォルダを開く ichinose 07/2/15(木) 8:17 発言
【46789】Re:指定フォルダを開く ooisi 07/2/15(木) 13:49 発言
【46791】Re:指定フォルダを開く Kein 07/2/15(木) 14:10 発言
【46793】Re:指定フォルダを開く ooisi 07/2/15(木) 14:45 お礼

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