просто интересно, куда этот макрос поставить.Предполагается, что файлы Excel с правильной маркировкой сохраняются в формате PDF, а также каждый раз, когда пользователь нажимает сохранить.У меня есть аналогичный макрос, работающий без проблем для Word, но, судя по всему, я не могу понять, куда идет этот макрос.
Я работаю на Xp Sp3 с Excel 2007.попытался сохранить его в модуле в формате .xlam до C:\Program Files\Microsoft Office\Office12\XLSTART
, C:\Documents and Settings\username\Local Settings\Application Data\Microsoft\Office\12.0
, C:\Documents and Settings\username\Templates
и т. д., но без радости?
Я что-то упускаю из виду (не удивительно)?
Sub FileSave()
'
' FileSave Macro
'
'
Dim StrFile As String
Dim StrPath As String
Dim StrName As String
Dim StrPDFName As String
StrPath = ActiveSheet.Path 'Get document path
StrFile = ActiveSheet.Name 'Get document name
If StrName <> "" Then
MsgBox "We have a string name"
StrName = Left(StrFile, (InStr(StrFile, ".") - 1))
StrPDFName = StrPath + "\" + StrName + ".pdf"
If InStr(StrFile, "_fmpro_temp") Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= StrPDFName, _
Quality:= xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox StrName + " has been saved. " & vbNewLine & _
"If you're finished, please close the file," & vbNewLine & _
"and return to FileMaker to accept or discard this version.", _
vbInformation, "FileMaker Pro Versioning"
End If
End If
End Sub