29. november 2004 - 14:06Der er
6 kommentarer og 1 løsning
Kopiere fra Excelfil til Excelfil
Jeg har tidligere spurgt. Særdeles uklart. Forsøger derfor igen.
Jeg har 'brygget' følgende kode. Hensigten er at biblioteket er 'præ'-defineret i filen. Dog skal brugeren vælge den fil, som der skal hentes indhold fra. (Der kan ligge flere relevante filer).
Den første del af makroen fungere fint, såsom 1) At gemme excelfilen med korrekt navn/bibliotek 2) Åbn funktion til fil2 og valg af fil2 går fint. 3) Sortering i fil2 og kopi går fint. men, men ...... 4) Valg af fil1 går galt 5) At lukke fil2 går galt.
Håber at nogen kan hjælpe? Det er givet noget med defineringen af de 2 workbooks?
Sub Hent() ChDrive "H" ChDir "" & Range("Stinavn").Value & "" Filnavn1 = "" & Range("FilnavnDV").Value & "" ActiveWorkbook.SaveAs Filename:=Filnavn1, FileFormat:=xlNormal Filnavn2 = Application.GetOpenFilename Workbooks.Open Filnavn2 ' filenavn2 er her med hele stien Filnavn2 = ActiveWorkbook.Name ' filenavn2 er her kun navnet Excel mappen, det er det du skal arbejde videre med Sheets("Ark1").Select Cells.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Cells.Copy Windows(Filnavn1).Activate Worksheets("opl").Select Range("A1").PasteSpecial xlPasteValues Windows(Filnavn2).Activate ActiveWindow.Close Windows(Filnavn1).Activate Sheets("Indtastning").Select End Sub
Filnavn1 = ActiveWorkbook.Name ' kun navnet uden sti Filnavn2 = Application.GetOpenFilename Workbooks.Open Filnavn2 ' filenavn2 er her med hele stien Filnavn2 = ActiveWorkbook.Name ' filenavn2 er her kun navnet Excel mappen, det er det du skal arbejde videre med
Jeg lagde mærke til, at i Fil1 var arket, som der var kopieret ind i - markeret. Kan markeringen nulstilles simpelt? Det kunne jeg med Fil2, som havde meget i udklipsholderen, ved 'Application.CutCopyMode = False'.
Ved lukning af Fil2. Kan man undgå dialogboksen omkring overskrivning af fil, når den lukkes?
Sub Hent() ChDrive "H" ChDir "" & Range("Stinavn").Value & "" Filnavn1 = "" & Range("FilnavnDV").Value & "" ActiveWorkbook.SaveAs Filename:=Filnavn1, FileFormat:=xlNormal Filnavn1 = ActiveWorkbook.Name ' kun navnet uden sti Filnavn2 = Application.GetOpenFilename Workbooks.Open Filnavn2 ' filenavn2 er her med hele stien Filnavn2 = ActiveWorkbook.Name ' filenavn2 er her kun navnet Excel mappen, det er det du skal arbejde videre med Sheets("Ark1").Select Cells.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Cells.Copy Windows(Filnavn1).Activate Worksheets("opl").Select Range("A1").PasteSpecial xlPasteValues Windows(Filnavn2).Activate Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = true Windows(Filnavn1).Activate Sheets("Indtastning").Select End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
