Call GetSubDirでの 任意のセル参照方法について

質問

はじめまして
Excel VBAで、社内の共有サーバのフォルダサイズを確認するようなものを作ったのですが、社員に必要なサーバ名を、VBAの記述を直に変更させたくないので、EXCELの任意のセルに、サーバ名を記述させて、そのセルを参照させる方法を教えていただけませんか？

今組んでいるVBAは以下の通りです。
==============================================================
Function GetSubDir(strTrgDir As String, Optional rRow As Integer)
Dim objFs As Object
Dim objDir As Object
Dim objFile As Object

Set objFs = CreateObject("Scripting.FileSystemObject")
Set objDir = objFs.Getfolder(strTrgDir)
Set objFile = objDir.Files

rRow = 1
Sheets(1).Cells(rRow, 1) = "フォルダ名"
Sheets(1).Cells(rRow, 2) = "サイズ(MB)"
Sheets(1).Cells(rRow, 3) = "作成日"
Sheets(1).Cells(rRow, 4) = "最終アクセス日"
Sheets(1).Cells(rRow, 5) = "最終更新日"

For Each objDir In objDir.SubFolders
If objDir.Attributes <> 22 Then
rRow = rRow + 1
Debug.Print "rRow =" & rRow, "folder =" & objDir.Path, "size =" & Int(objDir.Size / 1024 / 1024) & "Mbyte"

Sheets(1).Cells(rRow, 1) = Mid(objDir.Path, Len(strTrgDir) + 2)
Sheets(1).Cells(rRow, 2) = Int(objDir.Size / 1024 / 1024)
Sheets(1).Cells(rRow, 3) = objDir.DateCreated
Sheets(1).Cells(rRow, 4) = objDir.DateLastAccessed
Sheets(1).Cells(rRow, 5) = objDir.DatelastModified

'Call GetSubDir(objDir.Path, rRow) '←サブフォルダを見に行きます
End If
Next
Set objFs = Nothing
Set objDir = Nothing

MsgBox "終了しました。", vbOKOnly + vbInformation

End Function

Sub chkDir()
Call GetSubDir("\\共有サーバ名\任意フォルダ")

End Sub
==============================================================
この call GetSubDir以下のサーバ名をセル参照にしたいのですが
お知恵を頂ければ幸いです。

よろしくお願いいたします。

回答No.1

DOUGLAS_ · ベストアンサー

＞この call GetSubDir以下のサーバ名をセル参照にしたい
という意味合いがイマイチ判然としませんが、「EXCELの任意のセル」、例えば F1 に、「サーバ名を記述させ」るとすると
Call GetSubDir(Range("F1").Value)
というようなことになるかと存じます。

　しかし、
＞EXCELの任意のセルに、サーバ名を記述させ
るためには、社員さんが、正確な「サーバ名」を記憶していなければならず、どちらかと申せば、こちらの方が問題かと存じます。

　ということで、いきなり
Call GetSubDir("\\共有サーバ名\任意フォルダ")
するのではなくて、フォルダ選択ダイアログ を表示して、そこから選択してもらう、というのはいかがでしょうか？

Sub chkDir()
　Dim myPath As Object
　Set myPath = CreateObject("Shell.Application") _
　　.BrowseForFolder(&O0, "サーバ/フォルダを選択してください。", &H11, "\\共有サーバ名\")
　If myPath Is Nothing Then Exit Sub
　Call GetSubDir(myPath.Items.Item.Path)
　Set myPath = Nothing
End Sub

「, "\\共有サーバ名\"」は無い方がよいのかも知れません。

お礼

DOUGLAS_様
初めまして
さっそくご回答頂きありがとうございます。

＞　しかし、
＞＞EXCELの任意のセルに、サーバ名を記述させ
＞るためには、社員さんが、正確な「サーバ名」を記憶していなければな
＞らず、どちらかと申せば、こちらの方が問題かと存じます。

至極ごもっともなご指摘と存じます。

早速行ってみましたが、「フォルダの参照」ダイアログボックスに
「新しいフォルダの作成(N)」ボタンが表示されるので、これを表示しないように出来ればと思っていますが
ダイアログボックスの内容を指示させる方法が最善と存じます。
適切なご指摘、且つアドバイスを賜りありがとうございました。

回答No.2

DOUGLAS_

＞「, "\\共有サーバ名\"」は無い方がよいのかも知れません
＞「新しいフォルダの作成(N)」ボタンが表示されるので、これを表示しない
Set myPath = CreateObject("Shell.Application") _
.BrowseForFolder(&O0, "サーバ/フォルダを選択してください。", &H200, &H12)