открытие workbooks - Microsoft Office Excel

qert · 03.12.2009, 13:56

в общем я хочу открыть книгу с конкретным названием.
это имя я выбираю через ComboBox

вопрос: как открыть книгу с именем ComboBox1.text ?

чтобы каждый раз не писать такой код

Цитата:

If ComboBox1.Text = "ПМ" Then Workbooks.Open ("C:\Проект\ПМ.xls")
If ComboBox1.Text = "МО" Then Workbooks.Open ("C:\Проект\МО.xls")
...

ну что нибудь типа

Цитата:

Workbooks.Open ("C:\Проект\&ComboBox1.text&.xls ")

через переменную как нибудь.

такое возможно?

The_Prist · 03.12.2009, 14:06

Код:

Workbooks.Open ("C:\Проект\" & ComboBox1.text & ".xls")

qert · 03.12.2009, 14:08

ошибку показывает

The_Prist · 03.12.2009, 14:13

Какую ошибку? Какое значение у Вас в ComboBox1.text? Книга по данному пути имеется?

qert · 03.12.2009, 14:20

имеется конечно. но я незнаю показывает ошибку. ошибка в синтаксисе вроде

qert · 03.12.2009, 14:23

Цитата:

Compile error:
Expected: list separator or)

вот такая ошибка

qert · 03.12.2009, 14:26

кавычки не нравятся

The_Prist · 03.12.2009, 14:32

Цитата:

Сообщение от qert

кавычки не нравятся

Да? А у меня все нормально с кавычками. какое значение записано в ComboBox1.text?

qert · 03.12.2009, 14:37

СomboBox1.Text="ПМ"

Xpoft · 03.12.2009, 14:39

Попробуйте в отдельную переменную занести путь и подставлять уже эту переменную в метод Open:
FilePath = "C:\Проект\" & ComboBox1.text & ".xls"
Workbooks.Open (FilePath)

03.12.2009, 14:06	#2
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Код: `Workbooks.Open ("C:\Проект\" & ComboBox1.text & ".xls")` WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

03.12.2009, 14:08	#3
qert Пользователь Регистрация: 11.11.2009 Сообщений: 20	ошибку показывает Моя честь — это моя жизнь; обе растут из одного корня. Отнимите у меня честь — и моей жизни придет конец. (Шекспир)

03.12.2009, 14:13	#4
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Какую ошибку? Какое значение у Вас в ComboBox1.text? Книга по данному пути имеется? WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

03.12.2009, 14:20	#5
qert Пользователь Регистрация: 11.11.2009 Сообщений: 20	имеется конечно. но я незнаю показывает ошибку. ошибка в синтаксисе вроде Моя честь — это моя жизнь; обе растут из одного корня. Отнимите у меня честь — и моей жизни придет конец. (Шекспир)

03.12.2009, 14:26	#7
qert Пользователь Регистрация: 11.11.2009 Сообщений: 20	кавычки не нравятся Моя честь — это моя жизнь; обе растут из одного корня. Отнимите у меня честь — и моей жизни придет конец. (Шекспир)

03.12.2009, 14:37	#9
qert Пользователь Регистрация: 11.11.2009 Сообщений: 20	СomboBox1.Text="ПМ" Моя честь — это моя жизнь; обе растут из одного корня. Отнимите у меня честь — и моей жизни придет конец. (Шекспир)

03.12.2009, 14:39	#10
Xpoft Пользователь Регистрация: 25.11.2009 Сообщений: 55	Попробуйте в отдельную переменную занести путь и подставлять уже эту переменную в метод Open: FilePath = "C:\Проект\" & ComboBox1.text & ".xls" Workbooks.Open (FilePath) Не бывает сложных задач, бывают сложные решения Последний раз редактировалось Xpoft; 03.12.2009 в 14:41.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
CppWEbBrowser. Запрет на открытие нового окна, и открытие его в том же окне	Askar_g	Общие вопросы C/C++	4	25.06.2011 20:00
открытие файла	Михаил Юрьевич	Общие вопросы Delphi	8	20.09.2009 14:51
куда закачиваются файлы WorkBooks.ADD ?	salgir	Microsoft Office Excel	8	08.10.2008 21:32
Открытие файлов	limon	Помощь студентам	4	11.09.2008 09:06
как перехватить открытие чужого приложенияпытаюсь перехватить открытие любого приложе	rpy3uH	Win Api	2	02.12.2006 12:12