Avatar billede optikeren Nybegynder
13. december 2009 - 23:15 Der er 2 kommentarer og
1 løsning

Makro - Kopiering af ark til brugervalgt fil

Jeg er ved at oprette en makro, der kopierer et ark fra en fil til en anden fil. Det fungerer fint. Problemet er bare, at filnavnet, som arket skal indsættes i, skal kunne vælges af brugeren. Altså skal arket indsættes i en fil, som brugeren selv indtaster et navn på. Hvordan gør jeg det?

Her er, hvad jeg har skrevet indtil videre:

Sheets("Omsætning 2010").Select
Sheets("Omsætning 2010").Copy After:=Workbooks("12011.xlsx").Sheets(5)

Arket "Omsætning 2010" skal overføres til en vilkårlig fil, som vælges af brugeren, i dette tilfælde "12011.xlsx".

Microsoft Excel 2007
Avatar billede excelent Ekspert
16. december 2009 - 16:58 #1
koden åbner den fil der vælges og indsætter ark

Sub CopyArk()
ws1 = ThisWorkbook.Name
Application.Dialogs(xlDialogOpen).Show
ws2 = ActiveWorkbook.Name
Workbooks(ws1).Activate
Sheets("Omsætning 2010").Select
Sheets("Omsætning 2010").Copy Before:=Workbooks(ws2).Sheets(5)
End Sub
Avatar billede optikeren Nybegynder
16. december 2009 - 22:14 #2
Til excelent

Tak for hjælpen, du har lige reddet en del her.

Hvordan giver jeg dig pointene?
Avatar billede excelent Ekspert
16. december 2009 - 22:47 #3
jeg svarer, så skulle du kunne acceptere svar
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester