Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38731 / 76738

←次へ　｜　前へ→


	【43140】Re:複数のテキストファイルを読み込んで特定の行だけ表示させるには

りん＠昼休憩 - 06/10/3(火) 12:25 -


	引用なし

	パスワード

ターキーさん、こんにちわ。

>この行の「横浜」フォルダの部分をこのマクロブックのあるフォルダ内から
>選択させたいのです。

フォルダを選択する方法の一つです。

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

こんな感じです。

0 hits

▼

【42960】複数のテキストファイルを読み込んで特定の行だけ表示させるには ターキー 06/9/28(木) 0:46