VBAでフォルダの選択時のパスを指定するには？| OKWAVE

エクセルVBA、フォルダ選択時のパスを指定するには？

VBAでフォルダを選択する時に以下のマクロを使用しています。これを実行するとデスクトップから表示されますが、任意のフォルダから表示させることはできないでしょうか？用途としてはある特定のフォルダ配下に複数のフォルダがあり、これを選択させたいのです。デスクトップからですと、そのフォルダまで辿り着くのが大変です。また誤ったフォルダを選択する危険もあります。このShell32を使うことにこだわってはいません。他に良い方法があれば、それでも構いません。よろしくお願い申し上げます。 Sub Macro1() MsgBox Folder_Define("フォルダを選択してください") End Sub Function Folder_Define(msg As String) As String Dim mySh As Shell32.Shell Dim myFolder As Shell32.Folder Set mySh = CreateObject("Shell.Application") Set myFolder = mySh.BrowseForFolder(0, msg, 0) If myFolder Is Nothing Then Folder_Define = "" Else Folder_Define = myFolder.Items.Item.Path End If Set myFolder = Nothing Set mySh = Nothing End Function

VBAでのフォルダ指定方法について

ＥＸＣＥＬファイルが保存されているディレクトリ配下のフォルダーを指定できるようにしたくていろいろ試してみたのですが、うまくいきません。どなたか、お知恵をお貸しください。以下ソースです。 Private Sub CommandButton1_Click() Dim ShellApp As Object Dim oFolder As Object Dim MyPath As String MyPath = ActiveWorkbook.Path Set ShellApp = CreateObject("Shell.Application") Set oFolder = ShellApp.BrowseForFolder(0, "処理ファイルの格納フォルダ選択", 1, MyPath) If Not oFolder Is Nothing Then TextBox1.Value = oFolder.Items.Item.Path End If Set ShellApp = Nothing Set oFolder = Nothing End Sub

【Excel VBA】選択フォルダへの相対パス

色々なサイトを参考に、Excel VBAにて以下の様なロジックを作りました。 -------------- Dim SHELL, MYPATH Dim TARGETDIR As String Set SHELL = CreateObject("Shell.Application") Set MYPATH = SHELL.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, ThisWorkbook.Path) If MYPATH Is Nothing Then End TARGETDIR = MYPATH.items.Item.Path Set SHELL = Nothing Set MYPATH = Nothing -------------- ブックのあるパス配下のフォルダを選択して、フルパスを"TARGETDIR"に格納します。質問は2つです。 (1)"～.items.Item.Path"の構文の意味を教えて下さい。 (2)フルパスではなく"ブックのあるパスから見た、選択したフォルダへの相対パス"を知る方法を教えて下さい。よろしくお願いします。

ダイレクトに目的のフォルダを指定する方法は？

全てのフォルダをループするのではなく、ダイレクトに目的のフォルダを指定する方法はありますか？アクセスからアウトルックの該当のフォルダの中身を取得したいのですが下記コードで目的通り取得できるのですがコードが遠回りの気がします。ダイレクトにフォルダを指定する方法があれば教えてください。 Sub test() Dim myNaSp As Namespace Dim myFolder As MAPIFolder Dim mySecFolder As MAPIFolder Dim myThrFolder As MAPIFolder Dim FolderName As String Dim myItem As MailItem Dim myindex As Long Set cn = CurrentProject.Connection Set myNaSp = GetNamespace("MAPI") For Each myFolder In myNaSp.GetDefaultFolder(olFolderInbox).Folders For myindex = 1 To myFolder.Items.Count Set myItem = myFolder.Items(myindex) If myFolder.Name = "ｔｅｓｔフォルダ" Then Debug.Print myItem.Body End If Next Next Set myNaSp = Nothing Set myFolder = Nothing End Sub

VBA　一つのフォルダの中のフォルダ名とファイル名

