One drive ipv hardeschijf C:

[ozzyozzy]

hallo allemaal,

Graag wil ik de volgende excel documenten inlezen via one drive. heeft iemand idee hoe dit werkt?
nu lees ik het via een harde schijf locatie C:

Private Sub CommandButton2_Click()

  c00 = ThisWorkbook.Path & "\test1.xls"

  With GetObject(c00)

    ar = .Sheets(1).Cells(1).CurrentRegion

    .Close 0

  End With

Private Sub CommandButton2_Click()
  c00 = ThisWorkbook.Path & "\test1.xls"
  With GetObject(c00)
    ar = .Sheets(1).Cells(1).CurrentRegion
    .Close 0
  End With
 
  y = Application.Transpose(Application.Index(ar, 0, 1))
  ar1 = Sheets("blad1).Cells(11, 1).CurrentRegion.Resize(, 16) '1 aanpassen naar de juiste week

  For j = 2 To UBound(ar1)
    x = Application.Match(ar1(j, 1), y, 0)
    If IsNumeric(x) Then
      For jj = 2 To 16
        ar1(j, jj) = ar(x, jj)
      Next jj
    End If
  Next j
  Sheets("blad1").Cells(11, 1).CurrentRegion.Resize(, 16) = ar1 '1 aanpassen naar de juiste week
End Sub

 

[edmoor]

Verwijs naar de map waar OneDrive mee synchroniseerd.
Waarschijnlijk deze:

Environ("Userprofile") & "\OneDrive"

 

[ozzyozzy]

Ziet de code dan zo eruit. Want de gegevens wordt opgehaald uit andere excel bestand. dit wil ik allemaal in onedrive laten draaien.
one drive is nieuw voor mij.

Private Sub CommandButton2_Click()

  c00 = Environ("Userprofile") & "\test1.xls"
          With GetObject(c00)
        ar = .Sheets(1).Cells(1).CurrentRegion
        .Close 0

  End With

 

  y = Application.Transpose(Application.Index(ar, 0, 1))

  ar1 = Sheets("blad1).Cells(11, 1).CurrentRegion.Resize(, 16) '1 aanpassen naar de juiste week



  For j = 2 To UBound(ar1)

    x = Application.Match(ar1(j, 1), y, 0)

    If IsNumeric(x) Then

      For jj = 2 To 16

        ar1(j, jj) = ar(x, jj)

      Next jj

    End If

  Next j

  Sheets("blad1").Cells(11, 1).CurrentRegion.Resize(, 16) = ar1 '1 aanpassen naar de juiste week

End Sub

 

[edmoor]

Dat is niet wat ik schreef.
Het is gewoon een folder:

Environ("Userprofile") & "\OneDrive\test1.xls"

 

[ozzyozzy]

is niet gelukt krijg foutmelding.

 

[edmoor]

En wij moeten dan maar raden welke van de 100.000+ mogelijke foutmeldingen dat dan is?

 

[ozzyozzy]

nu met foutmelding

 

[edmoor]

Dan is je code dus syntactisch niet correct.

 

[ozzyozzy]

ik heb een voorbeeld bestand toegevoegd.

 

[edmoor]

Werkt hier zonder enig probleem.