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

[Alekc87]

kuklp, огромное спасибо! Я разобралась!!!!

[Alekc87]

Еще возник вопрос. Как проверить на пустоту ячейку, написала такой код

If f = "" Then
Cells(i + 3, 6).Value = t
End If

выдает ошибку...

[kuklp]

А что такое у Вас f? Может Вы буквы попутали?

[Hugo121]

Но ведь f<>t
Я обычно поверяю на Len(trim(t))
Ещё что - если Вам нужно брать из того файла данные сплошного диапазона - то быстрее взять их все сразу одним действием в массив, затем его выгрузить - это если через переменную.
Примерно так:

Sub Кнопка1_Щелчок()
    Dim t()
    With GetObject("D:\запрос1.xls")
        With .Sheets("Лист1")
            t = Range(.Cells(2, 1), .Cells(10, 1)).Value 'взяли в массив
        End With
        .Close 0
    End With
    Cells(4, 1).Resize(8, 1).Value = t 'выгрузили
End Sub

[Alekc87]

f - это значение другой ячейки.

Hugo121, дело в том, что мне нужны только данные удовлетворяющие определенным условиям. Так что мне нужно проверять чтобы t было равно к-л строке (пусть слово), а f была пустая...

Такой вопрос, я могу обратиться к элементу массива t из цикла?

[Hugo121]

Да, можно за одно действие взять данные в массив, закрыть уже не нужный файл, затем перебрать в цикле массив

for i=1 to ubound(t)
if len(trim(t(i,1))) then ...
next

(trim как подстраховка от дурака)
и отобрать нужное.
Массив t будет двумерным!

[Alekc87]

У меня что-то ругается...

Sub Êíîïêà3_Ùåë÷îê()
Dim t()
With GetObject("D:\запрос1.xls")
With .Sheets("Лист1")
t = Range(.Cells(2, 1), .Cells(20, 1)).Value
End With
.Close 0
End With
For i = 1 To UBound(t)
If Len(Trim(t(i, 1))) Then
Cells(i, 1).Value = t(i, 1)
End If
Next i
End Sub

[kuklp]

Вместо:

    With GetObject("D:\запрос1.xls")
        With .Sheets("Лист1")
            t = Range(.Cells(2, 1), .Cells(10, 1)).Value 'взяли в массив
        End With
        .Close 0
    End With

проще:

    With GetObject("D:\запрос1.xls").Sheets("Лист1")
            t = Range(.Cells(2, 1), .Cells(10, 1)).Value 'взяли в массив
        .parent.Close 0
    End With

[Alekc87]

Спасибо! Все работает!!!