ドライブが違ってもファイルが正常に開けるようする

質問

windows7 Excel2007を使って、みようみまねでマクロ作成の初心者です。
　現在　遠方の知人とEXCELブックのやり取りをしています。
　　フォルダの中にＡ・Ｂ・Ｃブックとマクロ記入用のＤブックが入っており
　　これをフォルダごと送っています。双方とも以下のマクロで開いています。

　　Sub Ｅァイルを開く()
Dim wb As Workbook
On Error Resume Next
'開いて作業中の場合
Set wb = Workbooks("Ｅファイル.xls")
On Error GoTo 0
If wb Is Nothing Then
Set wb = Workbooks.Open(ThisWorkbook.Path & "\Ｂフォルダ名\Ｅファイル.xls")
End If
End Sub

　　変更　私のマイドキュメントを外付けハードディスクのＨドライブに移動する。
　　　　　　　￥Ｈ￥マイドキュメント￥計算処理
　　　　　知人のマイドキュメントを外付けハードディスクのＦドライブに移動する。
　　　　　　　￥Ｆ￥マイドキュメント￥計算処理
　　　　　そしてやり取りは、マクロ記入のＤブックのみとする。

　　そしてやりたいことは、双方のパソコンでエラーなくファイルを開けるようにしたいのです。試行錯誤的にコード書きましたがうまくいきません。どうコードを書いたらよろしいでしょうか？

Sub 　Ｅファイルを開く()
Dim wb As Workbook
On Error Resume Next
ChDrive "F"
''フォルダが存在するかどうか調べます
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists("..\計算処理") Then
'開いて作業中の場合。
Set wb = Workbooks("Ｅファイル.xls")
On Error GoTo 0
If wb Is Nothing Then
Set wb = Workbooks.Open(ThisWorkbook.Path & "\Ｂフォルダ名\Ｅファイル.xls")
End If
Else
ChDrive "Ｈ"
ChDir "計算処理"
'開いて作業中の場合。
Set wb = Workbooks("Ｅファイル.xls")
On Error GoTo 0
If wb Is Nothing Then
Set wb = Workbooks.Open(ThisWorkbook.Path & "\Ｂフォルダ名\Ｅファイル.xls")
End If
Set FSO = Nothing
End If
End Sub

回答No.1

imogasi · ベストアンサー

質問の意味がわからない。初心者あるため、旨く表現できてないのでは。
ドライブ・レターを求めるのは「.Drive」で求められます（FSO)。しかしこれはファイルへのフルパスやフォルダへのフルパスを指定して、変数に「C」のようなもの（ドライブ名、ドライブレター）を持ってくるものです
ーー
フルパスの先頭にC:やD:が来る訳ですが、この部分を変数化・相対化したいというだけの話ではないですか。
フルパスは全体で１つの文字列なので、その部分を別の文字列にして、分けた文字列を結合しても、その後使えるのは常識。
ーー
Dim My Drive as String
myDrive="C:"
Nokori=":XXXXXX\YYYY\(ファイル名）.(拡張子）
f=MyDrive&Nokori
MsgBox f
残りの部分が質問者の場合ではどういう風なのか、色々あるのでかけない。

お礼

全くおっしゃるとおりです。常識以前の問題でした。ご回答ありがとうございました。ご回答を参考にしましたら、今思っていることができました。もっと勉強しなければと痛感しております。