jurafenix
Дата: Четверг, 05.03.2015, 10:11 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация:
1
±
Замечаний:
0% ±
Excel 2010
Уважаемые форумчане, помогите, пожалуйста. Имеется код. Всё работало. Решил часть кода повторить на другой книге и получил ошибку 1004. Часть кода приложен ниже. Первая часть проходит на ура, а со второй частью ошибку 1004 выдает(( [vba]Код
Sheets("Отчет").Select Workbooks.Open "O:\_Íèêîëàåâñêèé\Ãîðáà÷åâ\Îò÷åò\Àêòóàëüíûå ñïèñêè VIP-êëèåíòîâ*.xls" sAddress = "A1:F2500" vData = Sheets("Лист1").Range(sAddress).Value ActiveWorkbook.Close False If IsArray(vData) Then [A2].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData Else [A2] = vData End If Sheets("Миграция").Select Workbooks.Open "O:\_Íèêîëàåâñêèé\Ãîðáà÷åâ\Îò÷åò\*Ìèãðàöèÿ*.xls" sAddress = "A1:ÀG200" vData = Sheets("1").Range(sAddress).Value ActiveWorkbook.Close False If IsArray(vData) Then [A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData Else [A1] = vData End If
[/vba] [moder]Все экстрасенсы в отпуске. Читаем максимально внимательно ПУНКТ 3 [/moder]
Уважаемые форумчане, помогите, пожалуйста. Имеется код. Всё работало. Решил часть кода повторить на другой книге и получил ошибку 1004. Часть кода приложен ниже. Первая часть проходит на ура, а со второй частью ошибку 1004 выдает(( [vba]Код
Sheets("Отчет").Select Workbooks.Open "O:\_Íèêîëàåâñêèé\Ãîðáà÷åâ\Îò÷åò\Àêòóàëüíûå ñïèñêè VIP-êëèåíòîâ*.xls" sAddress = "A1:F2500" vData = Sheets("Лист1").Range(sAddress).Value ActiveWorkbook.Close False If IsArray(vData) Then [A2].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData Else [A2] = vData End If Sheets("Миграция").Select Workbooks.Open "O:\_Íèêîëàåâñêèé\Ãîðáà÷åâ\Îò÷åò\*Ìèãðàöèÿ*.xls" sAddress = "A1:ÀG200" vData = Sheets("1").Range(sAddress).Value ActiveWorkbook.Close False If IsArray(vData) Then [A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData Else [A1] = vData End If
[/vba] [moder]Все экстрасенсы в отпуске. Читаем максимально внимательно ПУНКТ 3 [/moder] jurafenix
Ответить
Сообщение Уважаемые форумчане, помогите, пожалуйста. Имеется код. Всё работало. Решил часть кода повторить на другой книге и получил ошибку 1004. Часть кода приложен ниже. Первая часть проходит на ура, а со второй частью ошибку 1004 выдает(( [vba]Код
Sheets("Отчет").Select Workbooks.Open "O:\_Íèêîëàåâñêèé\Ãîðáà÷åâ\Îò÷åò\Àêòóàëüíûå ñïèñêè VIP-êëèåíòîâ*.xls" sAddress = "A1:F2500" vData = Sheets("Лист1").Range(sAddress).Value ActiveWorkbook.Close False If IsArray(vData) Then [A2].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData Else [A2] = vData End If Sheets("Миграция").Select Workbooks.Open "O:\_Íèêîëàåâñêèé\Ãîðáà÷åâ\Îò÷åò\*Ìèãðàöèÿ*.xls" sAddress = "A1:ÀG200" vData = Sheets("1").Range(sAddress).Value ActiveWorkbook.Close False If IsArray(vData) Then [A1].Resize(UBound(vData, 1), UBound(vData, 2)).Value = vData Else [A1] = vData End If
[/vba] [moder]Все экстрасенсы в отпуске. Читаем максимально внимательно ПУНКТ 3 [/moder] Автор - jurafenix Дата добавления - 05.03.2015 в 10:11
alex77755
Дата: Четверг, 05.03.2015, 10:24 |
Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация:
64
±
Замечаний:
0% ±
А есть лист с именеём "1"? Может просто первый слева? Sheets(1)
А есть лист с именеём "1"? Может просто первый слева? Sheets(1) alex77755
Могу помочь в VB6, VBA Alex77755@mail.ru
Ответить
Сообщение А есть лист с именеём "1"? Может просто первый слева? Sheets(1) Автор - alex77755 Дата добавления - 05.03.2015 в 10:24
jurafenix
Дата: Четверг, 05.03.2015, 12:11 |
Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация:
1
±
Замечаний:
0% ±
Excel 2010
alex77755, Да, у листа имя "1"
Ответить
Сообщение alex77755, Да, у листа имя "1" Автор - jurafenix Дата добавления - 05.03.2015 в 12:11
Hugo
Дата: Четверг, 05.03.2015, 12:20 |
Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация:
707
±
Замечаний:
0% ±
2019
Что за "A1:A`G200" ?
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Что за "A1:A`G200" ? Автор - Hugo Дата добавления - 05.03.2015 в 12:20
jurafenix
Дата: Четверг, 05.03.2015, 13:36 |
Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация:
1
±
Замечаний:
0% ±
Excel 2010
Hugo, Спасибо огромное! Вы указали на мою ошибку! В формуле была напечатана русская А, вместо английской) [moder]Я что то невнятно сказал в первом замечании?? Если Вам отвечают, то это не значит, что замечание модератора можно игнорить. Бан 2 часа![/moder]
Hugo, Спасибо огромное! Вы указали на мою ошибку! В формуле была напечатана русская А, вместо английской) [moder]Я что то невнятно сказал в первом замечании?? Если Вам отвечают, то это не значит, что замечание модератора можно игнорить. Бан 2 часа![/moder] jurafenix
Сообщение отредактировал DJ_Marker_MC - Четверг, 05.03.2015, 14:21
Ответить
Сообщение Hugo, Спасибо огромное! Вы указали на мою ошибку! В формуле была напечатана русская А, вместо английской) [moder]Я что то невнятно сказал в первом замечании?? Если Вам отвечают, то это не значит, что замечание модератора можно игнорить. Бан 2 часа![/moder] Автор - jurafenix Дата добавления - 05.03.2015 в 13:36
Hugo
Дата: Четверг, 05.03.2015, 14:14 |
Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация:
707
±
Замечаний:
0% ±
2019
Ну на ошибку Вы сами указали своей корявой публикацией кода Я так и предположил что там кириллица.
Ну на ошибку Вы сами указали своей корявой публикацией кода Я так и предположил что там кириллица. Hugo
excel@nxt.ru webmoney: E265281470651 Z422237915069
Ответить
Сообщение Ну на ошибку Вы сами указали своей корявой публикацией кода Я так и предположил что там кириллица. Автор - Hugo Дата добавления - 05.03.2015 в 14:14
jurafenix
Дата: Пятница, 06.03.2015, 10:13 |
Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация:
1
±
Замечаний:
0% ±
Excel 2010
Hugo, Да у меня на работе интернет через удаленный стол, и как-то все коряво сделано))
Hugo, Да у меня на работе интернет через удаленный стол, и как-то все коряво сделано)) jurafenix
Ответить
Сообщение Hugo, Да у меня на работе интернет через удаленный стол, и как-то все коряво сделано)) Автор - jurafenix Дата добавления - 06.03.2015 в 10:13