|
ターキー さん、こんにちわ。
>この行の「横浜」フォルダの部分をこのマクロブックのあるフォルダ内から
>選択させたいのです。
フォルダを選択する方法の一つです。
Function FGet(wbp As Variant) As String
'ダイアログを出してフォルダを選択し、その名前を返す関数
Dim Shl As Object, Fol As Object
Set Shl = CreateObject("Shell.Application")
Set Fol = Shl.BrowseForFolder(0, "フォルダを選択して下さい", 0, wbp)
'
If Fol Is Nothing Then
FGet = ""
Else
FGet = Fol.Items.Item.Path
End If
Set Fol = Nothing: Set Shl = Nothing
End Function
'↓関数を呼び出す例
Sub test()
Dim pdat As String
pdat = FGet(Application.ThisWorkbook.Path)
If pdat = "" Then
MsgBox pdat, vbExclamation, "中断"
Else
MsgBox pdat, vbInformation, "選択したフォルダ"
End If
End Sub
こんな感じです。
|
|