HansFRAP
Gebruiker
- Lid geworden
- 12 jul 2011
- Berichten
- 233
Probleem
Ik een 10 afdelingen, elke afdeling heeft een eigen werkboek met 12 tabbladen voor het schrijven van uren.
De beheerder heeft een werkboek waarin, op basis van PQ, elke blad per afdeling opgehaald kan worden. Dit zijn daardoor: 10 afdelingen maal 12 maanden = 120 query's.
Nu wil men de afdelingsbestanden op een andere plaatsen gaan opslaan.
gevolg: 120 queries moeten aangepast worden.
Vraag
Is er een manier om de waardes in de bron van de P-query's snel, effectief te wijzigen?
(anders dan query: Openen, Wijzigen en Opslaan)
Zou toch met VBA moeten kunnen?
maw: hoe kan ik: Bron = Excel.Workbook(File.Contents("C:\Data\Afdeling 1.xlsx"), null, true), omzetten naar: Bron = Excel.Workbook(File.Contents("H:\AfdelingsData\Afdeling 1.xlsx"), null, true),
uit lijst in PQ?
Ik een 10 afdelingen, elke afdeling heeft een eigen werkboek met 12 tabbladen voor het schrijven van uren.
De beheerder heeft een werkboek waarin, op basis van PQ, elke blad per afdeling opgehaald kan worden. Dit zijn daardoor: 10 afdelingen maal 12 maanden = 120 query's.
Nu wil men de afdelingsbestanden op een andere plaatsen gaan opslaan.
gevolg: 120 queries moeten aangepast worden.
Vraag
Is er een manier om de waardes in de bron van de P-query's snel, effectief te wijzigen?
(anders dan query: Openen, Wijzigen en Opslaan)
Zou toch met VBA moeten kunnen?
maw: hoe kan ik: Bron = Excel.Workbook(File.Contents("C:\Data\Afdeling 1.xlsx"), null, true), omzetten naar: Bron = Excel.Workbook(File.Contents("H:\AfdelingsData\Afdeling 1.xlsx"), null, true),
uit lijst in PQ?