Štetje znakov

[Micka]

Pozdravljeni,

pred časom ste ustvarili kodo, ki mi v excelu prešteje število znakov v določeni mapi, in sicer datoteke s končnico rtf in doc. Makro je lepo deloval do danes, ko se je ob kliku na gumb makro v vnosni vrstici pojavilo samo ime prve datoteke. Naj povem, da nisem ničesar spreminjala, le file, kamor shranjujem dobljene znake, shranila kot - da bom imela še en file za leto 2007. Prosim za pomoč.
Hvala in lp,

Micka

[Micka]

'www.matjazev.net
' 4.6.2006
Sub PrestejWordZnakeVMapi()
Dim mapa As String
Dim Vrstica As Long
Dim Datoteka As String
Dim objWrd As Object


mapa = "N:\Stefanic_Betka\Igor"

Vrstica = 1
Set objWrd = CreateObject("Word.Application")

Datoteka = Dir(mapa & "\*.doc", vbNormal)
Do While Datoteka <> ""
Dim wFile

Set wFile = objWrd.Documents.Open(mapa & "\" & Datoteka)
Cells(Vrstica, 1) = mapa & "\" & Datoteka
Cells(Vrstica, 2) = wFile.ComputeStatistics(wdStatisticCharactersWithSpaces)
wFile.Close

Datoteka = Dir
Vrstica = Vrstica + 1
Loop

Datoteka = Dir(mapa & "\*.rtf", vbNormal)
Do While Datoteka <> ""
Set wFile = objWrd.Documents.Open(mapa & "\" & Datoteka)
Cells(Vrstica, 1) = mapa & "\" & Datoteka
Cells(Vrstica, 2) = wFile.ComputeStatistics(wdStatisticCharactersWithSpaces)
wFile.Close

Datoteka = Dir
Vrstica = Vrstica + 1
Loop

Set objWrd = Nothing
End Sub

[admin]

Pozdravljeni,

Boste pa morali biti bolj natančni, kaj točno se zgodi in kaj ste naredili oz. želite narediti, saj s samim makrom ni nič narobe.

[Micka]

Pozdravljeni,

očitno sem prehitro prosila za pomoč, saj je makro po nekaj shranjevanjih in klikih ponovno začel delovati. Ne vem kaj je bilo krivo za kratkotrajno zamrznitev, upam pa, da se ne bo ponovilo.
Hvala in lepe praznike želim,

Micka.