< návrat zpět

MS Excel


Téma: Strukturovani .csv souboru. rss

Zaslal/a 29.6.2013 20:20

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.

Zaslat odpověď >

Strana:  1 2   další »
#014225
avatar
A ako budem vedieť, že sloupec4 má ísť pred sloupec5?
Tie názvy budú číslované alebo nejaké všeobecné?

A patrilo by sa pridať aj prílohy.citovat
#014226
avatar
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.csvcitovat
#014233
avatar
skus toto:
Příloha: zip14233_data.zip (40kB, staženo 19x)
citovat
#014234
avatar
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)citovat
#014239
avatar
treba zistit pri akom subore to pada .... asi je dost mozne ze ten subor ma inu strukturu ako si poslal

alebo mas tam aj prazne subory? :) s tym som neratalcitovat
#014240
avatar
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.rarcitovat
#014241
avatar
tak uz som tam nasiel chybu ... v tych suborovh je navyse jedna ciarka tj. ma to viac stlpcov ako prvi riadok .... aj ked ten riadok je NULOVIcitovat
#014242
avatar
tuje to opravene tak aby bralo stlpce len podla prveho riadku
Příloha: zip14242_data.zip (40kB, staženo 19x)
citovat
#014243
avatar
Diky, ale poslal jsi asi omylem ten vcerejsi soubor.citovat
#014245
avatar
netusim preco to dalo old subor

zmena bola len v sube:
Private Sub readData(ByVal z As Integer)
Dim SplitRow() As String
Dim SplitColumn() As String

Dim hf As Integer: hf = FreeFile
Open ActiveWorkbook.Path & "\data\" & FileName(z) For Input As #hf
SplitRow = Split(Input$(LOF(hf), #hf), vbNewLine)
Close #hf

For x = LBound(SplitRow) To UBound(SplitRow) - 1
SplitColumn = Split(SplitRow(x), ",")
If x = 0 Then ReDim FileData(UBound(SplitColumn), UBound(SplitRow) - 1)
For y = LBound(SplitColumn) To UBound(SplitColumn)
If y <= UBound(FileData) Then FileData(y, x) = SplitColumn(y)
Next
Next
End Sub


a aRow na double ... lebo tam znikol owerflow :P

tak este raz:
Příloha: zip14245_test.zip (16kB, staženo 19x)
citovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse