|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.10.2012, 18:06 | #11 |
Регистрация: 27.10.2012
Сообщений: 9
|
kuklp, огромное спасибо! Я разобралась!!!!
|
28.10.2012, 18:18 | #12 |
Регистрация: 27.10.2012
Сообщений: 9
|
Еще возник вопрос. Как проверить на пустоту ячейку, написала такой код
If f = "" Then Cells(i + 3, 6).Value = t End If выдает ошибку... |
28.10.2012, 18:21 | #13 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
А что такое у Вас f? Может Вы буквы попутали?
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
28.10.2012, 18:21 | #14 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Но ведь f<>t
Я обычно поверяю на Len(trim(t)) Ещё что - если Вам нужно брать из того файла данные сплошного диапазона - то быстрее взять их все сразу одним действием в массив, затем его выгрузить - это если через переменную. Примерно так: Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 28.10.2012 в 18:26. |
28.10.2012, 18:30 | #15 |
Регистрация: 27.10.2012
Сообщений: 9
|
f - это значение другой ячейки.
Hugo121, дело в том, что мне нужны только данные удовлетворяющие определенным условиям. Так что мне нужно проверять чтобы t было равно к-л строке (пусть слово), а f была пустая... Такой вопрос, я могу обратиться к элементу массива t из цикла? |
28.10.2012, 18:42 | #16 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Да, можно за одно действие взять данные в массив, закрыть уже не нужный файл, затем перебрать в цикле массив
Код:
и отобрать нужное. Массив t будет двумерным!
webmoney: E265281470651 Z422237915069 R418926282008
|
28.10.2012, 18:56 | #17 |
Регистрация: 27.10.2012
Сообщений: 9
|
У меня что-то ругается...
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 Последний раз редактировалось Alekc87; 28.10.2012 в 18:58. |
28.10.2012, 19:03 | #18 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Вместо:
Код:
Код:
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
28.10.2012, 20:32 | #19 |
Регистрация: 27.10.2012
Сообщений: 9
|
Спасибо! Все работает!!!
Последний раз редактировалось Alekc87; 28.10.2012 в 22:25. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как импортировать данные из текстового файла? | Androgen13 | Microsoft Office Excel | 0 | 08.08.2011 15:44 |
перенести данные из xls(exel) в mysql | Furyon | PHP | 1 | 29.07.2011 19:41 |
как сравнить данные в двух файлах .xls | SlavenGVO | Microsoft Office Excel | 6 | 07.03.2011 16:48 |
как импортировать код из файла | Lepricon69 | Общие вопросы Delphi | 19 | 11.06.2010 01:44 |