Обращение к фаилу

[Devourer12345]

Задача такая... в переменную заносится имя фаила. Задача выполнить функцию с обращением к этому фаилу...


Dim z As String
z = "1.xls"
Range("M8").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-12],[z]спис!R1:R65536,10,0)"
Selection.AutoFill Destination:=Range("M8:M25"), Type:=xlFillDefault
Кто может помоч помогите ПЛЗ очень срочно надо!

[SAS888]

Примерно так:

Dim z As String
    z = "1.xls"
    With Workbooks(z).Sheets(1)
        .[M8] = "=VLOOKUP(RC[-12],[z]спис!R1:R65536,10,0)"
        .[M8].AutoFill Destination:=[M8:M25]
    End With

Только, я не знаю, что такое

[z]спис

[дмидми]

Может быть, нужно
... = "=VLOOKUP(RC[-12],'[" & z & "]спис'!R1:R65536,10,0)"
?

[Devourer12345]

Пробую ничего не получается пишет ошибку...

Sub test()
p = "1.xls"
Range(A1).FormulaR1C1 = "=[" & p & "]спис!R1C2"
End Sub


спис---имя листа...
без оптимизации и тд и тп... как реализовать выше написанное?

[дмидми]

= "='[" & p & "]спис'!R1C2"

Ну, и адрес нужно брать в кавычки, конечно:
Range("A1")

[VictorM]

и кавычки вот здесь
Range("A1").....

[Devourer12345]

Большое всем спасибо за помощ!

[дмидми]

Если вопрос ко мне - то таки да,

Option Explicit
Sub test()
    Dim p
    p = "012314.xls"
    Range("A1").FormulaR1C1 = "='[" & p & "]спис'!R15C1"
End Sub

работает. Единственное - поскольку не указана Path, спрашивает расположение файла.

Кстати, настоятельно рекомендую каждый модуль начинать с
Option Explicit
- многие ошибки обнаружатся уже при компиляции.

[SAS888]

Для того, чтобы избежать лишних запросов Excel, лучше указывать путь полностью. Тогда все будет работать по умолчанию, не зависимо от того открыт файл-источник или нет.