Страница 1 из 1
Загрузка данных из тестового файла
Добавлено: 03 мар 2008, 11:58
son
Вопрос такой: можно ли с помощью объекта QueryTable загрузить текстовый файл с пропуском некоторых строк?
Например, в файле 20 строк, грузим в ячейки A1:A20, но при этом в ячейке A10 нужно сохранить значение, а не переписывать его значением из файла.
Можно ли так сделать
?
Re: Загрузка данных из тестового файла
Добавлено: 04 мар 2008, 00:17
Aent
нет, так сделать нельзя
Re: Загрузка данных из тестового файла
Добавлено: 05 мар 2008, 09:51
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
Re: Загрузка данных из тестового файла
Добавлено: 05 мар 2008, 18:07
son
Спасибо за совет, Teslenko_EA
Такая мысль уже была, просто весь отчет уже постоен на QueryTable и очень не хотелось переделывать
Re: Загрузка данных из тестового файла
Добавлено: 05 мар 2008, 19:22
Aent
Перед импортом запоминайте данные сохраняемых ячеек в коллекции и после импорта восстанавливайте
Можно сохранять на те же адреса в скрытом листе
Re: Загрузка данных из тестового файла
Добавлено: 05 мар 2008, 19:59
Avsha
А если пойти в нападение - и необходимые строки из Excel загодя внести в текстовый файл, а затем загрузить уже весь файл через QueryTable?
Re: Загрузка данных из тестового файла
Добавлено: 06 мар 2008, 09:09
son
" писал(а):Можно сохранять на те же адреса в скрытом листе
Примерно так и действую, через скрытый лист
" писал(а):А если пойти в нападение - и необходимые строки из Excel загодя внести в текстовый файл, а затем загрузить уже весь файл через QueryTable?
Там формулы и высчитывать их при формировании тестового файла неудобно