Открыть файл, паки текущего года

[segail]

Здравствуйте. У меня вопрос по открытию файла с формы.

При сохранение файла, в директории Мои документы создается папка \V ГСМ 2009 в которой сохраняется файл.

Имя паки создается так “V ГСМ “& Sheets("Отчет") . Range("R1")
Значение ячейки (числовое значение года) Sheets("Отчет") . Range("R1") определяет и вводит сам пользователь.

Для наглядности имя папки выводится на имя формы, в виде кода
UserForm3.Caption = "V ГСМ " & Year(Format(Date, yyyy, , vbUseSystem)) 'текущий год

При изменение значения ячейки Sheets("Отчет") . Range("R1") будет создаваться другая папка.

Вопрос:
Как открыть файл (имя файла я введу сам),условно назовем текущей папки (так как создает пользователь, а не операционная система или код), кликом по кнопке папки текущего года?
При условии если эта папка есть и в ней находится файл, если не тог не другого нет условие я дополню сам

[doober]

Немного запутано с задачей.Я понял,что у Вас проблема с определением пути к папке Мои документы.Если так,то смотрите вложение,в текстовое поле ввести имя файла,и нажать кнопку.В комментарии я написал о лишнем пробеле,в том случае документ будет не найденю

[segail]

То что надо только имя файл у меня уже известно
Правильно нет?

path = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\" & UserForm3.Caption & "\" & "АИ-76.xls"

Пробел в “V ГСМ “ чтобы отделить год. У меня так создается папка. Открывать наверное тоже можно?
И вот еще что. Открытие происходит с книги. Можно чтобы она после открытия файла закрывалась?

[doober]

Правильно
Я для примера добавил текстбокс с вводом имени файла

Конечно можно закрыть книгу

[segail]

Есть еще один нюанс. Я в начале темы говорил о нем.
Как прописать условие, если папки нет и файла нет. Иначе выдается ошибка
Условие для объектов боле менее могу написать, а тут не знаю.

[segail]

Что то вроде этого.

Private Sub CommandButton1_Click()
' If  Если нет папки Or Если нет файла Then
    MsgBox "Данных по топливу нет.", vbInformation, "Информационное сообщение"   
 Else
    path = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\" & UserForm3.Caption & "\" & ComboBox_Marka.Text & ".xls"
    Workbooks.Open (path)
    ThisWorkbook.Close (False)
End If
End Sub

[doober]

Давайте уточним.
При выполнении программы вы хотите сохранить файл в папке,если ее нет -надо создать.
Правильно?
Пишите лучше в личку ,или Асю

[segail]

Создавать ничего не надо. Папка создается другим кодом, и файл сохраняется другим кодом.
Вашим кодом только открывается файл или не открывается, если нет папки или файла.

[doober]

Сейчас сделаем

[doober]

Private Sub CommandButton1_Click()

path = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\" & UserForm3.Caption & "\" & TextBox3.Text

On Error Resume Next

Workbooks.Open (path)

 If Err.Number <> 0 Then
    MsgBox "Данных по топливу нет.", vbInformation, "Информационное сообщение"
 Else
   ThisWorkbook.Close (False)
End If


End Sub

Советую посмотреть на функции здесь
Многие из них подойдут и к VB