Excel sheets splitsen

[KJH]

Ik heb een excelbestand met bijv. 10 verschillende sheets. Hoe kan ik er voor zorgen dat al deze sheets in een apart excelbestand worden opgeslagen, zodat het eerste sheet in het eerste bestand staat, de tweede sheet in het tweede bestand, het derde sheet in het derde bestand enz.

Het is wel gelukt het volgende stukje code:

------------------------------------------------------------------------------------------------

Dim exlApp As New Excel.Application
Dim exlSheet As Excel.Worksheet

Pathoffile = "C:\Excel\Test.xls"

With exlApp
.DisplayAlerts = False
.Workbooks.Open (Pathoffile)
For i = 1 To .Worksheets.Count
Teller = Teller + 1
.Workbooks.Open (Pathoffile)
Set exlSheet = .Sheets(i)
exlSheet.Select
exlSheet.Copy

.ActiveWorkbook.SaveAs "C:\Excel\" & Teller & ".xls"
Next i
End With

exlApp.Quit

---------------------------------------------------------------------------------------------------------
Alleen krijg ik dan bij het openen van de aparte excelbestanden telkens
de melding dat er een automatische link is met een ander werkboek en
dat is niet de bedoeling.

 

[Wigi]

Dan zal je de formules moeten plakken als Waarden of zo. Zie bij Bewerken > Plakken Speciaal.

 

[KJH]

Weet iemand daar de code van?

 

[Wigi]

Zoiets

Sub waarden()

    Dim exlApp As New Excel.Application
    Dim exlSheet As Excel.Worksheet
    
    Pathoffile = "C:\Excel\Test.xls"

    With exlApp
        .DisplayAlerts = False
        .Workbooks.Open (Pathoffile)
        For Each exlSheet In .Worksheets
            Teller = Teller + 1
            .Workbooks.Open (Pathoffile)
            exlSheet.Select
            exlSheet.Copy
            Cells.Copy
            Cells(1).PasteSpecial xlValues
            .ActiveWorkbook.SaveAs "C:\Excel\" & Teller & ".xls"
        Next
    End With

    exlApp.Quit

End Sub

ongeteste code

Wigi

 

[KJH]

Ik heb de code getest en het blijkt niet helemaal goed te gaan. Het gaat fout in de regel Cells(1).PasteSpecial xlValues

Ik krijg de volgende foutmelding:

'This operation requires the merged cells to be identically sized'

Weet iemand de code om dit op te lossen?

 

[Wigi]

Kijk eens in mijn handtekening hier op het forum...:

Vermijd...

 

[KJH]

Betekent dat dat hier geen goede oplossing voor is?

 

[Wigi]

Toch wel.

De cellen selecteren, dan via Opmaak > Celeigenschappen > Uitlijning > Horizontaal > Centreren over selectie.

 

[KJH]

Hmmm, blijkt niet te werken. Nog steeds dezelfde melding.
Blijkt toch iets lastiger te zijn dan ik had gehoopt.

 

[Wigi]

Dan zal je je bestand hier moeten bijvoegen, anders kunnen wij er ook niets voor doen denk ik.

 

[KJH]

Dat kan ik niet doen helaas.
Het is vertrouwelijke informatie van een klant.
Dus ik ben bang dat ik iets anders moet verzinnen.
Beankt voor de hulp!

 

[Wigi]

Vervang dan namen en bedragen door fictieve namen en bedragen, verander opmaak, ...

 

[KJH]

Bijlage

Dit is een stukje van het excel-bestand.