Ga naar inhoud

VBA Onedrive

Sary

Door Sary
in Archief Excel

 Delen

Aanbevolen berichten

Sary Meewerkend lid

Sary

Geplaatst:
Geplaatst:

Beste,

 

 

 

Iemand die weet welke code/opdracht ik moet geven? ik werk in Onedrive en krijg steeds deze foutcode als ik mijn Word document wil openen in mijn VBA formulier.

 

 

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

Sary Meewerkend lid

Sary

Geplaatst:
  • Auteur
Geplaatst:
6 minuten geleden, Sary zei:

Beste,

 

 

 

Iemand die weet welke code/opdracht ik moet geven? ik werk in Onedrive en krijg steeds deze foutcode als ik mijn Word document wil openen in mijn VBA formulier.

 

 

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

Mijnfolder vervangen door Onedrive maar geeft geen Word document weer. Ik heb ze nochtans in mijn folders gestoken..

Sary Meewerkend lid

Sary

Geplaatst:
  • Auteur
Geplaatst:
11 uren geleden, dotchiejack zei:

Je moet ThisWorkbook.Path vervangen door de locatie van je onedrive folder.

  

mijnfolder = "C:\Users\Philiep\OneDrive" & "\Vroege" & "\"

 

Ok, ik probeer het Zaterdag want ben nu in verlof. Alvast bedankt!

Sary Meewerkend lid

Sary

Geplaatst:
  • Auteur
Geplaatst:
Op 15/8/2021 om 20:10, Sary zei:

Ok, ik probeer het Zaterdag want ben nu in verlof. Alvast bedankt!

 

Beste,

 

Ik heb dit net aangepast, maar hij opent geen Word documenten als ik deze aan-vink.

 

 

Private Sub Cmd_00_Click()
    Unload Me
End Sub
Private Sub LB_00_Click()
On Error GoTo oops
L_00.Caption = LB_00.Column(0)
mijnfolder = ThisWorkbook.Path & "\Excel" & "\"
mijnbestand = mijnfolder & L_00.Caption
Set Excelapp = CreateObject("Excel.Application")
    Exceldapp.Documents.Open mijnbestand
    Excelapp.Visible = True
