名前を付けて保存VBA関数の問題

Question

すべてのタブを宛先フォルダに保存する簡単な機能を作成しました。しかし、全プロセスを実装した後、私はこれが週に働かないことに気付きました。

私は1週間から別の問題を解決するために、ファイルが.xlsxではなくpdfsである必要があります。私は自分自身でこの機能を修正しようとしましたが、生成するpdfsを開くと「破損しています」、つまりアドビが言います。

以下を参照してください：

Sub SaveFilesInFolder() 
' 
'This is a function for saving each worksheet as a workbook in a destination folder 
' 

' 
    Dim sh As Worksheet 
    Dim wb As Workbook 

    For Each sh In Worksheets 
     SheetName = sh.Name 
     sh.Copy 

     With ActiveWorkbook 
      .SaveAs FileName:="C:\Example\" & SheetName & ".pdf" 
      .Close SaveChanges:=True 
     End With 

    Next sh 

End Sub 

私はExportAsFileFormatの承知していますが、私はそれが100個の+のタブがありますブック全体で動作するのに問題が生じています。

お勧めします。

はあなたがExportAsFixedFormatメソッドを呼び出す必要があり、

Answer 1

Sub Test() 
For Each sht In Sheets 
    sht.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\" & sht.Name & ".pdf" 
Next 
End Sub 

Answer 2

、ありがとうございました。

.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Example\" & SheetName & ".pdf"