zapis v txt datoteko

[rick]

hmm, ali bi lahko to zamenjavo naredil v makroju,ki ste mi ga vi poslali(vaša verzija,ki je lepša in deluje hitreje).saj ne morem verjet,matram
se,pa niti to ne uspem....
če dodam

Open FName For Output Access Write As #FNum

v vrstico

Workbooks.OpenText Filename:="C:\Podatki.txt",

potem mi makro ne deluje.
ste prepričani,da bi to moralo delovati?
s spoštovanjem....

lp rick

[cedra]

Pošiljam vam nov makro:

Koda: Izberi vse

Sub Zapis_v_tekst_datoteko()
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        Selection.Copy
            ChDir "C:\"
        Workbooks.OpenText Filename:="C:\Podatki.txt", Origin:=932, StartRow:=1, _
            DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:=False _
            , Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:= _
            False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
            TrailingMinusNumbers:=True
            Cells.Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select


    Windows("Book1.xls").Activate 
'V zgornji vrstici ime zvezka "Book1.xls" spremenite v takega kot ga imate 'vi; npr. "Podatki.xls"

   

 Selection.Copy
    Windows("Podatki.txt").Activate
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

Zakaj pa vam ni delalo je pa jasno, saj sem napisal da morate zamenjati vrstico v profi makru in ne v mojem. Tako žal ne gre kot ste hoteli vi...
Ne pozabite spremeniti ime zvezka v označeni vrstici

Zdaj bi stvar morala "špilat"!

lp,

cedra

[rick]

pozdravljen


super in še enkrat super,pravkar sem prišel domov,preizkusil kodo in deluje odlično. verjamem,da niste pomagali samo meni,ampak še mnogim drugim.kapo dol...tudi tokrat se iskreno zahvaljujem za vaš
trud.ogromno ste mi pomagali.


lp rick