Hej

Jeg har i vedhæftede fil (Data.XLSM) lavet en makro (makro1) der skal åbne en text-fil i Excel (ACM.ST.TXT). Indholdet i text-filen skal kopieres over i Data-filen – indsættes i kolonne M til V. Herefter er der nogle beregninger og kolonne M til V skal igen slettes.

Sagen er den, at Data-filen skal hente data fra 1200 andre text-filer (1200 forskellige filnavne der ligger i mappen C:\Min mappe\) ved at køre i loop. Jeg tænker derfor at en løsningsmulighed er, at makroen åbner text-filen via et hyperlink fra en bestemt celle i Data-filen (celle K1) og for hver gang der køres et loop bliver der indsat et nyt filnavn i J1 der giver et nyt Hyperlink i K1.

Jeg har også forsøgt at lave et hyperlink på denne måde, men der er noget galt.

Workbooks.OpenText Filename:=Hyperlink("C:\Min mappe\" & H1 & ".TXT", H1)

Findes der en løsning på det?

Udfordring nr. 2:

En anden udfordring jeg har, er at få lukket text-filen igen. Data-filen og text-filen er åben og det er Data-filen der er den aktive fil. Navnet på text-filen er forskellig for hver gang der køres et loop, så hvordan får jeg den lukket eller aktiveret så jeg kan få makroen til at lukke den?

Håber der er nogen der er skarpe i den slags.

På forhånd tak.

Mvh Uffe

uploads/1988/.xlsm - uploads/1988/Data.xlsm

uploads/1988/ACM_2017-06-13_23-01-20.ST_2017-06-13_23-01-20.txt