Импортировать данные из файла .xls

[Alekc87]

Добрый вечер!

Нужна помощь, задание следующее. Есть 2 файла Excel, из одно берется информация и записывается в другой. Макрос содержится в файле, в который переносится данные. Нужно считать из столбца данные G, если ячейка пустая и записать их в столбец С вместе со связанным с ним столбцом А который нужно записать в столбец В. Не могу найти как обратиться к ячейкам файла, у меня все время обращается к ячейкам самого файла, а нужно что бы обращался к ячейкам файла D:\запрос.xls

Sub Test1()
Open "D:\запрос.xls" For Input As #1


Заранее спасибо!

[ikki_pf]

Сообщение от Alekc87

Не могу найти как обратиться к ячейкам файла

и где искали?
в автономной справке VBA - раздел Microsoft Excel Basic Reference -> Programming Concepts -> Cells And Ranges -> How to Reference Cells and Ranges

Сообщение от Alekc87

Sub Test1()
Open "D:\запрос.xls" For Input As #1

нет.

Workbooks.Open Filename:= "D:\запрос.xls"

[Alekc87]

ikki_pf, спасибо за подсказку. Только у меня теперь другая проблема, мне в ячейку А10 нового файла нужно записать значение A1 файла D:\запрос.xls, а данный код работает только с файлом запрос.xls.

Sub Кнопка1_Щелчок()
Workbooks.Open Filename:="D:\запрос.xls"
Range("A10").Value = Range("A1").Value
End Sub

[Hugo121]

Можно так (как один из многих вариантов):

Sub Кнопка1_Щелчок()
    With GetObject("D:\запрос.xls")
        t = .Sheets("нужный лист").Range("A1").Value
        .Close 0
    End With
    Range("A10").Value = t
End Sub

[kuklp]

Игорь, а зачем там переменная?:-)

Sub Кнопка1_Щелчок()
    With GetObject("D:\запрос.xls")
        Range("A10").Value = .Sheets("нужный лист").Range("A1").Value
        .Close 0
    End With
End Sub

[Hugo121]

Чтоб универсальнее. В твоём варианте при запуске из стандартного модуля не накопирует ли в тот же запрос.xls? (не проверял, но сомневаюсь...)
Но если код в модуле листа (как можно подумать, глядя на название) - тогда можно и так, без переменной.

[Alekc87]

Hugo121, kuklp огромное спасибо за помощь!!! У меня возник еще один вопрос, мне в программе нужно работать с массивом (до 1000 значений) у меня мигает экран... можно ли вынести открытие и закрытие файла за цикл?

Sub Кнопка1_Щелчок()
For i = 2 To 10
With GetObject("D:\запрос1.xls")
t = .Sheets("Лист1").Cells(i, 1).Value
.Close 0
End With
Cells(i + 2, 1).Value = t
Next i
End Sub

[kuklp]

Нужно!_____

[Alekc87]

И, не подскажете, что неправильно в этой конструкции

If t = "Слово" Then
Cells(i + 2, 1).Value = t

[kuklp]

Не вижу end if. Попробуйте:

If t = "Слово" Then _
Cells(i + 2, 1).Value = t