hyperlinks aanmaken meer dan 65000 pdf

[kibus]

beste kenners

onderstaande vba code heeft mij tot nu geholpen ...echter nu heb ik meer dan 100000 documentjes pdf... en stopt de code bij 65000 regels...

ik dacht dan de range aanpassen maar helaas.. blijft hij steken op regel 65000..
iemand een idee?

alvast bedankt

Edwin

\Sub test()
    Dim strFile As String
    Dim strPath As String
    Dim ws As Worksheet
     
    Set ws = ThisWorkbook.Sheets("t")
     
    strPath = "p:\copy\" ' change directory
    strFile = Dir(strPath & "*.PDF")
     ' the following code will create an hyperlink to all PDF files in a directory
     
    ws.Range("A2:A150000").Clear
     
    x = 1
    While strFile <> Empty
        strFile = Dir
        With ws
            x = x + 1
            .Range("A150000").End(xlUp).Offset(1, 0).Value = strFile
            If strFile <> "" Then
                .Hyperlinks.Add .Cells(x, 1), strPath & strFile
            End If
        End With
         
    Wend
     
     
End Sub

 

[popipipo]

Ben je misschien in het bezit van excel 2003
Die heeft nl maar 65000 rijen.

En dan werkt deze regel natuurlijk niet:
Range("A150000").End(xlUp).Offset(1, 0).Value = strFile

Tussen haakjes (Ik ben blij dat ik deze 100.000 pdfjes niet hoef te lezen of te schrijven of uit opzoeken)

 

[kibus]

ik werk met excel 2014 versie

 

[Cobbe]

Zet er eens een On Error Resume Next tussen.

 

[kibus]

hallo cobbe

waar zou ik dat precies tussen moeten zetten ?

 

[Cobbe]

Maakt niet echt zoveel uit in de meeste gevallen.
Maar het meest gangbare is direct bij opening van je macro, dus tussen:
Sub test() en DIM........

 

[kibus]

ik heb het getest, maar na de error gaat hij weer beginnen bij de eerste.. ik krijg dus nu dubbele

een ander idee is om alle bestandnamen uit de map in kolom A in te lezen en dan vervolgens te gaan werken met de formule HYPERLINK("C:\Brieven\" &A3;B3) maar hoe krijg ik ze ering??

alvast bedankt

 

[snb]

Sub M_snb()
   c00="G:\OF"   ' mutatis mutandum

   sn = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir """ & c00 & "\*.pdf"" /b").stdout.readall, vbCrLf), ".")
   
   For j = 0 To UBound(sn)
     Hyperlinks.Add Sheet1.Cells(j + 1, 1), sn(j), , , Replace(LCase(sn(j)), ".pdf", "")
   Next
End Sub

 

[kibus]

oei ik begrijp niet precies hoe en wat de code van snb doet en hoe ik hem moet aanpassen... mijn documentjes staan op P:/copy...

 

[snb]

Waar denk je dat G:\OF voor staat ?

 

[kibus]

ben er uit gekomen hartelijk dank.!