< 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:  « předchozí  1 2
#014250
avatar
Ted uz to zpracuje. Ale podle me spatne.
Napriklad na 3653. radku jsou u nasledujicich sloupcu hodnoty:
Bb1X2 BbMxH BbAvH BbMxD BbAvD BbMxA BbAvA
2     4,00   5,50   1,57   4,00  6,00   1,57

Ten 3653. radek je ve skutecnosti prvni radek souboru D1 (1).csv a jeho skutecny hodnoty by meli bejt:
35    1,57   1,52   4,38   4,10  7,25   6,36citovat
#014252
avatar
prave to kontrolujem ... daj chvilu casu ... je tam moc vela udajov a je to dst neprehladnecitovat
#014253
avatar
takze treba sa spravne vyjadrovat makro pracuje spravne ale ja som ho zle napisal, to je tak ked ho pisem o pol noci :P

ale uz som nasiel chybu islo o to ze v makre sa vyhladava v akom stlpci ma doplnit udaj ... v mojom makre ho vyhladalo ale uz nezapisalo do spravneho stlpca

tu je to lepsie vidiet:
Private Sub writeData(ByVal z As Integer)
Dim aCell As Range

If z = 0 Then
For x = 0 To UBound(FileData, 2)
For y = 0 To UBound(FileData)
Cells(x + 1, y + 1) = FileData(y, x)
Next
Next
Else
For y = 0 To UBound(FileData)
Set aCell = ActiveSheet.Rows("1:1").Find(What:=FileData(y, 0), LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not aCell Is Nothing Then
For x = 1 To UBound(FileData, 2)
Cells(aRow + x, aCell.Column) = FileData(y, x)
Next
Else
aColumn = Cells(1, 1).CurrentRegion.Columns.Count
Cells(1, aColumn + 1) = FileData(y, 0)
For x = 1 To UBound(FileData, 2)
Cells(aRow + x, aColumn + 1) = FileData(y, x)
Next
End If
Next
End If

aRow = aRow + UBound(FileData, 2)
End Sub


tu je to opravene:
Příloha: zip14253_test.zip (16kB, staženo 19x)
citovat
#014254
avatar
Jeste jsem to neprochazel moc dukladne, ale ty cisla vypadaj, ze sedej. Diky.
Problem je jen u data, ktery je ve zdrojovym souboru zapsany Anglicky jako MM/DD/RR, ale excel to prevadi jako DD.MM.RRRR. A obcas se ted misto HomeTeam a AwayTeam objevujou misto textu cisla. To jsou ale bunky, se kterejma v tuhle chvili neplanuju pracovat. Jedine ze bych je pak v budoucnu pouzival jako filtry.citovat
#014255
avatar
tu som pozmenil Set find-u a uz to nerobi zlobu

skus toto:
Příloha: zip14255_test.zip (17kB, staženo 19x)
citovat

Strana:  « předchozí  1 2

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