我当前正在使用Excel宏将excel工作表的特定单元格保存为PDF文件,该文件具有使用工作表中的信息创建的默认文件名。
我的同事试图在其MAC上使用它,但它仅显示错误消息。
我认为这对她不起作用,因为宏的某些部分可能不适用于MAC。
我希望您能帮助我找出女巫的部位有问题。
这些是我怀疑的代码部分:
'create default name for savng file
strFile = nom & "_" & "_" & temps & "_" & auj & ".pdf"
strPathFile = strPath & strFile
'user can enter name and select folder for file
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strPathFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Veuillez sélectionner le dossier où sera enregistré votre PDF")
'export to PDF if a folder was selected
If myFile <> "False" Then
Worksheets("Rapport").Range("A4:N54,A55:N105,A106:N156,A157:N207,A208:N258,A259:N309,A310:N360,A361:N411,A412:N462,A463:N513").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'confirmation message with file info
MsgBox "Le fichier PDF a été créé avec succès: " _
& vbCrLf _
& myFile