Ga naar inhoud

Aanbevolen berichten

Geplaatst:

Beste experten,

 

Ik wil volgende path linken aan mijn database. moet ik dan de volledige url kopiëren?
 

https://puratosgroup.sharepoint.com/:x:/r/sites/O365-DEPT-Labo-belcolade/Shared Documents/General/Database 2022.xlsm 2.xlsm?d=w3d457f0cd5cb4797b9534dd0ce8b5702&csf=1&web=1&e=O40hla

 

 

 

 

Private Sub OB_00_Click()
LB_00.Clear
  mijnfolder = ThisWorkbook.Path & "\Vroege" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub

 

 

Geplaatst:
1 uur geleden, Sary zei:

Beste experten,

 

Ik wil volgende path linken aan mijn database. moet ik dan de volledige url kopiëren?
 

https://puratosgroup.sharepoint.com/:x:/r/sites/O365-DEPT-Labo-belcolade/Shared Documents/General/Database 2022.xlsm 2.xlsm?d=w3d457f0cd5cb4797b9534dd0ce8b5702&csf=1&web=1&e=O40hla

 

 

 

 

Private Sub OB_00_Click()
LB_00.Clear
  mijnfolder = ThisWorkbook.Path & "\Vroege" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub

 

 

Nog ter info:

 

Ik heb dit zo gedaan maar dit zal niet kloppen..

 

Private Sub OB_00_Click()
LB_00.Clear
  https://puratosgroup.sharepoint.com/:x:/r/sites/O365-DEPT-Labo-belcolade/Shared Documents/General/Database labo/Database 2022.xlsm 2.xlsm?d=w3d457f0cd5cb4797b9534dd0ce8b5702&csf=1&web=1&e=RqGNo6
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub

Geplaatst:
Op 30/5/2022 om 01:05, Sary zei:

Nog ter info:

 

Ik heb dit zo gedaan maar dit zal niet kloppen..

 

Private Sub OB_00_Click()
LB_00.Clear
  https://puratosgroup.sharepoint.com/:x:/r/sites/O365-DEPT-Labo-belcolade/Shared Documents/General/Database labo/Database 2022.xlsm 2.xlsm?d=w3d457f0cd5cb4797b9534dd0ce8b5702&csf=1&web=1&e=RqGNo6
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub

Mag afgesloten worden

Gast
Dit topic is nu gesloten voor nieuwe reacties.
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.