как открыть PDF-файлы в цикле, используя макрос - PullRequest
Новая
       22

как открыть PDF-файлы в цикле, используя макрос

0 голосов
/ 25 апреля 2019

я получил ошибку вне диапазона на lbound и uboud. пожалуйста помоги. это мои коды. Это работает над другим макросом, который я сделал. Ошибка начинается с ubound и lbound. когда я запускаю его, это приводит к ошибке индексации. Я просто копирую свои прошлые коды. 

Option Explicit
Public pdfpath, excelpath As String
Public pdfname, fname, issuename, excelname As String
Public wb As Workbook
Public ws, wspdf As Worksheet
Public STRinvoice, STRamnt, STRissue, STRcus As String
Public SAPinvoice, SAPamnt, SAPissue, SAPcus As String
Public i, ctr As Long
Public rfile() As Variant

Sub DO_ALL()

pdfpath = "C:\Users\" & Environ$("Username") & "\Desktop\Wiley Checker\PDF IN\"
excelpath = "C:\Users\" & Environ$("Username") & "\Desktop\Wiley Checker\EXCEL IN\"
pdfname = Dir(pdfpath & "*.pdf*")
ctr = 1


Set wb = ActiveWorkbook
Set ws = wb.Sheets("Checker")
Set wspdf = wb.Sheets("PDF")


Do Until pdfname = ""
    If InStr(pdfname, "pdf") > 0 Then
        ReDim Preserve rfile(1 To ctr)
        rfile(ctr) = pdfname
        ctr = ctr + 1
    End If
pdfname = Dir
Loop

For i = LBound(rfile) To UBound(rfile)

ActiveWorkbook.FollowHyperlink pdfpath & rfile(i)
'continous codes.....
Next i

Exit Sub

End Sub

Я просто хочу зациклить открытие PDF-файлов.

1 Ответ

1 голос
/ 25 апреля 2019

Скорее всего, файл массива не инициализирован. Убедитесь, что у вас есть файлы в pdfpath и хотя бы один файл прошел проверку InStr (pdfname, "pdf").

Для безопасности используйте: 

If ctr > 1 Then
    For i = LBound(rfile) To UBound(rfile)

    ActiveWorkbook.FollowHyperlink pdfpath & rfile(i)
    'continous codes.....
    Next i
End If
...