Ylikerroin.com - Parhaat veikkausvihjeet

h kirjoitti:Minulla on kansioon Hutipetsit tallennettuna 100 kpl standardimuotoisia Excel-työkirjoja nimiltään: eiosuikuna0202.xls, eiosuikuna0302.xls jne.

Nyt haluaisin kätevästi ja nopeasti yhdistää näihin yksittäisiin tiedostoihin tallettamaani dataa yhteen työkirjaan. Data on aina samassa paikassa, vaikkapa soluissa A1...A10 tai vaihtoehtoisesti alueella A1…C10.
Data pitäisi myös mahdollisesti samalla transponoida, jotta sen saisi muotoon yhden asiakirjan data yhdelle riville tai sen ollessa aluemuodossa esim. kolmelle peräkkäiselle riville.

Olisi hyvä, jos koostetyökirjaan saisi mukaan myös lähdetiedostojen nimet, esim. nimi sarakkeeseen A ja data sarakkeisiin B…K.
Lähdetiedostot tulisi avata vuorotellen ja sulkea aina ennen seuraavan avaamista.

Onko ylipäätäänkään mahdollista laatia makroa tähän tarkoitukseen helpottamaan copypasteilua?

Sub MergexlFiles()

    Dim SrcBook As Workbook
    Dim fso As Object, f As Object, ff As Object, f1 As Object
    Dim nextrow As Long

    Application.ScreenUpdating = False
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.Getfolder("C:\Temp\")
    Set ff = f.Files

    For Each f1 In ff

        Set SrcBook = Workbooks.Open(f1)
        SrcBook.Worksheets(1).Range("A1:C10").Copy
        ThisWorkbook.Worksheets(1).Activate
        nextrow = Range("B1000").End(xlUp).Row + 1
        Cells(nextrow, 1).Value = SrcBook.name
        Range("B" & nextrow).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        Application.CutCopyMode = False
        SrcBook.Close
        

    Next
    
    Cells(2, 11).Select
    Application.ScreenUpdating = True

End Sub

S.Mäenala kirjoitti: Siinä kaikki.
Koodi on kirjoitettu Excel 2010 -versiolla eikä mahdollisesti toimi kovin vanhalla Excel'illä.

h kirjoitti:...Teki just sen, mitä tarkoitinkin myös kymmenkunta vuotta vanhalla Excel-versiollani.
Sen verran jäi vielä toivetta, että jos…

S.Mäenala kirjoitti: Valitettavasti aikaresurssit eivät salli kovin henkilökohtaisten palvelujen tarjoamista.

...VBA-koodauksen perusteet on suht helppo oppia muutaman tunnin itseopiskelullakin.