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

Aanroepen ander excelbestand

Status
Niet open voor verdere reacties.

CrashPuppy

Gebruiker
Lid geworden
28 feb 2006
Berichten
399
Ik wil vanuit een excelbestand middels het aanklikken op een commandbuttom een andere excelbestand openen
De volgende actie moet dan plaatsvinden.

Huidige werkmap dient gesloten en opgeslagen te worden zonder dat de gebruiker de keuze krijg of de wijzigingen moeten worden opgeslagen.
Vervolgens dient het aangeroepen bestand geopend te worden.
Hoe krijg ik dit voor elkaar middels een simpele code.

CrashPuppy
 
Is dit simpel genoeg.:p

Code:
Workbooks.Open "C:\AnderBestand.xls"
ThisWorkbook.Close savechanges:=True
Bovenstaande code opent het bestand AnderBestand op de C-drive, sluit het huidige bestand (het bestand met de code) af en slaat het op.

Met vriendelijke groet,


Roncancio
 
Het werk goed.
Maar ik loop tegen een andere beperking aan.
Er staat me iets bij van een z.g. omgevingsvariabele.
Nu staan alle bestanden b.v. in de directory D:\management
Nu kan ik wel leuk alle verwijzingen gaan typen naar die map. Maar morgen worden die bij elkaar horende bestanden gekopieerd naar z:\management2 en dan gaat dit niet op.
Het moet dus zo zijn dat de aan te roepen bestanden altijd in de huidige werkdirectory gezocht moet worden ongeacht de map waar zie groep bestanden met hun onderlingen koppelingen en verwijzingen zich bevindt.

Ik hoop dat ik het een beetje begrijpelijk aangeef wat mijn probleem is. Via opties en werkdirectory instellen is geen optie omdat meerdere gebruikers vanuit verschillende lokaties info moeten kunnen verwerken.

Hoop alleen dat ik niet met iets onmogelijks op de proppen kom.

CrashPuppy
 
een kwestie van de padverwijzing verwijderen.
VBA zoekt dan in de huidige directory.

Code:
Workbooks.Open "anderbestand.xls"
ThisWorkbook.Close savechanges:=True

Met vriendelijke groet,


Roncancio
 
Inderdaad verrassend simpel !!!
Dat ik dat weer niet had kunnen bedenken.

Thanks Guys


CrashPuppy
 
Inderdaad verrassend simpel !!!
Dat ik dat weer niet had kunnen bedenken.

Thanks Guys


CrashPuppy

Weer te vroeg gejuicht
Bij mij werkt het andersom True heb ik veranderd in False en nu slaat ie op zonder vragen en open het andere bestand.
Wat is nu goed.?

CrashPuppy
 
Het antwoord dat ik op mijn vraag heb gekregen werkt goed op eigen PC.
Helaas gebeurt dit niet wanneer ik dit gebruik bij mijn baas.

Is dit de enige wijze, of is er een wellicht moeilijker truukje?
Met een paar hinten zou ik al blij zijn.

CrashPuppy
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan