Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Помогите с макросом сохранения
 
#1
27.05.2012 15:26:14
Есть книга, в ней определенный диапазон мне нужно сохранять постоянно, один и тот же. Но в нем меняются данные. Сохраняю в PDF макросом:  
 
Sub Save_PDF()  
'  
   Range("A51:D90").Select  
   With Selection  
       .WrapText = False  
       .Orientation = 0  
       .AddIndent = False  
       .IndentLevel = 0  
       .ShrinkToFit = False  
       .ReadingOrder = xlContext  
   End With  
   With Selection  
       .WrapText = True  
       .Orientation = 0  
       .AddIndent = False  
       .IndentLevel = 0  
       .ShrinkToFit = False  
       .ReadingOrder = xlContext  
   End With  
   Range("A2:D90").Select  
   Path = ActiveWorkbook.Path  
   Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _  
   Range("C1") _  
       , Quality:=xlQualityStandard, _  
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _  
       True  
   Range("A1").Select  
End Sub  
 
Мне нужно чтоб он сохранял документ в том каталоге, где находится сама книга (excel 2010). Но он упорно сохраняет только в папку "Мои документы". Пожалуйста помогите, подскажите как сделать чтоб он сохранял в тот каталог, где сам находится (D:\Расчеты по обязательствам\клиенты).  
P.S. Прописать путь к каталогу - не выход! Так как файл перемещается по другим каталогам, то и пути меняются!
 
 
 
#2
27.05.2012 19:10:55
а что у вас в ячейке С1???  
может както так?  
Filename:= _  
Path & Range("C1")
Оружие не убивает Человека! Человек убивает Человека!!!
 
 
 
#3
27.05.2012 19:23:54
ThisWorkbook.Path - текущий путь нахождения сохраняемого файла.
 
 
 
#4
27.05.2012 21:47:24
в этой ячейке у меня имя файла, который формируется из других книг и дат, чтоб путаницы не возникало
 
 
 
#5
27.05.2012 21:50:10
Borodets, Ваш пример не помог к сожалению, все равно сохранение происходит в мои документы(
 
 
 
#6
27.05.2012 22:47:29
у вас там только имя или полный путь? если только имя то походу он сохраняет в мои документы по умалчанию...  
Path & "\" & Range("C1")может так?  
а вообще можно и файл выложить...
Оружие не убивает Человека! Человек убивает Человека!!!
 
 
 
#7
27.05.2012 22:52:18
Andrey, Вы моё сообщение видели? Будет указан путь к той папке, в которой находится книга с макросом.
 
 
 
#8
28.05.2012 00:07:02
>>Юрий М: Andrey, Вы моё сообщение видели? Будет указан путь к той папке, в которой находится книга с макросом.  
 
Юрий, видел, спасибо огромное, но Ваш макрос не работал, я и до этого пробовал 3 варианта, не получилось( Но он работает вместе с макросом, написанным Borodets.  
 
>>Borodets: у вас там только имя или полный путь? если только имя то походу он сохраняет в мои документы по умалчанию... Path & "\" & Range("C1")может так?  
 
Спасибо Borodets, но опять же Ваш макрос не работал без макроса Юрия. Почему не понятно. Но вместе оба макроса работают. Так что спасибо!  
Ниже приведен код, который получился:  
 
Sub Save_PDF()  
'  
   Range("A51:D90").Select  
   With Selection  
       .WrapText = False  
       .Orientation = 0  
       .AddIndent = False  
       .IndentLevel = 0  
       .ShrinkToFit = False  
       .ReadingOrder = xlContext  
   End With  
   With Selection  
       .WrapText = True  
       .Orientation = 0  
       .AddIndent = False  
       .IndentLevel = 0  
       .ShrinkToFit = False  
       .ReadingOrder = xlContext  
   End With  
   Range("A2:D90").Select  
   Path = ThisWorkbook.Path  
   Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _  
   Path & "\" & Range("C1") _  
       , Quality:=xlQualityStandard, _  
       IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _  
       True  
   Range("A1").Select  
End Sub  
 
Друзья, спасибо огромное, выручили так выручили!
 
 
 
Страницы: 1
Наверх