Проблемы с GetValue

[Pashok1]

Столкнулся с проблемой.
Использую функцию GetValue для того, чтобы достать значения из файла и записать в дургой файл.

в указанных примерах используют такую строку

arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)

мне выдает ошибку на Range(ref)
удаляю этот параметр - работает, но при выводе значений дает 0 или #ССЫЛКА

Может кто поможет разобраться?

[The_Prist]

Так ref - это переменная. Она должна быть типа String(это предположение) и ей должно присваиваться имя либо адрес какого-то диапазона.
С выложенным ма-а-а-а-леньким кусочком кода сложно сказать точнее...

[Pashok1]

так... С рэфом разобрался
вот полный код проги

Private Function GetValue(path, file, sheet, ref)
' Retrieves a value from a closed workbook
Dim arg As String

' Make sure the file exists
If Dir(p & Filename2) = "" Then
GetValue = "File Not Found"
Exit Function
End If

' Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)

' Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function

Sub 555()

p = "C:\"
s = "1"
f = "zzz.xls"

Application.ScreenUpdating = False
For r = 1 To 50
For c = 1 To 12
a = Cells(r, c).Address
Cells(r, c) = GetValue(p, f, s, a)
Next c
Next r
Application.ScreenUpdating = True
End Sub

Выдает #ССЫЛКА во всех заполняемых ячейках

[doober]

Private Function GetValue(path As String, file As String, sheet As String, ref As String)
' Retrieves a value from a closed workbook
Dim arg As String

' Make sure the file exists
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If

' Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Address(ReferenceStyle:=xlR1C1)

' Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function

Sub а555() ' С цифры не может имя процедуры начинаться
Dim p As String
Dim f As String
Dim s As String
Dim a As String


p = "C:\"
s = "Лист1"    'Имя  листа
f = "zzz.xls"

Application.ScreenUpdating = False
For r = 1 To 50
For c = 1 To 12
a = Cells(r, c).Address
Cells(r, c) = GetValue(p, f, s, a)

h = GetValue(p, f, s, a)

Next c
Next r
Application.ScreenUpdating = True
End Sub