< 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.

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

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 21x)
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 21x)
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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09