Avatar billede quqdk Praktikant
05. juli 2012 - 13:44 Der er 1 kommentar og
1 løsning

VBA import fra excel til andet excel ark.

Hej folk.

Jeg er ved at samle alle mine regneark (1stk pr.dag) over i et nyt regneark, hvor jeg benytter et vba import script. Dette fungerer egentlig fint nok (tror jeg :D), i og med at den henter alle filer i en mappe, og laver nye faneblade med den pågældende fils navn. Dog har jeg det problem at den henter alt, både formatering, værdi, billede, etc., hvilket giver mig nogle regneark på 70mb (som tager en krig at åbne og gemme :D).

Jeg tænkte på om det var muligt at lave et script, således at jeg kun henter værdi uden formatering, da det bare er rådata jeg skal bruge.

Det skal lige siges at alle regneark er låst og beskyttet for ændring af formatering, og jeg syns det er dumt at skulle u-beskytte og låse alle ark op manuelt, for at låse dem igen når jeg er færdig med import.

Jeg har benyttet koden i bunden af dette indlæg.
Er der nogen der kan give mig en smartere måde? :D

------
Sub CopySheet()
Dim basebook As Workbook
Dim mybook As Workbook
Dim i As Long
    Application.ScreenUpdating = False
    With Application.FileSearch
        .NewSearch
        .LookIn = "P:\lalala\2011\01 Januar"
        .SearchSubFolders = False
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute() > 0 Then
            Set basebook = ThisWorkbook
            For i = 1 To .FoundFiles.Count
                Set mybook = Workbooks.Open(.FoundFiles(i))
                    mybook.Worksheets(1).Copy after:= _
                    basebook.Sheets(basebook.Sheets.Count)
                    ActiveSheet.Name = mybook.Name
                mybook.Close
            Next i
        End If
    End With
    Application.ScreenUpdating = True
End Sub
Avatar billede finb Ekspert
05. juli 2012 - 14:34 #1
Har ikke lige excel her, men efter hukommelsen:
.copy
paste.special
og
paste.values
som kun overfører tørre tal
mvh finb
Avatar billede quqdk Praktikant
27. marts 2014 - 13:15 #2
Det hele blev droppet, så nevermind.
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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