VBAでExcelファイルのPDF自動化
表題の通りの事をしたいと思っています。とあるサイトで参照したvbaコードで、デスクトップにファイルをExcelのブック名と同じ名前でPDFに変換するところまで出来ました。あと自動でやりたいことは2つあり、(1)とあるセルの情報を読み込み保存名にしたい【○○○.pdfという具合に】、(2)生成したpdfファイルの保存先をマクロ内に設け指定したいです。【\\サーバー名\○○\△△\□□などのように】
現状までのコードを表記します。わかる方いらっしゃいましたら、お手数ですがアドバイスお願いします。
自分はマクロは手を出したばかりで、初心者です。宜しくお願いします。
Sub pdf()
Dim i As Integer
Dim s_prn As String, oldprn As String, flg As Boolean
On Error Resume Next
s_prn = "Adobe PDF" 'インストールされているPDFプリンタの名前
oldprn = ActivePrinter 'アクティブプリンタを取得
If InStr(oldprn, s_prn) = 0 Then '切替えたいプリンタがアクティブプリンタでない場合
flg = False 'プリンタ切替フラグ
For i = 0 To 99
ActivePrinter = s_prn & " on Ne" & Format(i, "00") & ":" '「"プリンタ名"on NeXX:」形式PC用
ActivePrinter = "Ne" & Format(i, "00") & ": の " & s_prn '「NeXX: の "プリンタ名"」形式PC用
If ActivePrinter <> oldprn Then
flg = True 'プリンタ切替成功
Exit For
End If
Next i
If flg = False Then 'プリンタ切替失敗の場合
MsgBox "プリンタ名:" & s_prn & " が見つかりません。"
Exit Sub
End If
End If
ActiveSheet.PrintOut
ActivePrinter = oldprn 'アクティブプリンタを元に戻す
MsgBox "終了しました。"
End Sub