Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2

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


Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.

On-line nástroje