Страницы: 1
RSS
Кривой путь. Создание папки и сохранение файла
 
Приветствую.
Имеем фрагменты кода
Код
Dim x: x = Dir(sSavePath, 16)
500             If Dir(sSavePath, 16) = "" Then
510                 MkDir sSavePath
520             End If
Debug.Print Err.Number
Debug.Print Dir(sSavePath, 16)

и
Код
530             .ExportAsFixedFormat Type:=0, _
                                     FileName:=sSavePath & "Акт " & Replace_symbols(nmr) & ".pdf", _
                                     Quality:=0, IncludeDocProperties:=True, _
                                     IgnorePrintAreas:=False, OpenAfterPublish:=False
Debug.Print Err.Number

Запустил макрос с параметром
Код
sSavePath = "dsfdfsfd"

При этом ни один из фрагментов не выдал ошибки (типа папка создана, файл сохранен)
Вопрос, где эта папка, где этот файл, и почему нет ошибки?
Debug.Print=
0
dsfdfsfd
0

PS Не думаю, что критично, но работаю из Access.
PPS C правильным путем работает правильно.
Изменено: RAN - 13.12.2022 14:59:13
 
В Моих документах?
 
Нет
 
а вместо :
Debug.Print Dir(sSavePath, 16)
посмотреть:
Debug.Print CurDir
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
МатросНаЗебре,
извиняюсь, криво смотрел
Ігор Гончаренко,
спасибо

Папка, действительно создалась в Моих документах, и файл сохранился там-же, но не с ожидаемым именем. (склеил "dsfdfsfd" и имя файла)
Страницы: 1
Наверх