Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / открыть файл Excel в пустой книге / 18 сообщений из 18, страница 1 из 1
28.03.2010, 12:50
    #36546731
segail
segail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открыть файл Excel в пустой книге
Здравствуйте.
Можно ли открыть файл 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, 13:44
    #36546773
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открыть файл Excel в пустой книге
1) а кто мешает попробовать?
2) даже если не получится - поменяйте местами эти две строки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2010, 13:48
    #36546778
segail
segail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открыть файл Excel в пустой книге
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:53
    #36546784
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открыть файл Excel в пустой книге
segailМенять нельзя.

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

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

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

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

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

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

Чтобы узнать, открыта ли определенная книга, надо перебрать коллекцию Workbooks, другого способа я просто не знаю (хотя это не значит, что его нет).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2010, 14:43
    #36546829
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открыть файл Excel в пустой книге
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:45
    #36546833
segail
segail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открыть файл Excel в пустой книге
Shocker.Pro
Код: plaintext
1.
2.
On Error Resume Next
Workbooks("ввв").Close(False)
On Error Goto  0

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

Можно и так, но это все равно проверка путем генерации ошибки. То есть то же самое, что я предложил, хотя и длиннее. Впрочем, если функция проверки наличия книги понадобится для каких-нибудь еще целей - тогда да.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.03.2010, 14:47
    #36546837
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открыть файл Excel в пустой книге
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:51
    #36546841
segail
segail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открыть файл Excel в пустой книге
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:54
    #36546845
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
открыть файл Excel в пустой книге
segailТоже нет

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

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

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


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