Ｅｘｃｅｌ2010 VLOOKUP 範囲の変更

質問

Ｅｘｃｅｌ2010が使え慣れなくて困っています。
外付けＨＤＤ（Ｆ：）から本体（Ｄ：）にエクセルデータを戻しました。
下記のように関数式を保存していましたが、
=VLOOKUP($A2287,'D:\ドキュメント\Excel\工事受注報告書.xls'!諸工事マスタ,7)

戻してみると
=VLOOKUP($A2246,'F:\ドキュメント241102\Excel\工事受注報告書.xls'!諸工事マスタ,7)
となり、外付けＨＤＤのフォルダ名がＶＬＯＯＫＵＰの範囲になってしまいました。

勝手に'D:\ドキュメントから'F:\ドキュメント241102に変わっていました。

しかたなく置換で範囲の変更を行いましたが、すべて置換を押す毎にファイルの確認をしてくるので関数式が3000行の10シートあるの到底この方法では置換はできません。

いい方法の範囲の変更はできないでしょうか？

また、なぜ外付けＨＤＤのフォルダ名が範囲になったのでしょうか？

わかり難い説明ですが、よろしくお願いしまします。

回答No.1

K Kazz（@JazzCorp） · ベストアンサー

とりあえずこれで、、、
http://office.microsoft.com/ja-jp/excel-help/HP005203695.aspx

お礼

回答ありがとうございます。
しかし、解決とは至りませんでした。
せめて範囲の変更はできなくても、バックアップデータを元の範囲名で戻ったらいいのですが・・・・

回答No.2

K Kazz（@JazzCorp）

必ずテスト環境で確認してからやってください。
マクロブックは同じフォルダに入れる。その階層にある「.xls*」だけ処理します。
UsedRangeでうまく全体カバーできるのか、よく判りません。

Option Explicit
Sub ReplaceLinkPath()
Const xDefaultPath = "D:\tmp"
Const xFileSelector = "\*.xls*"
Const xBefore = "F:\ドキュメント241102\Excel\"
Const xAfter = "D:\ドキュメント\Excel\"
'Const xBefore = "=IF(A2"
'Const xAfter = "=IF($A2"
Dim xShell As Variant
Dim xFolderPath As Variant
Dim xFileName As String
Dim xNoData As Boolean
Dim xNoChange As Boolean
Dim xSheet As Worksheet
Dim xCell As Range
Dim xLast As Long
Dim xRow As Long
Dim kk As Long
Dim nn As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xNoData = True
Set xShell = CreateObject("Shell.Application")
Set xFolderPath = xShell.BrowseForFolder(&O0, "データ（ブック）が存在するフォルダを選択, Please!!", &H1 + &H10, xDefaultPath)
If xFolderPath Is Nothing Then Exit Sub
xFileName = Dir(xFolderPath.Items.Item.Path & xFileSelector, vbNormal)
Do Until xFileName = Empty
xNoData = False
Debug.Print xFileName
Workbooks.Open xFolderPath.Items.Item.Path & "\" & xFileName
xNoChange = True
For Each xSheet In Worksheets
kk = 0
For Each xCell In xSheet.UsedRange
kk = kk + 1
If (InStr(xCell.Formula, xBefore) > 0) Then
Debug.Print xCell.Formula
xCell.Formula = Replace(xCell.Formula, xBefore, xAfter)
Debug.Print xCell.Formula
xNoChange = False
End If
Next xCell
Debug.Print xSheet.Name, kk
Next xSheet
Application.DisplayAlerts = False
If (xNoChange) Then
Workbooks(xFileName).Close False
Else
Workbooks(xFileName).Close True
End If
Application.DisplayAlerts = True
xFileName = Dir()
Loop
If (xNoData) Then
MsgBox ("No Data Found!!")
End If
Application.CutCopyMode = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

お礼

回答ありがとうございます。
ただ、あまりマクロが詳しくないのとエクセル2003で作成したマクロをエクセル2010で保存したらファイルの種類を間違えて消したことがトラウマになっています。
マクロ知識のレベル上がったら使わせていただきます。

エクセルデータを戻しかたは、エクセル2010で画面に出してから本体（D：）に保存しましたが、後から気付いたのですが外付けＨＤＤ（Ｆ：）からコピペで本体（Ｄ：）へ戻すと保存したままの範囲だったのです。
エクセル2003ではこのようなことはなかったと思います。これはエクセル2010の仕様か設定でしょうか。