ユーザー入力ボックスにフォルダ名を入力し、指定されたディレクトリにフォルダを検索するように設定します。

Question

私はこのコードに必要な方法をどのようにしたらよいか質問します。私は過去3時間を探していて、私が望むことを実行するためにコードを一緒にメッシュする方法を見つけることができませんでした。私がしたいことの概要を以下に示します。

ユーザがマクロを実行し、InputBoxがポップアップし、と表示されます。を入力します。そこから、Application.GetOpenFile（またはこれまでのアプリケーションまたはdir関数）が指定されたディレクトリで、ファイルではなくフォルダで検索を開始したいのですが（同じ名前のフォルダ内に複数のファイルがある可能性があるため）、ユーザーフォルダに移動してから、ユーザーが開く適切なファイルを選択します。その後、ファイルが選択されると、Excelワークシートにそのファイルが開きます。

Answer 1

シェルを使用してみてください。この質問のユーザーbburns.kmの機能は次のとおりですCapture output value from a shell command in VBA?

これは、フォルダとディレクトリの一覧だけを表示するシェルコマンドと組み合わせることで、必要な場所に移動できます。 @DevinTrowbridgeはあなたの提案のために、私はこのショットを与える

Public Function ShellRun(sCmd As String) As String 

    'Run a shell command, returning the output as a string' 

    Dim oShell As Object 
    Set oShell = CreateObject("WScript.Shell") 

    'run command' 
    Dim oExec As Object 
    Dim oOutput As Object 
    Set oExec = oShell.Exec(sCmd) 
    Set oOutput = oExec.StdOut 

    'handle the results as they are written to and read from the StdOut object' 
    Dim s As String 
    Dim sLine As String 
    While Not oOutput.AtEndOfStream 
     sLine = oOutput.ReadLine 
     If sLine <> "" Then s = s & sLine & vbCrLf 
    Wend 

    ShellRun = s 

End Function