08. marts 2013 - 09:55Der er
10 kommentarer og 1 løsning
VBA i excel 2010: åbne fil og gem som
Hej Eksperte
Kan jeg få en af jer til at skrive en VBA der virker i excel 2010, der gør følgende:
1. Åbner dialogboks til at vælge en fil der skal åbnes. Startfolder skal kunne angives i VBA'en
2. Når man har valgt filen, skal man tvinges til at gemme filen med nyt navn. Man skal selv kunne angive navn og folder. Starfolder skal kunne angives i VBA'en
3. Kopier celle Sheet1!A1:D100 fra den fil man stod i inden man åbnede den valgte fil i pkt. 1.
4. indsæt de kopierede celler SOM VÆRDI i Sheet20!A15:D115 i den valgte fil fra pkt. 1
Kan man i en userform browse i ens filer? Altså ligesom hvis man normalt trykkede på "Open" i excel? Hvis det er tilfældet, så vil det være helt fint.
Jeg tror tidliger jeg har haft en VBA kode der har brugt et application object der hed "Application.FileDialog(msoFileDialogOpen)" som vist også gav mulighed for at vælge en fil der skulle åbnes.
Fordelen er, at du kan definere hvilken mappe, der skal vises filer fra - hvis det vel og mærke er den samme hver gang. På samme måde kan der vælges en mappe, hvor filen skal gemmes.
Eks.: Const startFolder = "D:\Eksperten" Dim filNavn As String Private Sub UserForm_activate() visFiler startFolder
End Sub Private Sub visFiler(mappenavn) Dim fs, f, f1, fc, fNavn As String, ext As String, navnSplit As Variant
Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(mappenavn) Set fc = f.Files
For Each f1 In fc filNavn = f1.Name Me.Lb_filListe.AddItem filNavn Next End Sub
Private Sub Workbook_Open()skal kopieres ind under "ThisWorkbook". Men hvad med den anden kode du skrev i #3, hvor skal den kopieres ind? Jeg syntes ikke rigtig at jeg kan få den til at køre....
De koder du har skrevet, dækker de kun pkt. 1 i mit spørgsmål?
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.
