Lukke aktiv workbook uden at gemme

sæt dette nederst i koden lige før end sub

ThisWorkbook.Saved = True
ThisWorkbook.Close

Duer ikke helt, da der sker det at den lukker den workbook der indeholde makroen og ikke det aktive ark som jeg kopierer fra.

så skal det være

ActiveWorkbook.Saved = True
ActiveWorkbook.Close

jeg troede at det var den med makroen der skulle lukke

du skal så aktivere den workbook kopierer fra inden koden

Det var noget af vejen. Nu får jeg så¨spørgsmålet om jeg vil gemme det er er i udklipsholderen til senere brug, og det vil jeg, men jeg vil ikke svare på spørgsmålet måske 20 gange hvis jeg åbner 20 filer!!!

jeg har ikke løsningen på det sidste, måske har andre det.

Har du prøvet med
Application.DisplayAlerts = False
?

Du kopierer data fra 20 tekstfiler til en arbeidsbok.

Jeg gjør noe lignende: 
- henter data fra mange csv-filer til en excelbok.
- benytter IKKE copy - past.

- åpner en og en tekstfil -> data leses til en variant-matrise
  dette skjer med data fra alle tekstfilene,
- når alle data er lest inn i matrisen og alle tekstfiler er lukket,
  blir data satt inn i excelboken.

Synest det funger meget bra.

Ja det virker, men de data jeg kopierer de er blevet forvansket når jeg indsætter dem i det andet ark. Det har mås noget at gøre med at jeg starter med en komma separeret csv fil og der konverterer dataene til kolonner inde de kopieres.
Jeg acepterer dit forslag og siger tak for hjælpen

Har du prøvd å endre filendelsen på csv. filene til txt filer ? Det har hjulpet meg:

Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoFld = fso.GetFolder(sCsvFld)

For Each fsoFil In fsoFld.Files
If UCase(Right(fsoFil.Name, 3)) = "CSV" Then
  sFilNavn = Left(fsoFil.Name, Len(fsoFil.Name) - 3) & "txt"
  If fso.FileExists(sCsvFld & sFilNavn) Then
    fso.DeleteFile (sCsvFld & sFilNavn)
  End If
  fsoFil.Name = sFilNavn
End If
Next
Set fso = Nothing
Set fsoFld = Nothing

sCsvFld:  er en variabel som inneholder path til mappe med csv filer
sFilNavn: er også en variabel med filnavn.csv