|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
24.10.2011, 00:02 | #1 |
Пользователь
Регистрация: 17.03.2009
Сообщений: 23
|
Ошибка при вставлении копированного текста в новый хлс фаил
Всем привет.
Название этого топика само о себе говорит. Значит в цикле, когда я пытаюсь вставить копированный текст в другой фаил, я получаю ошибку. Может кто нибудь увидит что именно я пропустил? Так как я уже и не знаю из за чего это может быть. Код:
|
24.10.2011, 00:27 | #2 |
Пользователь
Регистрация: 17.03.2009
Сообщений: 23
|
даже если я убераю эту ошибку, ну тоесть при помощи
targetWks.activate wksCurrent.activate тогда я не получаю ошибки НО тогда хлс фаил куда я копирую получается пустой, там даже пустых табов нет не знаю в чем проблема |
24.10.2011, 00:43 | #3 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Код:
Поставьте точку останова на первом исполняемом операторе да пройдите по шагам (F8). Наблюдайте за значениями переменных в окне Locals или наводя курсор на переменную.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
24.10.2011, 01:07 | #4 |
Пользователь
Регистрация: 17.03.2009
Сообщений: 23
|
Хмм но ведь это не проблема.
Это просто мне дает номер не спрятанной колонки и все. Тоесть в моем примере это будет 1, вот и все. Дело в том что после выполнения этого скрипта, фаил куда все эти значения пишутся пустой, там даже нет табов, ничего пустой фаил даже добавить туда ничего не могу, вот что странно Последний раз редактировалось shkipper; 24.10.2011 в 01:10. |
24.10.2011, 01:35 | #5 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
У вас четко не определены листы,поэтому работа идет на активном в этот момент листе
nbColumns = Worksheets("Неизвестный").Range("1: 1").Cells.SpecialCells(xlCellTypeCo nstants).Count 'Checking for unhidden column For i = 1 To nbColumns If Worksheets("Неизвестный2").Columns( i).Hidden = False Then
Анализ,обработка данных Недорого
|
24.10.2011, 01:41 | #6 |
Пользователь
Регистрация: 17.03.2009
Сообщений: 23
|
Верно
Я это изменил, спасибо! Но все та же проблема у меня не получается копировать. И очень странно если я просто запускаю макро все нормально проходит если я пошагово иду то он выдает ошибку в цикле мол не получается селекцию сделать для того что бы потом туда вставить. Ужс, запарился уже 2 дня сижу и не в еду ... что же не так. |
24.10.2011, 02:09 | #7 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
А если так копировать
Код:
Код:
Анализ,обработка данных Недорого
|
24.10.2011, 09:05 | #8 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Могли бы за полдня сделать для форума пример в файле, и за вторые полдня получили бы рабочий код.
День бы сэкономили А то и два уже... Может быть всё копируется правильно, но копируются пустые ячейки? И такое бывало...
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 24.10.2011 в 09:07. |
24.10.2011, 10:18 | #9 |
Пользователь
Регистрация: 17.03.2009
Сообщений: 23
|
Возможно вы и правы
Но у меня есть эти файлы щас попытаюс их как то загрузить Вот вложил, в архиве 3 файла, в одном есть макро, другой просто линк, а в резулт идет результат Благодарю за помощь, особенно те кто найдет похему скрипт не работает Последний раз редактировалось shkipper; 24.10.2011 в 10:21. |
24.10.2011, 14:10 | #10 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
файл какой то дерганый.
проверяйте
Анализ,обработка данных Недорого
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с файлами. Замена предыдущего текста на новый. | Ibanez Wizard | Win Api | 1 | 07.04.2011 00:30 |
Не удаётся открыть Xml фаил (синтаксическая ошибка) | Smile_Flow | Помощь студентам | 1 | 23.02.2011 13:19 |
ошибка при поиске текста в файле с настройками | _Mickey_ | Помощь студентам | 0 | 29.12.2009 22:11 |
Ошибка при сохранении текста перед выходом | Shouldercannon | Общие вопросы Delphi | 1 | 17.12.2008 14:42 |
вставка текста в графический фаил | А.Брей | Общие вопросы Delphi | 2 | 04.11.2006 02:21 |