一つのフォルダの中のフォルダ名とファイル名を取得したい場合は ************************************** Sub test() Dim MyFileName As String Dim MyFolderName As String Dim myFSO As Object Dim MyFolder As Scripting.Folder MyFolderName = "C:\" 'フォルダを取得 MyFileName = Dir(MyFolderName & "*.*") Do While MyFileName <> "" Debug.Print MyFileName MyFileName = Dir() Loop 'ファイルを取得 Set myFSO = CreateObject("Scripting.FileSystemObject") With myFSO With .GetFolder(MyFolderName) For Each MyFolder In .SubFolders Debug.Print MyFolder.Name Next End With End With Set myFSO = Nothing End Sub ************************************** の様にファイル名・フォルダ名をそれぞれループして取得しないとダメでしょうか？もうちょっとスマートなコードはありますか？

フォルダ選択と取得したパスの表示

どうしてもわからないのでご教授お願いします。コマンドボタンを使用して、フォルダの選択のダイアログを表示し、選択したフォルダのパスを取得することはできたのですが、そこから取得したパスを任意のセルに表示させたいです。どうすれば表示させることができるでしょうか。 Private Sub commandbutton1_Click() Dim Shell, myPath Set Shell = CreateObject("Shell.Application") Set myPath = Shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "C:\") If Not myPath Is Nothing Then MsgBox myPath.Items.Item.Path Set Shell = Nothing Set myPath = Nothing End Sub ご教授宜しくお願いします。

エクセルVBAで指定フォルダ内の選択ファイル名の取得

お世話になります。エクセルVBA昨日から始めた初心者です。いま、 Private Sub CommandButton1_Click() Dim Shell, myPath Set Shell = CreateObject("Shell.Application") Set myPath = Shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "\\hk001a24\va\data\ツール") If Not myPath Is Nothing Then MsgBox myPath.Items.Item.Path Set Shell = Nothing Set myPath = Nothing End Sub というの作成したのですが、これだとフォルダの選択しか出来ませんでした。 \\hk001a24\va\data\ツールの下にあるファイルを選択出来て、その選択したファイル名をVBA取得して保持できるようにしたいのですが・・・急いでいるのでここで質問させて頂きました。よろしくお願いします。

ＶＢＡで全ての受信トレイの数ではなく受信メールの数

ＶＢＡで全ての受信トレイの数ではなく受信メールの数を取得する方法は？ Sub めーる数() Dim myNaSp As NameSpace Dim myFolder As MAPIFolder Set myNaSp = GetNamespace("MAPI") Set myFolder = myNaSp.GetDefaultFolder(olFolderInbox) Debug.Print myFolder.Items.Count Set myNaSp = Nothing Set myFolder = Nothing End Sub このコードだと、「受信トレイ」のメールの数しか取得できません。フォルダは画像のように、サブフォルダがあります。この場合、全ての受信メール（受信トレイ+サブフォルダ）の数を取得するにはどうすればいいでしょう？

エクセル VBA フォルダを閉じる

いつもお世話になっております。下記のプロシージャでフォルダを開いているのですが、このフォルダを閉じる場合はどのように記述すればよろしいのでしょうか？よろしくお願いいたします。 Sub opn_fld() Dim myFol As String, mymsg As Integer Dim IE As Object myFol = "C:\ABC\" Shell "C:\Windows\Explorer.exe " & myFol, vbNormalFocus End Sub

フォルダ監視vba

