|
こんばんわ。
Excelマクロで、1.データを作成⇒2.PDFファイルとして保存⇒次のデータがある場合は1.⇒2.のように繰り返しのマクロを作成したのですが、2.PDFファイルとして保存の場合、ダイアログが表示され、毎回、保存ボタンを押しています。
データ件数が数百件ある為、保存ボタンをデータを保存する毎に押さなくてPDFファイルが作成できればと考えております。
Office2010でできる方法がありましたら、教えて頂けますでしょうか。
現在のソースはこんな感じです。
Public Sub PDF()
Dim x As String 'NO
Dim y As String 'NO
Dim FileName As String
Worksheets(Array(1, 2, 3, 4, 5, 6, 7, 8, 9)).Select
x = Application.ActiveWorkbook.Worksheets("シートA").Range("A1").Value
y = Application.ActiveWorkbook.Worksheets("シートA").Range("A2").Value
FileName = x & "【ABC】" & y
Application.Dialogs(xlDialogSaveAs).Show FileName, &H39
End Sub
以上、よろしくお願いいたします。
|
|