• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

map openen met vba

Status
Niet open voor verdere reacties.

avesoft

Gebruiker
Lid geworden
11 apr 2011
Berichten
186
Heren forumleden.

Ik zou graag een map in Root open willen maken maar lukt niet goed
zou iemand mij hiermee kunnen helpen ?
doelmap staat in een combo box (Cmb_order1)
het meeste werkt goed maar doelmap word niet geopend

Code:
Private Sub Cmd_orderophalen_Click()
On Error Resume Next
 Dim Root As String
 Dim Ordernummer As String
Root = "https://drive.google.com/?tab=mo&authuser=0#my-drive\"
Ordernummer = Cmb_order1.Text
Dim strShell As String
strShell = "explorer " & Chr(34) & basismap & Ordernummer & Chr(34)
Shell (strShell)
End Sub

Bij voorbaat dank

Gr Arie
 
Of dat op die manier weleens kan weet ik niet maar wijzig dan in ieder geval het \ teken in dat web adres in een /
Daarnaast gebruik je de variabele "basismap" waarvan in de code niet te zien is of deze wel is gedeclareerd en ook een waarde heeft. De variabele "Root" wordt wel van een waarde voorzien maar verder niet gebruikt.

Hou tevens je Dim opdrachten boven in je sub en haal die On Error Resume Next eruit.
Dat heeft hetzelfde effect als een lege benzinetank en toch door willen rijden.
 
Laatst bewerkt:
Dank je voor snelle reactie

Ik heb het aangepast zoals jij voorstelde maar helaas

Private Sub Cmd_orderophalen_Click()
Dim Root As String
Dim Ordernummer As String
Dim strShell As String
Root = "https://drive.google.com/?tab=mo&authuser=0#my-drive/"
Ordernummer = Cmb_order1.Value
strShell = "explorer " & Chr(34) & Root & Ordernummer & Chr(34)
Shell (strShell)
End Sub

Alleen mijn googledrive word geopend en dan houd het op

Gr arie
 
Ik zei ook niet dat de voorgestelde aanpassingen het probleem oplossen. Het waren alleen maar tips. Laat eens een schermafdrukje zien van de map die op dat moment wel word geopend en een ordernummer voorbeeld.
 
En gebruik svp code markeringen (tags) in je bericht.
 
Edmoor

Hierbij afbeelding
En Ordernummer = 210012110

ScreenShot001.jpg


Gr arie
 
Op zich ziet dat er goed uit, maar de naam die Google voor de map gebruikt is waarschijnlijk heel anders dan de naam van de map zoals je die ziet. Dat is nl. niet de naam van de map maar het web adres naar die map. En dat is de reden waarom de hoofdmap wordt geopend.
 
Edmoor

Dan zal ik daar naar kijken, Is mij niet opgevallen

Gr Arie
 
Edmoor

Ik div keren de url in macro gewijzigd.
Het gaat hem niet worden
Ik ga dit verder uitzoeken

gr arie
 
Staat google drive ook niet gewoon op je pc ? zoiets van C:\Users\gebruikersnaam\Google Drive
 
Als je de URL uit de adresbalk van Internet Explorer kopiëert en die gebruikt in VBA dan gaat het gewoon goed, maar ja, dan heb je uiteraard niet de flexibiliteit die je wenst. Je zou dus een manier moeten hebben om die mapnamen om te zetten naar het door Google gebruikte adres per map, maar dat geef ik weinig kans.
 
Laatst bewerkt:
Martin

Klopt. is goed te benaderen via mijn pc
Daar werkt het ook
Maar ik wil het via web kunnen benaderen

gr arie
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan