このマクロを配置する場所は不思議です。ユーザーが保存をヒットするたびに、正しくラベル付けされたExcelファイルをPDFとして保存することになっています。私はWordで問題なく動作する同様のマクロを持っていますが、私の人生ではこのマクロがどこに行くのかは分かりません。ExcelマクロAddin - addinの場所
私は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
などによっても異なるが、例えば、無喜びに.xlam内のモジュールでそれを保存しようとしたエクセル2007とXP SP3上で実行していますよ?
明白なことはありませんか?
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
なぜ、最初の 'If'の前に' debug.print strPath、strFile'を追加するのですか?それはあなたに私が推測するヒントを与えるはずです。 –
私はまた、信頼できる場所と思われる 'C:\ Program Files \ Microsoft Office \ Office12 \ Startup'を試しました。 – Dycey
@Dycey:問題はソートされていますか? –