ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Работа с 3-мя файлами Excel
9 сообщений из 9, страница 1 из 1
Работа с 3-мя файлами Excel
    #33696136
Anytka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anytka
Гость
Здрасьте!
Проблемка во в чем: есть 3 Excel'евских файла, 2 из которых утвержденные документы и менять в них ничего нельзя! Я в третьем делаю форму, в которую пользователь вносит некоторые данные. Нажимая на кнопку. открывается 1-ый файл и в него вносятся значения из формы и из 2 файла. Как вносить данные, не открывая 2-ой файл, я, вроде бы, нашла. А вот проблема с открытием 1-го!!! На открытие этого документа написан следующий код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public Reestr As Worksheet
Public SprSAU, SprAFE As Workbook
Public Sub Workbook_Open()
Set Reestr = ActiveWorkbook.Worksheets("Реестр")
Workbooks.Open ActiveWorkbook.Path & "\Справочники111.xls"
Workbooks.Open ActiveWorkbook.Path & "\Справочники222.xls"
Reestr.Activate
End Sub
И на строчку Set Reestr = ActiveWorkbook.Worksheets("Реестр") выдается ошибка. Открываю я этот 1-ый файл следующим кодом:
Код: plaintext
1.
2.
3.
Set ELApp = CreateObject("excel.application")
ELApp.Visible = True
PutKFailu = "C:\Шаблоны\Шаблон.xls"
Set XLBook = GetObject(PutKFailu)
...
Рейтинг: 0 / 0
28.04.2006, 06:25:51
| Ответить | Цитировать | Написать  
Работа с 3-мя файлами Excel
    #33696174
dbf97
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dbf97
Гость
И что в активной книге точно есть лист "Реестр"?
...
Рейтинг: 0 / 0
28.04.2006, 07:49:07
| Ответить | Цитировать | Написать  
Работа с 3-мя файлами Excel
    #33696797
Anytka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anytka
Гость
dbf97И что в активной книге точно есть лист "Реестр"?
Лист-то точно есть. Но вот активным файл шаблон не становиться!
Активным является книга с формой (на которой кнопку нажимают)=> она должна стать не активной, а активным должен стать файл Шаблон.
...
Рейтинг: 0 / 0
28.04.2006, 11:29:12
| Ответить | Цитировать | Написать  
Работа с 3-мя файлами Excel
    #33696853
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмит
Участник
Я стараюсь использовать ThisWorkbook вместо ActiveWorkbook. Иначе возникают проблемы когда работаешь с несколькими файлами.

Если макросы из PutKFailu не нужны, то можно:
Application.EnableEvents = False
Set XLBook = GetObject(PutKFailu)
Application.EnableEvents = True
...
Рейтинг: 0 / 0
28.04.2006, 11:41:40
| Ответить | Цитировать | Написать  
Работа с 3-мя файлами Excel
    #33697302
dbf97
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dbf97
Гость
Anytka а активным должен стать файл Шаблон.
а что мешает написать типа такого
Set Reestr = Workbooks("C:\Шаблоны\Шаблон.xls")
.Worksheets("Реестр")
...
Рейтинг: 0 / 0
28.04.2006, 13:29:29
| Ответить | Цитировать | Написать  
Работа с 3-мя файлами Excel
    #33697865
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
используйте книгу через переменную типа workbooks:

Sub www()
Dim book1 As Workbook
Dim book2 As Workbook

Dim strFrom As String
Dim strTo As String

strFrom = "A1"
strTo = "A1"

Set book1 = Workbooks.Open(Filename:= _
ActiveWorkbook.Path & "\Справочники111.xls")

Set book2 = Workbooks.Open(Filename:= _
ActiveWorkbook.Path & "\Справочники222.xls")

book1.Worksheets("Sheet1").Range(strTo).Formula = _
book2.Worksheets("Sheet1").Range(strFrom).Value


book1.Save
book1.Close

Set book1 = Nothing
Set book2 = Nothing
End Sub
...
Рейтинг: 0 / 0
28.04.2006, 15:39:34
| Ответить | Цитировать | Написать  
Работа с 3-мя файлами Excel
    #33706654
Anytka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anytka
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    list = mes
    Set xlw = xla.Workbooks.Open("C:\Самолеты.xls")
    Set xls = xlw.Sheets(list)
    Set rng = xls.Range("b4:ac4").Find(What:=schet, LookIn:=xlValues)
    If Not (rng Is Nothing) Then
        rng.Activate
    Else
        MsgBox "Значение не найдено"
    End If
Должен открыться лист, выбранный в поле со списком. Но он не открывается.
Объясните, пожалуйста, почему?
...
Рейтинг: 0 / 0
04.05.2006, 12:46:56
| Ответить | Цитировать | Написать  
Работа с 3-мя файлами Excel
    #33706660
Anytka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anytka
Гость
и выделяется строчка
Код: plaintext
rng.Activate
...
Рейтинг: 0 / 0
04.05.2006, 12:48:57
| Ответить | Цитировать | Написать  
Работа с 3-мя файлами Excel
    #33707155
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
это из-за того, что пытаетесь активировать диапазон неактивного листа. сначала активируйте лист (заодно и книгу):
вместо одной строчки
Код: plaintext
        rng.Activate
укажите две:
Код: plaintext
1.
        xls.Activate
        rng.Activate
...
Рейтинг: 0 / 0
04.05.2006, 14:53:25
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Работа с 3-мя файлами Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33696136&tid=2184904]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 201ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 210ms
total:  482ms
созд. / загр.: 482ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]