1
ソースファイルを開かずに別のブックからセル値を取得しようとしています。実際のセルアドレスを使用すると、「SourceRange」の値が返されます。ただし、セルの代わりにセル名を参照するように、次のコードを変更して、行を追加できるようにしたいと考えています。したがって、ソースブックのセル名が "Total"という名前の場合、値を取得する方法はありますか?VBAクローズドブックの名前付きセルからセル値を返します
Sub OpenFiles()
Dim Folder_YR As String
Dim Folder_MO As String
Dim Path As String
Dim File As String
Dim SourceSheet As String
Dim SourceRange As String
Folder_YR = Sheets("Inputs").Range("B5").Value
Folder_MO = Sheets("Inputs").Range("B9").Value
FN = Sheets("Inputs").Range("B10").Value
Path = "G:\PMT ACTIVITY\" & Folder_YR & "\" & Folder_MO & "\"
File = FN
SourceSheet = "Summary"
SourceRange = Range("C1").Address(1, 1, xlR1C1)
Ref = "'" & Path & "[" & File & "]" & SourceSheet & "'!" & SourceRange
Sheets("Model").Range("C18").Formula = ExecuteExcel4Macro(Ref)
End Sub
のようなものを使用して、ADOの方法を試してみましたでしょうか?それが名前付き範囲で動作するかどうかわからない... http://stackoverflow.com/questions/16859255/reading-a-workbooks-without-opening-it-with-ado –