Ga naar inhoud

VBA Onedrive


Sary
 Delen

Aanbevolen berichten

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

Link naar reactie
Delen op andere sites


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

Link naar reactie
Delen op andere sites


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!

Link naar reactie
Delen op andere sites

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

 

Link naar reactie
Delen op andere sites

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

Link naar reactie
Delen op andere sites


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.

 

Link naar reactie
Delen op andere sites

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!

Link naar reactie
Delen op andere sites

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

Link naar reactie
Delen op andere sites

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

Link naar reactie
Delen op andere sites

 Delen

×
×
  • Nieuwe aanmaken...