ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / открыть файл Excel в пустой книге
18 сообщений из 18, страница 1 из 1
открыть файл Excel в пустой книге
    #36546731
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Здравствуйте.
Можно ли открыть файл Excel кодом в пустой открытой книге.
Код: plaintext
1.
2.
3.
4.
5.
Private Sub CommandButton1_Click()
    '...
    ThisWorkbook.Close (False) ' Книга пуста
    Workbooks.Open Filename:="C:\Program Files\Папка1\Папка2\открыть.xls" ' Открыть файл
    '...
End Sub
...
Рейтинг: 0 / 0
28.03.2010, 12:50
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546773
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
1) а кто мешает попробовать?
2) даже если не получится - поменяйте местами эти две строки
...
Рейтинг: 0 / 0
28.03.2010, 13:44
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546778
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shocker.Pro,
Менять нельзя.
Тогда другой вопрос.

Открыто две Книги ааа.xlc и bbb.xlc
Как кодом закрыть файл ввв.xlc в книге ааа
Код: plaintext
1.
2.
Private Sub CommandButton1_Click() 'Запуск программы V ГСМ ‘ Код файла ааа.xlc
    ввв.xlc=ThisWorkbook.Close (False) 'закрыть файл
End Sub
...
Рейтинг: 0 / 0
28.03.2010, 13:48
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546784
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
segailМенять нельзя.

Логика и разум подсказывет: закрытие книгой самой себя должно быть последней командой, выполненной этой книгой. А то как маршал Жуков - умер, а мемуары десять раз переиздавались и откуда-то брались новые подробности, которых не было раньше.

segailОткрыто две Книги ааа.xlc и bbb.xlc
Как кодом закрыть файл ввв.xlc

Никак. Потому что по условиям задачи файл "ввв" не открыт, следовательно его и закрыть нельзя
...
Рейтинг: 0 / 0
28.03.2010, 13:53
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546787
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shocker.Pro,
Насчет сравнения с Жуковым Вы правы. Но так у меня получилось.
А насчет второго варианта
Код: plaintext
1.
2.
Private Sub CommandButton1_Click()
    If a =  1  Then a =  2 
End Sub
Код: plaintext
1.
a =  1  ' Файл ввв.xlc открыт
a =  2  ' Файл ввв.xlc закрыть
...
Рейтинг: 0 / 0
28.03.2010, 14:03
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546788
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
1.
2.
Private Sub CommandButton1_Click()
    If a =  1  Then Workbooks("ввв.xlc").Close False
End Sub

Это вы пытались спросить?
...
Рейтинг: 0 / 0
28.03.2010, 14:07
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546793
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
вот так

Код: plaintext
Workbooks("ввв").Close(False)
...
Рейтинг: 0 / 0
28.03.2010, 14:09
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546796
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shocker.Pro,
А оператор а=1 если файл открыт?
Так что ли?
Код: plaintext
1.
2.
Private Sub CommandButton1_Click()
    If Workbooks.Open("ввв.xlc") Then Workbooks("ввв.xlc").Close (False)
End Sub
...
Рейтинг: 0 / 0
28.03.2010, 14:13
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546799
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
1.
2.
On Error Resume Next
Workbooks("ввв").Close(False)
On Error Goto  0

обратите внимание
если под "xlc" вы подразумеваете расширение "xls", то указывать его не надо.
...
Рейтинг: 0 / 0
28.03.2010, 14:16
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546808
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shocker.Pro, Опять не понял, условие что не надо создавать?
...
Рейтинг: 0 / 0
28.03.2010, 14:24
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546814
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Этот код закрывает книгу, если она открыта. Если не открыта - ничего не происходит. То есть ваша задача выполняется.

Чтобы узнать, открыта ли определенная книга, надо перебрать коллекцию Workbooks, другого способа я просто не знаю (хотя это не значит, что его нет).
...
Рейтинг: 0 / 0
28.03.2010, 14:32
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546829
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Shocker.ProЧтобы узнать, открыта ли определенная книга, надо перебрать коллекцию Workbooks, другого способа я просто не знаю (хотя это не значит, что его нет).
segail , вот Вам другой способ:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Example
...
If fncIsOpenWB("bbb") Then Workbooks("bbb").Close(False)
...
End Sub

Function fncIsOpenWB(ByVal strWBName As String) As Boolean
On Error Resume Next
fncIsOpenWB = Not Workbooks(strWBName) Is Nothing
End Function
...
Рейтинг: 0 / 0
28.03.2010, 14:43
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546833
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shocker.Pro
Код: plaintext
1.
2.
On Error Resume Next
Workbooks("ввв").Close(False)
On Error Goto  0

Не закрывает.
...
Рейтинг: 0 / 0
28.03.2010, 14:45
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546836
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
vlth,

Можно и так, но это все равно проверка путем генерации ошибки. То есть то же самое, что я предложил, хотя и длиннее. Впрочем, если функция проверки наличия книги понадобится для каких-нибудь еще целей - тогда да.
...
Рейтинг: 0 / 0
28.03.2010, 14:46
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546837
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
segailShocker.Pro
Код: plaintext
1.
2.
On Error Resume Next
Workbooks("ввв").Close(False)
On Error Goto  0

Не закрывает.

а просто
Workbooks("ввв").Close(False)
закрывает?
...
Рейтинг: 0 / 0
28.03.2010, 14:47
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546841
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shocker.ProsegailShocker.Pro
Код: plaintext
1.
2.
On Error Resume Next
Workbooks("ввв").Close(False)
On Error Goto  0

Не закрывает.

а просто
Workbooks("ввв").Close(False)
закрывает?
Тоже нет
...
Рейтинг: 0 / 0
28.03.2010, 14:51
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546845
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
segailТоже нет

И ошибок не выдает?
...
Рейтинг: 0 / 0
28.03.2010, 14:54
| Ответить | Цитировать | Написать  
открыть файл Excel в пустой книге
    #36546851
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Shocker.Provlth,

Можно и так, но это все равно проверка путем генерации ошибки. То есть то же самое, что я предложил, хотя и длиннее. Впрочем, если функция проверки наличия книги понадобится для каких-нибудь еще целей - тогда да.
Точно так - словосочетание "другой метод" берём в кавычки

Кстати, только сейчас заметил: передавать параметр по значению здесь - лишнее. Наследство какое-то, наверное. А я вовремя не исправил.
...
Рейтинг: 0 / 0
28.03.2010, 15:00
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / открыть файл Excel в пустой книге
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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