Excel VBA質問箱 IV

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

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


65523 / 76738 ←次へ | 前へ→

【15790】Re:相対パス
回答  つん E-MAIL  - 04/7/6(火) 16:15 -

引用なし
パスワード
   ああ、すみません。
AとBは同じフォルダじゃなかったんですね。
で、AとBが入ってるフォルダが入ってるフォルダ(ややこしいな(^^;)
は同じフォルダなんですね。

では、ちょっとややこしくなりますね。

>例えば、
>「C:\aaa\bbb\A.xls」
>「C:\aaa\ccc\B.txt」

Sub test()

  Dim strPath As String
  Dim A As Long
  
  strPath = ThisWorkbook.Path
  
  A = InStrRev(strPath, "\")
  
  strPath = Left(strPath, A) & "ccc\B.txt"
  
  MsgBox strPath

End Sub

こんな感じでしょうか?
0 hits

【15775】相対パス まさぼん 04/7/6(火) 14:56 質問
【15778】Re:相対パス つん 04/7/6(火) 15:15 回答
【15779】Re:相対パス まさぼん 04/7/6(火) 15:21 質問
【15781】Re:相対パス IROC 04/7/6(火) 15:34 回答
【15782】Re:相対パス まさぼん 04/7/6(火) 15:41 質問
【15784】Re:相対パス つん 04/7/6(火) 15:49 回答
【15785】Re:相対パス まさぼん 04/7/6(火) 16:02 質問
【15787】Re:相対パス IROC 04/7/6(火) 16:10 回答
【15790】Re:相対パス つん 04/7/6(火) 16:15 回答
【15792】Re:相対パス まさぼん 04/7/6(火) 16:24 お礼

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