Не удалось получить доступ к ячейкам в другой книге

Question

У меня есть книга Excel под названием «C: \ myfile.xlsm».

В нем есть рабочий лист под названием «продажи».

Из другой открытой книги Я пытаюсь получить доступ к значению ячейки из этой книги C: \ myfile.xlsm.

(BTW: C: \ myfile.xlsm не открыт.)

Выполнение следующих терпит неудачу:

temp = Workbooks("C:\myfile.xlsm").Worksheets("sales").Range("C2").Value 

Я получаю эту ошибку, и я не знаю, почему:

время работы ошибка 9

Подстрочный из диапазона

Answer 1

Это работает для меня, надеюсь, вам это тоже помогает?

Private Sub stuff() 
    Dim TemP As String 
    TemP = "C:\Users\Ashleysaurus\Desktop\doug" & "\" & "Book1.xlsm" 
    Set TemP2 = Workbooks.Open(TemP) 
    Temp3 = ActiveWorkbook.Sheets("Sheet1").Range("e1").Value 
    Debug.Print ; Temp3 
End Sub 

Answer 2

Вам необходимо открыть кулак, а затем файл.

Workbooks.Open FileName:="C:\myfile.xlsm" 

После вы можете использовать файл

temp = Workbooks("myfile.xlsm").Worksheets("sales").Range("C2").Value 

Если вы хотите получить значение только:

temp = ExecuteExcel4Macro("'C:[myfile.xlsm]Sales'!" & Range("C2").Range("A1").Address(, , xlR1C1)) 

Answer 3

использовать это:

Set wk = Workbooks.Open("C:\myfile.xlsm") 
temp = wk.Sheets("sales").Range("C2").Value 
wk.Close 

Answer 4

Для получения значения ячейки из другая рабочая книга, не открывая ее, попробуйте следующее:

Sub Demo()   
    Dim Path As String, FileName As String, SheetName As String, CellRange As String 
    Dim tempStr As String 
    Path = "C:\" 
    FileName = "myfile.xlsm" 
    SheetName = "Sales" 
    CellRange = Range("C2").Address(, , xlR1C1) 

    strRef = "'" & Path & "[" & FileName & "]" & SheetName & "'!" & CellRange 

    Result = ExecuteExcel4Macro(strRef) 
End Sub