Excel VBA質問箱 IV

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

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


74559 / 76732 ←次へ | 前へ→

【6635】改訂版
発言  Jaka  - 03/7/16(水) 9:13 -

引用なし
パスワード
   >MsgBox Dir(フルパスファイル名, vbDirectory)

上記表現に誤りがありました。
申し訳ございません。

Sub フルパスから()
  Dim FNamFulPas As String
  FNamFulPas = Application.GetOpenFilename("Excelファイル (*.xls), *.xls")
  If FNamFulPas <> "False" Then
    '97以降
    MsgBox Dir(Application.Substitute(FNamFulPas, "\" & Dir(FNamFulPas), ""), vbDirectory)
    '2000以降
    'MsgBox Dir(Replace(FNamFulPas, "\" & Dir(FNamFulPas), ""), vbDirectory)
  End If
End Sub

Sub パッチから()
  Dim FPath As String
  'FPath = ThisWorkbook.Path
  FPath = "C:\Windows\デスクトップ"
  MsgBox Dir(FPath, vbDirectory)
End Sub

0 hits

【3321】マクロを用いて開いたファイルのサブフォルダのパスのみ抽出したいのですが... ntomo 03/1/31(金) 14:20 質問
【3323】Re:マクロを用いて開いたファイルのサブフ... ポンタ 03/1/31(金) 14:58 回答
【3324】Re:マクロを用いて開いたファイルのサブフ... ntomo 03/1/31(金) 15:27 質問
【3327】Re:マクロを用いて開いたファイルのサブフ... Jaka 03/1/31(金) 16:14 回答
【3328】Re:マクロを用いて開いたファイルのサブフ... ntomo 03/1/31(金) 16:32 お礼
【3329】Re:マクロを用いて開いたファイルのサブフ... ポンタ 03/1/31(金) 16:32 発言
【3332】Re:マクロを用いて開いたファイルのサブフ... ichinose 03/1/31(金) 20:55 発言
【3364】Re:マクロを用いて開いたファイルのサブフ... ntomo 03/2/3(月) 9:57 お礼
【6635】改訂版 Jaka 03/7/16(水) 9:13 発言

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