下記、20秒置きにフォルダを監視し、変化があればバックアップのファイルを発動させるマクロを組みました。エクセルを開くとマクロは動くようにしています。初めは動いているのですが、途中から動きません。監視してるフォルダに、ファイルを増やしても、反応がありません。どこかおかしな点、わかる方教えていただけないでしょうか。 Option Explicit Dim previousFiles As Collection Sub StartMonitoring() ' 初回実行時にファイルリストを取得 Set previousFiles = GetFileList() Application.OnTime Now + TimeValue("00:00:20"), "MonitorFolder" End Sub Sub MonitorFolder() Dim currentFiles As Collection Dim fileName As Variant Dim fileAdded As Boolean Dim file As Variant Dim fileArray() As Variant Dim i As Integer fileAdded = False Set currentFiles = GetFileList() ' Collection を配列に変換 ReDim fileArray(1 To currentFiles.Count) i = 1 For Each file In currentFiles fileArray(i) = file i = i + 1 Next file ' 現在のファイルリストと以前のファイルリストを比較 For Each file In fileArray On Error Resume Next If IsEmpty(previousFiles(file)) Then fileAdded = True Exit For End If On Error GoTo 0 Next file If fileAdded Then ExecuteBatchFile MsgBox "File added detected. Batch file executed." End If Function GetFileList() As Collection Dim folderPath As String Dim fileSystem As Object Dim folder As Object Dim file As Object Dim fileList As New Collection folderPath = "C:\Path\To\Your\Folder" ' 監視するフォルダのパスを設定 Set fileSystem = CreateObject("Scripting.FileSystemObject") Set folder = fileSystem.GetFolder(folderPath) For Each file In folder.Files fileList.Add file.Name, file.Name Next file Set GetFileList = fileList End Function Sub ExecuteBatchFile() Dim batchFilePath As String batchFilePath = "C:\Path\To\BackupScript.bat" ' バッチファイルのパスを設定 Shell batchFilePath, vbNormalFocus End Sub ' 現在のファイルリストを保存 Set previousFiles = currentFiles ' 再度監視を開始 StartMonitoring End Sub Private Sub Workbook_Open() StartMonitoring End Sub

実行時エラー　76　パスが見つかりません。

VBAのFileSystemObjectでフォルダをコピーしているのですがフォルダ１は問題なくコピーできるのですが毎回フォルダ２だけは、実行時エラー　76 パスが見つかりません。と言うエラーになってしまいます。 Sub Sample() Dim myFSO As Object Dim MyPath As String MyPath = "C:\" Set myFSO = CreateObject("Scripting.FileSystemObject") myFSO.CopyFolder MyPath & "フォルダ２", MyPath & "新フォルダ２" Set myFSO = Nothing End Sub このようなコードなのですが、フォルダ１もフォルダ２も同じコードを使っています。フォルダ２に関しては容量が１０ＧＢくらいありますが、フォルダが重すぎるのが原因でしょうか？

位置の指定をすることは可能ですか？

VBAでテキストファイルを生成するコードを作ったのですがその際位置の指定をすることは可能ですか？ Sub test() Dim myFSO As New FileSystemObject Dim ts As TextStream Dim MyFileName As String Dim MyPath As String MyPath = MyDesktop & "\" MyFileName = "test.txt" Set myFSO = CreateObject("Scripting.FileSystemObject") Set ts = myFSO.CreateTextFile(MyPath & MyFileName, True) CreateObject("Shell.Application").ShellExecute MyPath & MyFileName 'ここで位置の指定をしたい Set ts = Nothing Set myFSO = Nothing End Sub こんな感じのコードは作成しました。 With MyFileName .Top = 100 .Left = 100 End With みたいな感じで位置の指定は可能ですか？ APIを使わないと無理ですか？

【VBA】【正規表現】

２３歳OLです。 VBAと正規表現についての質問です。 ▼やりたいこと ================================================ 1 | 0 |1234567890 | 2014-2-22 22:22:22.06+09 という数列から 1234567890　という数字のみを抜き出したいです。正確には２本目の|と３本目の|の間に入っている様々な数字です。 ※桁数が固定されていません。 ================================================ ▼実際書いたコード ================================================ Sub Sample2() Dim RE, strPattern As String, i As Long, msg As String, reMatch Set RE = CreateObject("VBScript.RegExp") strPattern = "☆この部分☆" With RE .Pattern = strPattern .IgnoreCase = True .Global = True For i = 1 To 10 Set reMatch = .Execute(Cells(i, 1)) If reMatch.Count > 0 Then msg = msg & reMatch(0).Value & vbCrLf End If Next i End With MsgBox msg Set reMatch = Nothing Set RE = Nothing End Sub ================================================ ☆この部分に☆に何を入れればよいでしょう？ご指導よろしくおねがいします。

