ник: puzo
надо скачать j строк, каждая длиной 14 полей, из неоткрытого файла.
переделал найденный в инете макрос под себя :
Dim f, path As String
Dim i, j As Integer
f = "2182_proba.xls"
path = "='" & ThisWorkbook.path & Application.PathSeparator & "[" & f
i = 1
Worksheets("Лист1").Select
Do
For j = 1 To 14
Cells(i, j).Formula = path & "]ТЗ'!" & Str(j) & "," & Str(69 + i)
'Cells(i, j).Formula = path & "]ТЗ'!$A$70"
Cells(i, j).Value = Cells(i, j).Value
Next j
i = i + 1
Loop Until i < 3
|
если написать А70 - то всё работает
если написать и, жы - не работает, ругается.
как быть ?
есть же какой-то стандартное решение, просто я, как новичок программирования, его не знаю
подскажите, пожалуйста.