Excel VBA 2000は○、2003では×

質問

会社で使っている申請書類なのですが２０００では問題なく動きますが２００３では「エラー１００４ ファイルにアクセスできません」となります。会社では２０００、２００３、XPが共存しております。どれでも使えるようにしたいのですが、できませんでしょうか？

現象は以下のマクロを２００３で動かしたとき、フルパスを入れたリンクから起動した場合は問題なく動くのですが、エクスプローラーから該当のファイルをWクリックして立ち上げると、指定位置に指定の名前でファイル保存しようとすると「エラー１００４ ファイルにアクセスできません」のメッセージが出てしまいます。何が問題なのでしょう？お忙しいところ申し訳ありませんが教えてください。

Sub mail1()
Dim objOutlook As Object
Dim objMsg As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMsg = objOutlook.CreateItem(0)
Set myAttachments = objMsg.Attachments
Dim 件名 As String
Dim 保存先 As Variant
Application.ScreenUpdating = False

'件名の接頭部,ファイルの保存先を決定する
件名 = Range("G15").Value & "_" & Range("G10").Value & "_" & Range("G9").Value & "_" & "問合せシート"
保存先 = "\\●サーバー名●\●フォルダ名●\" & Range("G2").Value & "\2012年度下期\" & Range("G3").Value & "\"

'ファイルを名前をつけて指定のフォルダに保存する。
Msg = "このファイルを指定のフォルダに保存します。よろしいですか？" & Chr(13) & "書き込み、訂正をしていない場合は【いいえ】を押して下さい。"
Style = vbYesNo
MsgRec = MsgBox(Msg, Style)
Select Case MsgRec
Case vbYes: 'ＹＥＳの場合はファイル保存に進む
ActiveWorkbook.SaveAs Filename:=保存先 & 件名 & ".xls"
Case vbNo: MsgBox "ご自信で指定のフォルダに保存してください。"
Exit Sub
End Select

回答No.1

FEX2053

単純に「保存すべきブックがアクティブになってない」って
疑いがあります。

この処理は多分他から呼ばれて実行しているのでは？と
思うのですが、その時点で、保存すべきブックがアクティブ
になっているかどうかを確認して下さい。

ダブルクリックでオッケー、そうでないとダメと言うなら、
真っ先にチェックすべきはそこなので。

お礼

ご回答ありがとうございます。
ブックはアクティブになっております。
また、ダブルクリックやエクセルを立ち上げてからファイルを選んだときがＮＧでリンクから立ち上げたときはＯＫなのです。
よろしくお願いします。