Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Работа с 3-мя файлами Excel / 9 сообщений из 9, страница 1 из 1
28.04.2006, 06:25:51
    #33696136
Anytka
Anytka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с 3-мя файлами Excel
Здрасьте!
Проблемка во в чем: есть 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, 07:49:07
    #33696174
dbf97
dbf97
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с 3-мя файлами Excel
И что в активной книге точно есть лист "Реестр"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2006, 11:29:12
    #33696797
Anytka
Anytka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с 3-мя файлами Excel
dbf97И что в активной книге точно есть лист "Реестр"?
Лист-то точно есть. Но вот активным файл шаблон не становиться!
Активным является книга с формой (на которой кнопку нажимают)=> она должна стать не активной, а активным должен стать файл Шаблон.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2006, 11:41:40
    #33696853
Дмит
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с 3-мя файлами Excel
Я стараюсь использовать ThisWorkbook вместо ActiveWorkbook. Иначе возникают проблемы когда работаешь с несколькими файлами.

Если макросы из PutKFailu не нужны, то можно:
Application.EnableEvents = False
Set XLBook = GetObject(PutKFailu)
Application.EnableEvents = True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2006, 13:29:29
    #33697302
dbf97
dbf97
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с 3-мя файлами Excel
Anytka а активным должен стать файл Шаблон.
а что мешает написать типа такого
Set Reestr = Workbooks("C:\Шаблоны\Шаблон.xls")
.Worksheets("Реестр")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2006, 15:39:34
    #33697865
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с 3-мя файлами Excel
используйте книгу через переменную типа 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
| Ответить | Цитировать | Написать  
04.05.2006, 12:46:56
    #33706654
Anytka
Anytka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с 3-мя файлами Excel
Код: 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:48:57
    #33706660
Anytka
Anytka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с 3-мя файлами Excel
и выделяется строчка
Код: plaintext
rng.Activate
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2006, 14:53:25
    #33707155
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с 3-мя файлами Excel
это из-за того, что пытаетесь активировать диапазон неактивного листа. сначала активируйте лист (заодно и книгу):
вместо одной строчки
Код: plaintext
        rng.Activate
укажите две:
Код: plaintext
1.
        xls.Activate
        rng.Activate
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Работа с 3-мя файлами Excel / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 284ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2184904]:
 0ms
get settings:
 4ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 29ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 23ms
get tp. blocked users:
 1ms
others: 208ms
total:  284ms
x
x
Закрыть


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