Соседи, кто подскажет решение такой задачи:

Есть простенький макрос, который выгружает нужный диапазон из файла эксель в формате pdf:

Sheets("Запрос").Select
Range("B1:D43").Select
ChDir "W:\Common\Запрос\PDF"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"W:\Common\Запрос\PDF\запрос.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Как видно из кода, диапазон выгружается в определенную папку W:\Common\Запрос\PDF. Мне же нужно, чтобы он выгружался в папку, в которой в данный момент лежит мой файл эксель. Кто подскажет, как в таком случае прописать директорию?

--- Реклама ---

ActiveWorkbook.Path - указывает текущую директорию открытого файла.Ну или так, если файл в корне диска С окажется

sName = ActiveWorkbook.Path
If Len(sName) <> 3 Then sName = sName & "\"
MsgBox sName

Aleks_Nata
Большое спасибо за подсказку. Уже два часа бьюсь, но не получается.
Точнее все работает если диск локальный и надо сохранить например на диске D. Однако если тот же самый код применять на сетевом диске W, то он упорно сохраняет на диск С в папку "мои документы".

Пробовал также использовать функцию CurDir, но результат тот же. На локальных дисках работает. На сетевых отказывается.Погуглил тут немного насчет CurDir

"Поскольку функция воспринимает только однобуквенные названия дисков, использовать сетевые имена дисков нельзя"

Пичалька(((

Metrolog
Да вот же ... Преобразование пути к сетевой папке в формат UNC

Sub ПолучениеСетевогоПутиПапки()
ОбычныйПуть = "Z:\Папка\Разное\"
With CreateObject("Scripting.FileSystemObject").getfolder(ОбычныйПуть)
СетевойПуть = Replace(.Path, .Drive.Path, .Drive.ShareName)
End With
Debug.Print ОбычныйПуть, СетевойПуть
' СетевойПуть = \\server\Files\Папка\Разное
End Sub

тоже самое но в виде функции

Function UNC(ByVal NetworkPath$) As String
On Error Resume Next
With CreateObject("Scripting.FileSystemObject").getfolder(NetworkPath$)
UNC = Replace(.Path, .Drive.Path, .Drive.ShareName)
End With
End Function

Sub ПримерИспользованияФункцииГТС()
СетевойПуть = UNC("Z:\Папка\Разное")
MsgBox СетевойПуть
End Sub

Aleks_Nata
Ура! Получилось.
Я просто сдуру неправильно прописывал путь. В конечном итоге код такой:

Sub Êíîïêà1_Ùåë÷îê()


Dim sname As String
Sheets("Çàïðîñ").Select
Range("B1:D43").Select


sname = Excel.Application.ActiveWorkbook.Path & "\Çàïðîñ.pdf"

ChDir UNC(Excel.Application.ActiveWorkbook.Path)
Selection.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
sname _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False


End Sub

Большое спасибо за помощь.

--- Реклама ---