Geachte lezer,
Ik heb allerlei oplossingen gevonden voor het kopiëren van cellen van het ene Excel werkblad naar het andere. Maar ik vind nagenoeg geen oplossingen om cellen te kopiëren vanuit een geopende werkmap (die niet opgeslagen is op de computer).
Is het mogelijk om een formule te creëren zodat de betreffende 'geopende' werkmap de map is om de gegevens uit te halen? Ik download namelijk altijd een andere werkmap, met dezelfde layout, maar andere bestandsnaam en gegevens.
Ik heb hiervoor de volgende formule gevonden, maar dit werkt natuurlijk alleen als de bestandsnaam bekend is:
Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _
Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")
Of door gewoon een macro op te nemen in Excel.
Windows("Map1.xls").Activate
Columns("A:H").Select
Range("A36").Activate
Selection.Copy
Windows("IR0002c,W,binnendraai.xlsm").Activate
Columns("A:H").Select
Range("A32").Activate
ActiveSheet.Paste
Range("A17:G17").Select
Dus het kopiëren en plakken tussen werkbladen is hier niet het probleem. Zolang de betreffende map maar een locatie (path) heeft om te kunnen vinden.
Maar nu nog het kopiëren zonder een bestandsnaam te noemen.
Ik heb allerlei oplossingen gevonden voor het kopiëren van cellen van het ene Excel werkblad naar het andere. Maar ik vind nagenoeg geen oplossingen om cellen te kopiëren vanuit een geopende werkmap (die niet opgeslagen is op de computer).
Is het mogelijk om een formule te creëren zodat de betreffende 'geopende' werkmap de map is om de gegevens uit te halen? Ik download namelijk altijd een andere werkmap, met dezelfde layout, maar andere bestandsnaam en gegevens.
Ik heb hiervoor de volgende formule gevonden, maar dit werkt natuurlijk alleen als de bestandsnaam bekend is:
Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _
Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")
Of door gewoon een macro op te nemen in Excel.
Windows("Map1.xls").Activate
Columns("A:H").Select
Range("A36").Activate
Selection.Copy
Windows("IR0002c,W,binnendraai.xlsm").Activate
Columns("A:H").Select
Range("A32").Activate
ActiveSheet.Paste
Range("A17:G17").Select
Dus het kopiëren en plakken tussen werkbladen is hier niet het probleem. Zolang de betreffende map maar een locatie (path) heeft om te kunnen vinden.
Maar nu nog het kopiëren zonder een bestandsnaam te noemen.