kopiranje podatkov iz txt v xls

[rick]

pozdravljeni

kot ste že iz naslova prebrali imam težave s prenosom(kopiranjem) podatkov iz txt datoteke v xls.
primer:

RF RF RF RF
-0.85 0.74 -0.30 0.69
jan.15 jan.54 -0.08 0.53
-0.11 -0.00 -0.52 -0.54
0.51 0.42 1.jun 0.62
feb.34 jan.26 -0.84 0.01
2.apr jan.72 feb.35 jan.67
2.jun jan.80 jan.36 0.76
-0.22 0.83 -1.26 -0.36
1.maj jan.21 jan.64 1.apr
0.93 jan.46 0.80 0.07
feb.33 jan.39 0.63 -0.99

to so pač neke vrednosti,ki sem jih kopiral iz txt v xls.
no težava je takoj razvidna,saj mi namesto nekega decimalnega števila,ki je bil v txt datoteki potem prilepi datumske vrednosti.
težava je že v tem,ker so namesto decimalnih vejic v txt datoteki pike.
kako bi rešil problem,da bi lahko točno tiste vrednosti ki so v txt datoteki
potem tudi prilepil v xls.
za odgovor se najlepše zahvaljujem.

lp rick

[admin]

Jap, v SLO verziji Excela; no pravzaprav v SLO verziji OKEN (to je bolj pravilno, saj Excel te nastavitve bere iz Oken) imamo pač določeno, da je ločilo datuma pika in če vi uvažate podatke s pikami (mimogrede, to ni v skladu z slovenskimi dogovori) morate Excelu nekako pomagati, da mu dopoveste, da je govora o številih in ne datumih.

Rešitev je več, dve izmed njih pa sta tudi dokaj preprosti in uprabni:

1. Če podatke kopirate, potem jih najprej skopirajte v kakšen urejevalnik (lahko tudi notepad) in tam najprej zamenjajte vse pike z vejicami - to je en sam ukaz Najdi/Zamenjaj. Ko to naredite, zopet označite celoten tekst in ga skopirate v Excel - REŠENO!
2. Lahko pa vsebino preko nekega urejevalnika zapišete v tekstovno datoteko in potem v Excel uvozite to tekstovno datoteko. Pri uvozu pa samo v zadnjem koraku uvoza obvezno kliknite gumb dodatno in povejte, da je vaš decimalni simbol pika in ne vejica!

[rick]

pozdravljeni

ja vidim Matjaž,da sem v resnih težavah.bom kar naravnost vprašal
in prosil za makro,ki naj bi se glasil takole:

1. sem v xls delovnem zvezku
2.odprem katerokoli txt datoteko
3.zamenjam v njej vse pike(ločilo) z decimalno vejico
4.shranem txt datoteko


no dalje mi bo verjetno uspelo.potem.bom zopet poizkušal z makrom
odpreti txt datoteko(z decimalnimi vejicami) in vse skupaj prilepiti v xls. mislim,da bom to potem
zmogel sam,vsekakor pa bi bil zelo vesel za rešitev zgornjega primera.
za odgovor se zahvaljujem.
lp rick

[admin]

Če vam tale funkcija dela preglavice, dvomim, da boste dalje znali sami.. ampak naj vam bo :

Koda: Izberi vse

Sub PopraviPike(Datoteka As String)
  Dim iFile As Integer
  On Local Error Resume Next
  
  ' preberem vsebino
  iFile = FreeFile
  Open Datoteka For Input As #iFile
    Dim vsebina As String
    vsebina = Input$(LOF(iFile), iFile)
  Close #iFile
  
  ' zamenjam pike z veljicami
  vsebina = Replace(vsebina, ".", ",")
  
  ' posnamem vsebino
  Open Datoteka For Output As #iFile
    Print #iFile, vsebina
  Close #iFile
End Sub

[rick]

hvala Matjaž

in res je,kot ste predvidel....
ne znam odpreti željene datoteke txt,da bi se mi to dejanje izvršilo.
moram priznat,da tega še nisem počel v textovnih datotekah,torej sem
res prekratek.
upam,da vam ni odveč,če vas zopet prosim za pomoč.

za odgovor se zahvaljujem.

lp rick