フォルダー名一覧を作成するVBAでのエラー

ここで教えていただいたフォルダー名一覧を作成するVBAがあります。共有ドライブやMyDocumentなどのサブフォルダーは綺麗に階層別に抜き出してくれて助かっています。ところが、Cドライブ（ローカルディスク）に対して実行すると必ず「実行時エラー70　書き込みできません」になります。ワークシートにそれまで記入されたフォルダー名を見ると [Config.Msi] となっています。ただエクスプローラで見てもConfig.Msiというフォルダーは見当たりません。おそらく隠しフォルダーなのでしょう。 Cドライブを検索する場合、隠しフォルダーは広わなくてもいいので、エラーにならないようするにはどう直せばよいのでしょうか？エクセル2000です。 ' [参照設定]・Microsoft Scripting Runtime Option Explicit Private g_cntPATH As Long Sub SEARCH_FOLDER() Dim objFSO As FileSystemObject Dim strPATHNAME As String Dim myObj As Object Dim myDir As String Set myObj = CreateObject("Shell.Application"). _ BrowseForFolder(0, "フォルダを選択してください", 0) If myObj Is Nothing Then Exit Sub If myObj = "デスクトップ" Then myDir = CreateObject("WScript.Shell").SpecialFolders("Desktop") Else myDir = myObj.Items.Item.Path End If strPATHNAME = myDir Cells.ClearContents Set objFSO = New FileSystemObject Call SEARCH_SUB_FOLDER(objFSO.GetFolder(strPATHNAME), 0, 0) Set objFSO = Nothing MsgBox "処理が完了しました。" & vbCr & vbCr & _ "フォルダ数=" & g_cntPATH & vbCr, vbInformation End Sub 'フォルダ単位のサブ処理(再帰動作,引数はFile-Object,行,カラム) Private Sub SEARCH_SUB_FOLDER(ByVal objPATH As Folder, ByRef GYO As Long, ByVal COL As Long) Dim objPATH2 As Folder g_cntPATH = g_cntPATH + 1 '参照フォルダ数を加算 GYO = GYO + 1 ' 行を加算 COL = COL + 1 ' カラムを加算 Cells(GYO, COL).Value = "[" & objPATH.Name & "]" For Each objPATH2 In objPATH.SubFolders 'サブフォルダを探索するループ処理 Call SEARCH_SUB_FOLDER(objPATH2, GYO, COL) 'フォルダ単位のサブ処理(再帰呼び出し) ’←ここでエラー Next objPATH2 Set objPATH = Nothing ' 参照OBJECTを破棄 End Sub

VBAマクロ　Path名取得について

msoFileDialogFilePickerで選択したファイルのフォルダ名を取得したいのですが、エラーが出てしまいます。初歩的な話かと思いますが、解決できず困っています。よろしくお願い致します。 --------------------------------------- Dim Pfile as String Dim fName as String, fPath as String Set objDialog = Application.FileDialog(msoFileDialogFilePicker) If objDialog.Show Then Pfile = objDialog.SelectedItems(1) End If 　　 Set objDialog = Nothing fName = Dir(Pfile) fPath = Workbooks(fName).Path ↑ここで、「インデックスが有効範囲にありません」

エクセルVBAで質問です

