Excel VBA質問箱 IV

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

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


38725 / 76732 ←次へ | 前へ→

【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

こんな感じです。
1 hits

【42960】複数のテキストファイルを読み込んで特定の行だけ表示させるには ターキー 06/9/28(木) 0:46 質問
【42962】Re:複数のテキストファイルを読み込んで... ハチ 06/9/28(木) 9:24 発言
【42996】Re:複数のテキストファイルを読み込んで... ターキー 06/9/28(木) 21:29 お礼
【42965】Re:複数のテキストファイルを読み込んで特... だるま 06/9/28(木) 10:14 回答
【42998】Re:複数のテキストファイルを読み込んで特... ターキー 06/9/28(木) 21:34 お礼
【43010】Re:複数のテキストファイルを読み込んで特... だるま 06/9/29(金) 9:02 回答
【43040】Re:複数のテキストファイルを読み込んで特... ターキー 06/9/30(土) 0:22 お礼
【43059】Re:複数のテキストファイルを読み込んで特... ターキー 06/10/1(日) 2:30 質問
【43098】Re:複数のテキストファイルを読み込んで特... ハチ 06/10/2(月) 11:30 発言
【43120】Re:複数のテキストファイルを読み込んで特... ターキー 06/10/2(月) 22:10 お礼
【43111】Re:複数のテキストファイルを読み込んで特... だるま 06/10/2(月) 16:00 回答
【43122】Re:複数のテキストファイルを読み込んで特... ターキー 06/10/2(月) 22:25 質問
【43140】Re:複数のテキストファイルを読み込んで特... りん@昼休憩 06/10/3(火) 12:25 回答
【43153】Re:複数のテキストファイルを読み込んで特... ターキー 06/10/3(火) 21:31 お礼
【43154】Re:複数のテキストファイルを読み込んで特... ターキー 06/10/3(火) 21:37 お礼

38725 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free