oops:
End Sub
Private Sub OB_00_Click()
LB_00.Clear
  mijnfolder = "C:\Users\SARY\OneDrive" & "\Vroege" & "\"
    mijnbestand = Dir(Onedrive & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_01_Click()
LB_00.Clear
  mijnfolder = "C:\Users\SARY\OneDrive" & "\Late" & "\"
    mijnbestand = Dir(Onedrive & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_02_Click()
LB_00.Clear
  mijnfolder = "C:\Users\SARY\OneDrive" & "\Nacht" & "\"
    mijnbestand = Dir(Onedrive & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_03_Click()
LB_00.Clear
  mijnfolder = "C:\Users\SARY\OneDrive" & "\Weekend-Dag" & "\"
    mijnbestand = Dir(Onedrive & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_04_Click()
LB_00.Clear
  mijnfolder = "C:\Users\SARY\OneDrive" & "\Weekend-Nacht" & "\"
    mijnbestand = Dir(Onedrive & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub

 

Sary Meewerkend lid

Sary

Geplaatst:
  • Auteur
Geplaatst:
1 uur terug, Sary zei:

 

Beste,

 

Ik heb dit net aangepast, maar hij opent geen Word documenten als ik deze aan-vink.

 

 

Private Sub Cmd_00_Click()
    Unload Me
End Sub
Private Sub LB_00_Click()
On Error GoTo oops
L_00.Caption = LB_00.Column(0)
mijnfolder = ThisWorkbook.Path & "\Excel" & "\"
mijnbestand = mijnfolder & L_00.Caption
Set Excelapp = CreateObject("Excel.Application")
    Exceldapp.Documents.Open mijnbestand
    Excelapp.Visible = True
oops:
End Sub
Private Sub OB_00_Click()
LB_00.Clear
  mijnfolder = "C:\Users\SARY\OneDrive" & "\Vroege" & "\"
    mijnbestand = Dir(Onedrive & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_01_Click()
LB_00.Clear
  mijnfolder = "C:\Users\SARY\OneDrive" & "\Late" & "\"
    mijnbestand = Dir(Onedrive & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_02_Click()
LB_00.Clear
  mijnfolder = "C:\Users\SARY\OneDrive" & "\Nacht" & "\"
    mijnbestand = Dir(Onedrive & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_03_Click()
LB_00.Clear
  mijnfolder = "C:\Users\SARY\OneDrive" & "\Weekend-Dag" & "\"
    mijnbestand = Dir(Onedrive & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_04_Click()
LB_00.Clear
  mijnfolder = "C:\Users\SARY\OneDrive" & "\Weekend-Nacht" & "\"
    mijnbestand = Dir(Onedrive & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub

 

Dit is de locatie waar we het delen en bewerken. Moet ik hiervan dan niets bijvoegen?

https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar

Sary Meewerkend lid

Sary

Geplaatst:
  • Auteur
Geplaatst:
5 uren geleden, dotchiejack zei:

Zoals ik al zei, je moet het path gebruiken waar je documenten staan,dat is niet "C:\Users\SARY\OneDrive"

maar

https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar

Zou dan zoiets moeten worden. (afhankelijk van je mappenstructuur die ik niet ken) 

"https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar"& "\Vroege" & "\"

Deze niet veranderen mijnbestand = Dir(mijnfolder & "\*.Doc*"), je hebt er nu mijnbestand = Dir(Onedrive & "\*.Doc*") van gemaakt.

 

Ok, ik pas het vanavond aan. Bedankt!

Sary Meewerkend lid

Sary

Geplaatst:
  • Auteur
Geplaatst:
6 uren geleden, Sary zei:

Ok, ik pas het vanavond aan. Bedankt!

 

6 uren geleden, Sary zei:

Ok, ik pas het vanavond aan. Bedankt!

Dag Dotchiejack,

 

 

Ik heb dit net aangepast maar ik krijg een foutbericht ==>> mijnbestand = Dir(mijnfolder & "\*.Doc*")

 

Private Sub Cmd_00_Click()
    Unload Me
End Sub
Private Sub LB_00_Click()
On Error GoTo oops
L_00.Caption = LB_00.Column(0)
mijnfolder = ThisWorkbook.Pat & "\Excel" & "\"
mijnbestand = mijnfolder & L_00.Caption
Set Excelapp = CreateObject("Excel.Application")
    Exceldapp.Documents.Open mijnbestand
    Excelapp.Visible = True
oops:
End Sub
Private Sub OB_00_Click()
LB_00.Clear
  mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Vroege" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_01_Click()
LB_00.Clear
  mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Late" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_02_Click()
LB_00.Clear
  mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Nacht" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_03_Click()
LB_00.Clear
  mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Weekend-Dag" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_04_Click()
LB_00.Clear
  mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Weekend-Nacht" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub

Sary Meewerkend lid

Sary

Geplaatst:
  • Auteur
Geplaatst:
32 minuten geleden, Sary zei:

 

Dag Dotchiejack,

 

 

Ik heb dit net aangepast maar ik krijg een foutbericht ==>> mijnbestand = Dir(mijnfolder & "\*.Doc*")

 

Private Sub Cmd_00_Click()
    Unload Me
End Sub
Private Sub LB_00_Click()
On Error GoTo oops
L_00.Caption = LB_00.Column(0)
mijnfolder = ThisWorkbook.Pat & "\Excel" & "\"
mijnbestand = mijnfolder & L_00.Caption
Set Excelapp = CreateObject("Excel.Application")
    Exceldapp.Documents.Open mijnbestand
    Excelapp.Visible = True
oops:
End Sub
Private Sub OB_00_Click()
LB_00.Clear
  mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Vroege" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_01_Click()
LB_00.Clear
  mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Late" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_02_Click()
LB_00.Clear
  mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Nacht" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_03_Click()
LB_00.Clear
  mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Weekend-Dag" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub
Private Sub OB_04_Click()
LB_00.Clear
  mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Weekend-Nacht" & "\"
    mijnbestand = Dir(mijnfolder & "\*.Doc*")
        Do While mijnbestand <> ""
            LB_00.AddItem mijnbestand
        mijnbestand = Dir
    Loop
End Sub

image.thumb.png.8673622571abaedf1e03af255b582859.png

kweezie wabbit Grootmeester

kweezie wabbit

Geplaatst:
Geplaatst:

En hier staat ook een syntaxfout in.

14 uren geleden, Sary zei:

Private Sub LB_00_Click()
On Error GoTo oops
L_00.Caption = LB_00.Column(0)
mijnfolder = ThisWorkbook.Pat & "\Excel" & "\"
mijnbestand = mijnfolder & L_00.Caption
Set Excelapp = CreateObject("Excel.Application")
    Exceldapp.Documents.Open mijnbestand
    Excelapp.Visible = True
oops:
End Sub

 

Er moet op het einde een h bij ==> ThisWorkbook.Path

Sary Meewerkend lid

Sary

Geplaatst:
  • Auteur
Geplaatst:
14 uren geleden, dotchiejack zei:

Lijkt me ook logisch dat je een foutmelding krijgt.

Er staat toch duidelijk & "\Vroege" & "\" en niet & "\Vroege 14 augustus" & "\"

Je moet je Worddocumenten dateren,niet je mappen.

 

als ik ,het goed begrepen heb moet ik mijn Worddocument veranderen naar Vroege?

 Delen
Ga naar topic overzicht
Logo

OVER ONS

PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

SITEMAP

×
×
  • 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.