Загрузка данных из тестового файла

[son]

Вопрос такой: можно ли с помощью объекта QueryTable загрузить текстовый файл с пропуском некоторых строк?
Например, в файле 20 строк, грузим в ячейки A1:A20, но при этом в ячейке A10 нужно сохранить значение, а не переписывать его значением из файла.
Можно ли так сделать ?

[Aent]

нет, так сделать нельзя

[Teslenko_EA]

Здравствуйте son.
Выполнить Вашу задачу можно, при построчном считывании файла:

Код: Выделить всё

Dim iFile%, strInfo$, i%
iFile = FreeFile
Open "C:\File.txt" For Input As #iFile
Do While Not EOF(iFile)
    i = i + 1
    Line Input #iFile, strInfo
    If Cells(i, 2) = "" Then Cells(i, 2) = strInfo
Loop
Close #iFile

[son]

Спасибо за совет, Teslenko_EA
Такая мысль уже была, просто весь отчет уже постоен на QueryTable и очень не хотелось переделывать

[Aent]

Перед импортом запоминайте данные сохраняемых ячеек в коллекции и после импорта восстанавливайте
Можно сохранять на те же адреса в скрытом листе

[Avsha]

А если пойти в нападение - и необходимые строки из Excel загодя внести в текстовый файл, а затем загрузить уже весь файл через QueryTable?

[son]

Можно сохранять на те же адреса в скрытом листе

Примерно так и действую, через скрытый лист

А если пойти в нападение - и необходимые строки из Excel загодя внести в текстовый файл, а затем загрузить уже весь файл через QueryTable?

Там формулы и высчитывать их при формировании тестового файла неудобно