Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Работа с закрытыми книгами - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с закрытыми книгами (Макросы/Sub)
Работа с закрытыми книгами
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
Дата добавления - 05.03.2015 в 10:11
alex77755 Дата: Четверг, 05.03.2015, 10:24 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация: 64 ±
Замечаний: 0% ±

А есть лист с именеём "1"?
Может просто первый слева? Sheets(1)

Могу помочь в 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]


Сообщение отредактировал 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
Ну на ошибку Вы сами указали своей корявой публикацией кода :)
Я так и предположил что там кириллица.

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
Дата добавления - 06.03.2015 в 10:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с закрытыми книгами (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!