excel: wczytanie kilkudziesieciu bilingow do arkusza excel help!

Moj problem:
billingi od tepsy w formacie .txt i przykladowej zawartosci:

Wykaz zrealizowanych połączeń za okres od 1.01.2007 r. do 31.01.2007
r.

Chcialbym aby w arkuszu excela wartosci wynikowe pojawialy sie w dwoch
kolumnach A i B.Nr linii: (12) xxx xx xx

--------------------------------------------------------------------------------
Połączenia Ilość Czas
Netto Brutto
================================================== ==============================
lokalne 102 4g 08m 33s
35,0900 42,8098
międzystrefowe 13 17m 56s
4,8900 5,9658
do sieci komórkowych 120 2g 16m 35s
102,2200 124,7084
pozostałe 2 3m 10s
1,1600 1,4152
--------------------------------------------------------------------------------
Ogółem 237 6g 46m 14s
143,36 174,8992

Tych billningow o przykladowej nazwie pliku np. 12_xxxxxxx_7-01-31.txt
- jest ok 120 (ok. 120 numerow tel.).

Kolumna A zawierala by nr telefonu np. xxx xx xx, a w kolumnie B
wartosc ogolem brutto - czyli tutaj 174,8992.

Lub moze istnieje program do tego typu konwersji?

Pozdrawiam forumowiczow i prosze o pomoc!

billingi od tepsy w formacie .txt i przykladowej zawartosci:

Wykaz zrealizowanych połączeń za okres od 1.01.2007 r. do 31.01.2007
r.

Chcialbym aby w arkuszu excela wartosci wynikowe pojawialy sie w dwoch
kolumnach A i B.Nr linii: (12) xxx xx xx

=========

Moim zdaniem trzeba czytać plik tekstowy (zapewne linia po linii - Line Input)
Potem wymyslić sposób, jak znaleźć linię z danymi do pobrania,
pobrac z tej linii to co trzeba.
Reszta to już pestka.
S.

Użytkownik <ares666@o2.pl> napisał w wiadomości
news:1173207757.267786.154020@n33g2000cwc.googlegr oups.com...
Moj problem:
billingi od tepsy w formacie .txt i przykladowej zawartosci:

Wykaz zrealizowanych połączeń za okres od 1.01.2007 r. do 31.01.2007r.
Chcialbym aby w arkuszu excela wartosci wynikowe pojawialy sie w dwoch
kolumnach A i B.Nr linii: (12) xxx xx xx
(...)
Tych billningow o przykladowej nazwie pliku np. 12_xxxxxxx_7-01-31.txt
- jest ok 120 (ok. 120 numerow tel.).
Kolumna A zawierala by nr telefonu np. xxx xx xx, a w kolumnie B
wartosc ogolem brutto - czyli tutaj 174,8992.


Numer telefonu możesz odczytać z nazwy pliku przez Dir() a potem
mid(nazwa,3,7) - to do kolumny A, natomiast kwotę do kolumny B odczytasz z
linii "Ogółem 237 6g 46m 14s 143,36 174,8992"
też za pomocą mid() - a żeby ładnie było to tak: round(val(mid(...)),2).

--
Pozdrawiam
Rafał Kwaczała

Hello Rafal,

niestety sprawa rozbija sie o moja ignorancje. czy mozna Cie prosic
abys podal przykladowy kod "jak chlopu".


pozdrawiam

aa

Użytkownik <ares666@o2.pl> napisał w wiadomości
news:1173231574.423403.173720@h3g2000cwc.googlegro ups.com...
> Hello Rafal,
>
> niestety sprawa rozbija sie o moja ignorancje. czy mozna Cie prosic
> abys podal przykladowy kod "jak chlopu".
>

Oto prawie gotowa ryba:

<CODE>
sciezka = "C:\katalogTPSA"
plik = Dir(src & "*.*")
Do
kolumnaA = Mid(plik, 3, 7) 'numer telefonu
p = sciezka & plik
Open p For Input As #1
Do
Line Input #1, linia
If InStr(linia, "Ogółem") <> 0 Then
kolumnaB= Round(Val(Mid(linia, X, Y)), 2) ' kwota gdzie
odpowiednie X i Y musisz samodzielnie obliczyć
End If
Loop Until EOF(1)
Close #1
plik = Dir
Loop Until plik = ""
</CODE>

Mam nadzieję że zadziała (pisane z ręki o północy).

--
Pozdrawiam
Rafał Kwaczała

wpisane w arkusz1

Private Sub wczytaj()
sciezka = "D:\katalogTPSA"
plik = Dir(src & "*.*")
Do
kolumnaA = Mid(plik, 3, 7)
p = sciezka & plik
Open "p" For Input As #1 'pojawia sie runtime error 53 - file not
found lub gdy samo p bez " " - runtime error 75 file/path access error
pomimo sprawdzania czy katalog jest i nazywa sie prawidlowo.
Do
Line Input #1, linia
If InStr(linia, "Ogółem") <> 0 Then
kolumnaB = Round(Val(Mid(linia, 73, 8)), 2)

End If
Loop Until EOF(1)
Close #1
plik = Dir
Loop Until plik = ""
End Sub

nie mozna edytowac wyslanej wiadomowsci.

Rafal chcialem podziekowac - powoli do czegos dojdziemy

Użytkownik <ares666@o2.pl> napisał w wiadomości
news:1173316018.028366.107620@s48g2000cws.googlegr oups.com...
wpisane w arkusz1

Upppsss...teraz powinno być OK

<CODE>
Private Sub wczytaj()
sciezka = "D:\katalogTPSA\"
plik = Dir(sciezka & "*.*")
Do
kolumnaA = Mid(plik, 3, 7)
p = sciezka & plik
Open p For Input As #1
Do
Line Input #1, linia
If InStr(linia, "Ogółem") <> 0 Then
kolumnaB = Round(Val(Mid(linia, 73, 8)), 2)
End If
Loop Until EOF(1)
Close #1
MsgBox kolumnaA & vbCrLf & kolumnaB
plik = Dir
Loop Until plik = ""
End Sub
</CODE>

--
Pozdrawiam
Rafał Kwaczała