Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 13 van 13

Onderwerp: Automatisch locatie van betanden vinden

  1. #1
    Senior Member
    Geregistreerd
    12 december 2014
    Vraag is niet opgelost

    Automatisch locatie van betanden vinden

    Hallo allemaal,

    In Excel 2013/2016 gebruik ik een routine om automatisch het pad naar bestanden te vinden.

    Nu zit ik even op de OneDrive van een grote organisatie en nu werkt die routine niet meer.


    Hij struikelt over "GetFolder".
    Of heeft het iets te maken met "Scripting.FileSystemObject"?

    Wie weet wat het probleem (en de oplossing) is?

    Groet,
    Willem


    Code:
    Sub LijstMetBestanden()
    
    Dim fileNamesCol As New Collection
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    NwPad = FSO.GetFolder(ThisWorkbook.Path & "\..").Path
    PadActueel = NwPad & "\05 Projecten Actueel\"
    
    MyFile = Dir$(PadActueel & "*.xlsm")
    Do While MyFile <> ""
        fileNamesCol.Add (Replace(MyFile, ".xlsm", ""))
        MyFile = Dir$
    Loop
    
    Dim ic As Integer
    ic = 1
    r = 8
    
    For Each MyFile In fileNamesCol
        Range("A" & r).Value = fileNamesCol(ic)
        ic = ic + 1
        r = r + 1
    Next MyFile
    
    End Sub

  2. #2
    Senior Member
    Geregistreerd
    16 december 2016
    Het probleem is, dat VBA niet overweg kan met een online opslag zoals One Drive. Immers, daar is een wachtwoord aan verbonden.
    Oplossing: Eerst het bestand (of meerdere) kopiëren naar een Offline locatie op je pc.
    dat zou moeten werken.

  3. #3
    Senior Member
    Geregistreerd
    12 december 2014

    Automatisch locatie van betanden vinden

    Bedankt voor je reactie, mvdvlist.

    Volgens mij klopt dit niet (helemaal). Het opslaan lukt namelijk wel in OneDrive.
    Dan zou openen ook moeten lukken.

    Groet
    Willem

  4. #4
    Groetjes,

    Jan Karel Pieterse
    Excel MVP jkp-ads.com

  5. #5
    Senior Member
    Geregistreerd
    12 december 2014
    Bedankt Jan Karel,

    Daar wordt echt verwezen naar OneDrive, zie ik.

    Komende dagen ga ik daar op studeren.

    Ik koppel mijn bevindingen hier terug.

    Meer suggesties blijven altijd welkom!

    Groet
    Willem

  6. #6
    Senior Member
    Geregistreerd
    12 december 2014
    Ergens anders las ik, dat je een verwijzing moet maken naar Microsoft Scripting Runtime.

    Dat was tot nu toe niet nodig, maar i.v.m. OneDrive misschien wel. Dat kan ik morgen uitproberen. Dat is snel gebeurd.

  7. #7
    Senior Member
    Geregistreerd
    12 december 2014
    Dag Jan Karel,

    Ik krijg een foutmelding als ik jouw link wil openen. https://www.excelforum.com/excel-pro...ing-vba-2.html

    FORBIDDEN zegt mijn browser.

  8. #8
    Probeer eens een andere browser, opent prima in Edge bijvoorbeeld.
    Groetjes,

    Jan Karel Pieterse
    Excel MVP jkp-ads.com

  9. #9
    Senior Member
    Geregistreerd
    12 december 2014

    Automatisch locatie van bestanden vinden

    Ook in Edge niet.

    Forbidden
    You don't have permission to access /excel-programming-vba-macros/1256542-loop-through-one-drive-files-in-folder-using-vba-2.html on this server.
    Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.

    Ik probeer het zo ook wel even op een laptop.

  10. #10
    Senior Member
    Geregistreerd
    12 december 2014

    Automatisch locatie van bestanden vinden

    Openen van de link lukt ook niet vanaf de laptop.

    Van de week probeer ik het nog een keer van een andere locatie.

  11. #11
    Mega Senior
    Verenigingslid
    anton44's avatar
    Geregistreerd
    20 mei 2005
    Locatie
    ergens in Midden Limburg
    Ik kan de site zonder problemen benaderen.
    Laatst aangepast door anton44 : 11 december 2019 om 18:17
    Met dank en vriendelijke groet,
    Ton

  12. #12
    Senior Member
    Geregistreerd
    12 december 2014
    Ik nu ook.

  13. #13
    Senior Member
    Geregistreerd
    12 december 2014
    Het eerder door mij aangegeven probleem lijkt op dit moment verholpen.

    Het betreffende bestand is in een SharePoint folder opgeslagen.
    Vervolgens heeft die persoon zijn SharePoint folder gesynchroniseerd met de OneDrive van de organisatie. Dat was nog niet gebeurd toen ik mijn vraag stelde.
    Nu is het bestand gewoon te gebruiken en door meerdere personen. In Excel moet "Automatisch opslaan" zijn aangezet.

    Als ik nieuws heb, meld ik mij weer.

    De link van Jan Karel ga ik zeker nog even bekijken.

    Bedankt voor al het meedenken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren