| |
エクセルVBAにてセルに表示したPDFのファイル名を読み取って
PDFのページを増やしていくプログラムを組んだのですが、
新しいPDFが開けず、オートメーションエラーですと
でてきてしまいます。。。
どなたか、助けて下さい。
下記に作成したプログラムを記載いたします。
宜しくお願い致します。
Sub insPDF_jp()
Dim Ret As Integer
Dim sFilePath As String
Dim sFileCheck As String
Dim rngFile As String
Dim iRtn As Integer
Dim GetNumPages As Long
Dim Pages As Long
Dim i As Integer
Dim acroApp As CAcroApp
Dim avDoc As CAcroAVDoc
Dim AcroNew As CAcroPDDoc
Dim AcroAdd As CAcroPDDoc
Set AcroAdd = CreateObject("AcroExch.PDDoc")
Set avDoc = CreateObject("AcroExch.AVDoc")
Set AcroNew = CreateObject("AcroExch.PDDoc")
Set acroApp = CreateObject("AcroExch.APP")
Sheets("Sheet1").Select
Pages = 0
Ret = AcroNew.Create()
For i = 223 To 246
If ActiveSheet.Range("$CR$" & i) = "" Then
Else
rngFile = ActiveSheet.Range("$CZ$" & i).Text
If Trim$(ActiveSheet.Range("$CR$" & i).Text) <> "" Then
sFilePath = ActiveSheet.Range("$CR$" & i).Text & "\\" & rngFile
sFileCheck = Dir$(sFilePath, 0)
If sFileCheck <> "" Then
Ret = AcroAdd.Open(sFilePath)
GetNumPages = AcroAdd.GetNumPages()
Ret = AcroNew.InsertPages(Pages - 1, AcroAdd, 0, GetNumPages, False)
Ret = AcroAdd.Close()
Pages = Pages + GetNumPages
Else
iRtn = MsgBox("ファイルが見つかりません。このまま継続しますか？", vbYesNo, "エラー")
If iRtn = vbNo Then
MsgBox ("処理を中断します。")
Exit For
End If
End If
End If
End If
Next
Set avDoc = AcroNew.OpenAVDoc("New PDF")
Set AcroAdd = Nothing
Set AcroNew = Nothing
Ret = acroApp.Show
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
