在另一个目录中将Excel工作表另存为PDF

我有一个宏，可以很好地将excel文件从一个目录复制到另一个目录，并添加日期的标题。但我需要的是，只复制Excel文件的一页，并将其保存为.PDF

两个路径（源、新位置）应与下面的代码保持相同

以下是我现有的代码：

Sub CopierFichier()


Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")

Call fso.CopyFile("\\mtr.intra\367$\profils\R06C286A\_RD\NASC02\Desktop\test\Heures.xls", "V:\DVI\11000_Surveillance\11200_ISP\PCQ\Suivi\FeuilleDeTemps_" & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".xls")


End Sub

编辑：

我刚尝试了一些东西，效果非常好。有一个问题，当我运行宏时，在目录中发布pdf需要花费很长时间。谢谢你的帮助

这是我使用的代码：

Sub Macro1()

   Sheets("Grille").Activate
   ActiveSheet.UsedRange.Select


   ThisWorkbook.Sheets("Grille").Select
   Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "V:\DVI\11000_Surveillance\11200_ISP\PCQ\Suivi\FeuilleDeTemps_" & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".pdf", Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      True
End Sub

---

我很怀疑您需要

打开

工作簿以提取所需的单张工作表，然后

另存为

或

按PDF打印

您的意思是，像使用打开工作簿和保存工作簿一样，只需单击一个按钮，所有操作都通过宏完成？我不是在讽刺，我是在建议你如何开始编写你需要的代码。是的，先生@Chronocidal@Chronocidal我不知道怎么写，我已经尽力了。再次感谢。可能是您的网络降低了存储速度？使用这种方法（

ExportAsFixedFormat

）在我的系统上运行得非常快。您应该将

Selection.ExportAsFixed…

更改为

thiswoolk.Sheets（“格栅”）.ExportAsFixed…

。在使用对象之前，无需选择该对象。