se,pa niti to ne uspem....
če dodam
v vrsticoOpen FName For Output Access Write As #FNum
potem mi makro ne deluje.Workbooks.OpenText Filename:="C:\Podatki.txt",
ste prepričani,da bi to moralo delovati?
s spoštovanjem....
lp rick
v vrsticoOpen FName For Output Access Write As #FNum
potem mi makro ne deluje.Workbooks.OpenText Filename:="C:\Podatki.txt",
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