下のコードをみつけました。質問が二つあります。１．エラーになります。実行するとユーザー定義型は定義されていません、と出ます。どこが不具合でしょうか？おなじように記述したつもりですが・・・２．コードでは、Cドライブの中にあるフォルダに固定されていますが、これをウィンドウを表示させて、検索したいフォルダを選択させて調べるようにできますか？どうぞよろしくお願いします。 Sub フォルダ取得() Dim myFSO As New FileSystemObject Dim myFolders As Folders Dim myFolder As folder Dim i As Integer Set myFolders = myFSO.GetFolder("C:\").SubFolders i = 1 For Each myFolder In myFolders Cells(i + 1, 1).Value = myFolder.Name i = i + 1 Next End Sub

OutLookVBA　指定のフォルダをアクティブ化

こんばんは、よろしくお願いいたします。 OUTLOOK VBAで指定のフォルダをアクティブにするコードが分かりません。 Windows:VISTA OutLook:2007 ○.Display とすると、別ウィンドウが立ち上がってそのフォルダが表示されます。 ○.Activate とするとエラーになります。別ウィンドウではなくアクティブフォルダが遷移する、とするにはそうすればいいでしょうか？ご指導お願いいたします。 Sub foldpl() Dim ns As NameSpace Dim mf As MAPIFolder Set ns = GetNamespace("MAPI") Set mf = ns.Folders("個人用フォルダ").Folders("送信済みアイテム") mf.Display '別ウィンドウで表示されてしまします Set mf = Nothing Set ns = Nothing End Sub

エクセルならうまく行くのですがアクセスだとエラーに

エクセルならうまく行くのですがアクセスだとエラーになるのですがなぜでしょうか？フォルダに入ってるフォルダ名を全て取得して一つにつなげたいのですが Sub フォルダ名を取得() 参照設定：Microsoft Scripting Runtime Dim MyFSO As Object Dim MyGetFolder As String Dim MyFolderName As String Dim MyFolder As Folder Dim i As Long MyGetFolder = "D:\My Documents" Set MyFSO = CreateObject("Scripting.FileSystemObject") With MyFSO With .GetFolder(MyGetFolder) For Each MyFolder In .SubFolders MyFolderName = MyFolderName & "," & MyFolder.Name Next End With End With MsgBox MyFolderName Set MyFSO = Nothing End Sub これを実行するとアクセスだと For Each MyFolder In .SubFolders で、実行時エラー13　型が一致しません。になります。エクセルもアクセスも参照設定：Microsoft Scripting Runtimeにチェックを入れています。コードはネットで拾ってきたコードです。オフィスの種類は2003・OSはXPです。

Ｆｏｌｄｅｒオブジェクトでsubfoldersプロパティが使えない

Excel2000のVBAで、ユーザーがダイアログで選択したフォルダのサブフォルダのコレクションを取得しようとしています。次のようなコード１にしたら、oFolderオブジェクトでは「Subfoldersプロパティをサポートしていない」旨のエラーが出ます。そこで、もう一段関数をかませて、その関数中でSet oFileSys = CreateObject("Scripting.FileSystemObject") 　　　Set folder1 = oFileSys.GetFolder(folder_name)のようにして、別途ｆｏｌｄｅｒオブジェクトを作成し、コード１の「colFolder」へ返すようにしてみたところ、うまく動きました。下記コード１中の「oFolder」と上の関数内の「folder1」は、いずれもFolderオブジェクトなのに、プロパティの種類が違うのはなぜでしょうか？ちなみに、オブジェクトブラウザで調べると、Folderクラスには、subfoldersプロパティというのが確かにありません！が、ＶＢのヘルプにはしっかりとFolderオブジェクトの中にSubfoldersプロパティが載っています。＜コード1＞ Function フォルダ選択(メッセージ As String) As Object Dim oShell As Object，oFolder As folder，colFolder As Object Set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(0, メッセージ, 1, "S:\") 　 If Not (oFolder Is Nothing) Then Set colFolder = oFolder.subfolders Set フォルダ選択=colFolder Else MsgBox "フォルダを選択しないと継続できません。" End；End If；END　SUB

エクセルVBA　ファイル取得方法？

エクセル２０００のVBAにて外付ハードディスクにあるファイルを取得しようとして、下記のように書き込みました。 Private Sub CommandButton1_Click() Dim myFSO As New FileSystemObject Dim myFolder As Folder Dim myFiles As Files Dim myFile As File Set myFolder = myFSO.GetFolder("L:\製品実現プロセス書類\作業標準書\ ComboBox1") Set myFiles = myFolder.Files For Each myFile In myFiles ComboBox2.AddItem myFile.Name Next End Sub Private Sub UserForm_Initialize() Dim myFSO As New FileSystemObject Dim myFolders As Folders Dim myFolder As Folder Set myFolders = myFSO.GetFolder("L:\製品実現プロセス書類\作業標準書\").SubFolders i = 1 For Each myFolder In myFolders ComboBox1.AddItem myFolder.Name Next ComboBox1.ListIndex = 0 '初期値 End Sub コンボボックス１にはフォームを開いたときにハードディスクLの製品実現プロセス書類フォルダ内の作業標準書フォルダー内のフォルダをすべてを書き込むようして、コンボボックス２にはコマンドボタン１をクリックしたときにコンボボックス１で選択したフォルダ内のファイルを取得したいのですがパスが見つかりませんのエラーが出ます。たぶん、コンボボックス１の書き込み方を間違えていると思いますがわかりません？？教えていただけないでしょうか？

VBAでフォルダの選択時のパスを指定するには？

みんなの回答

補足 2007/11/17 19:37

関連するQ&A

エクセルVBA、フォルダ選択時のパスを指定するには？

VBAでのフォルダ指定方法について

【Excel VBA】選択フォルダへの相対パス

ダイレクトに目的のフォルダを指定する方法は？

VBA　一つのフォルダの中のフォルダ名とファイル名

フォルダ選択と取得したパスの表示

エクセルVBAで指定フォルダ内の選択ファイル名の取得

ＶＢＡで全ての受信トレイの数ではなく受信メールの数

エクセル VBA フォルダを閉じる

フォルダ監視vba

実行時エラー　76　パスが見つかりません。

位置の指定をすることは可能ですか？

【VBA】【正規表現】

フォルダー名一覧を作成するVBAでのエラー

VBAマクロ　Path名取得について

エクセルVBAで質問です

OutLookVBA　指定のフォルダをアクティブ化

エクセルならうまく行くのですがアクセスだとエラーに

Ｆｏｌｄｅｒオブジェクトでsubfoldersプロパティが使えない

エクセルVBA　ファイル取得方法？

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

VBAでフォルダの選択時のパスを指定するには？

みんなの回答

補足 2007/11/17 19:37

関連するQ&A

エクセルVBA、フォルダ選択時のパスを指定するには？

VBAでのフォルダ指定方法について

【Excel VBA】選択フォルダへの相対パス

ダイレクトに目的のフォルダを指定する方法は？

VBA 一つのフォルダの中のフォルダ名とファイル名

フォルダ選択と取得したパスの表示

エクセルVBAで指定フォルダ内の選択ファイル名の取得

ＶＢＡで全ての受信トレイの数ではなく受信メールの数

エクセル VBA フォルダを閉じる

フォルダ監視vba

実行時エラー 76 パスが見つかりません。

位置の指定をすることは可能ですか？

【VBA】【正規表現】

フォルダー名一覧を作成するVBAでのエラー

VBAマクロ Path名取得について

エクセルVBAで質問です

OutLookVBA 指定のフォルダをアクティブ化

エクセルならうまく行くのですがアクセスだとエラーに

Ｆｏｌｄｅｒオブジェクトでsubfoldersプロパティが使えない

エクセルVBA ファイル取得方法？

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

VBA　一つのフォルダの中のフォルダ名とファイル名

実行時エラー　76　パスが見つかりません。

VBAマクロ　Path名取得について

OutLookVBA　指定のフォルダをアクティブ化

エクセルVBA　ファイル取得方法？