Код макроса для открытия файла с неполным именем в Excel

Пользователь

Сообщений: 39 Регистрация: 01.01.1970

23.10.2009 09:28:09

Я открываю файл работа_2365.dbf с помощью макроса:
p = Worksheets("Страница управления").Cells(3, 2).Value
Workbooks.Open Filename:=(p)

Вопрос: Как прописать макрос, чтобы с помощью гего открывался файл с изменяющимся названием, допустьм Работа_*.dbf, а так же макрос который бы открывал *_2365?
Напишите пожалусто, код для этих двух вариантов макроса.

DIMA Пользователь Сообщений: 39 Регистрация: 01.01.1970	#2 23.10.2009 09:39:23 !!!имеется в виду Excel 2003!!!

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

23.10.2009 10:13:28

А что находится в ячейке Worksheets("Страница управления").Cells(3, 2)?
Имя файла, или полный путь к файлу?

Попробуйте такой вариант:

Sub test()
Папка = "C:\Documents and Settings\Игорь\Рабочий стол\Основная папка\"
Файл = Dir(Папка & "*.dbf")
' ну или так:
'Файл = Dir(Папка & "*_2365.*")
If Len(Файл) Then
Workbooks.Open (Папка & Файл)
End If
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Guest Гость	#4 23.10.2009 15:17:34 {quote}{login=EducatedFool}{date=23.10.2009 10:13}{thema=}{post}А что находится в ячейке Worksheets("Страница управления").Cells(3, 2)? Имя файла, или полный путь к файлу? Попробуйте такой вариант: Sub test() Папка = "C:\Documents and Settings\Игорь\Рабочий стол\Основная папка\" Файл = Dir(Папка & ".dbf") ' ну или так: 'Файл = Dir(Папка & "_2365.") Почему то выдает не коректность для "" и , как быть? If Len(Файл) Then Workbooks.Open (Папка & Файл) End If End Sub{/post}{/quote}

Читают тему