2016-07-06 10 views
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 
+0

のようなものを使用して、ADOの方法を試してみましたでしょうか?それが名前付き範囲で動作するかどうかわからない... http://stackoverflow.com/questions/16859255/reading-a-workbooks-without-opening-it-with-ado –

答えて

関連する問題