Celkem maj asi 90 tisic radku, takze jestli se tam nekde schovava nejaka spatna cast asi nebude jednoduchy rucne najit.
Tady jsou vsechny: http://homies.cz/files/data.rar
Paloo diky moc. Na tech dvou souborech to vypada dobre. Ale na na 282 souborech, ktery maj celkem 20 MB to vyhodi error: Runtime error '9': Subscript out of range na radku: ReDim Preserve FileData(UBound(SplitColumn), UBound(SplitRow) - 1)
Poradi sloupcu neni az tak dulezity. Pak nakonec v excelu oznacit celej sloupec a presunout ho by nebyl problem. Jde jen o to, aby data byla umistena ve spravnym sloupci.
Nazvy jsou text, priklad: Div Date HomeTeam AwayTeam FTHG FTAG FTR HTHG HTAG HTR B365H B365D B365A BWH BWD BWA GBH GBD GBA IWH IWD IWA LBH LBD LBA SBH SBD SBA WHH WHD WHA SJH SJD SJA VCH VCD VCA BSH BSD BSA Bb1X2 BbMxH BbAvH BbMxD BbAvD BbMxA BbAvA BbOU BbMx>2.5 BbAv>2.5 BbMx<2.5 BbAv<2.5 BbAH BbAHh BbMxAHH BbAvAHH BbMxAHA BbAvAHA
Prikladam 2 prilohy, muzu kdyztak dat dalsi, ale je to porad to samy. Na prvnim radku nazvy sloupcu, pak jen data.
http://homies.cz/files/B1.csv
http://homies.cz/files/I1.csv
Mam 282 .csv souboru, ktery maj na prvnim radku nazev sloupce a na dlasich data.
Chci je vsechny vlozit do excelu v jednotny strukture, tzn. v kazdym sloupci jen data, ktery maj v csv souboru vzdy stejnej nazev sloupce.
Napriklad 1. csv soubor ma strukturu:
sloupec1 sloupec2 sloupec3 sloupec5
data1 data2 data3 data4
data5 data6 data7 data8
2. csv soubor:
sloupec1 sloupec4 sloupec5
data9 data10 data11
Vyslednej excel soubor ma vypadat takhle:
sloupec1 sloupec2 sloupec3 sloupec4 sloupec5
data1 data2 data3 data4
data5 data6 data7 data8
data9 data10 data11
Je moje vysletleni srozumitelny? Znate nekdo zpusob, jak data takhle strukturovat? Diky.
Tak uz jsem na to prisel. Po zjednoduseni to ma jen par radku. http://pastebin.com/fR6amQiP
Diky za rady.
Jak jsem se koukal na ten kod, trochu jsem tomu porozumel a pokusil jsem se si to napsat nejak sam. Problem nastal na radkach typu: Range("BD" + i).Select, kde chci, aby vyber u kazdyho kroku cyklu byl BD0, BD1, BD2, ...
Cely makro:
Sub mojemakro()
krok = 0.001
aktualni = 0
For i = 0 To 10
Range("C94").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = aktualni + krok
Range("C94").Select
Selection.Copy
Range("BD" + i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M97").Select
Application.CutCopyMode = False
Selection.Copy
Range("BE" + i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O97").Select
Application.CutCopyMode = False
Selection.Copy
Range("BF" + i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.