Warning: A non-numeric value encountered in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 101
Warning: filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in /home2/icentarb/public_html/icentar/classes/class.filesystem.php on line 142
Sub list2txt()
Dim zadnjaKolona As Long
Dim zadnjiRed As Long
zadnjaKolona = LastCol(ActiveSheet)
zadnjiRed = LastRow(ActiveSheet)
Dim folderPath As String
folderPath = Application.ActiveWorkbook.Path
Dim imeFile As String
Dim strDatum As String
strDatum = Format(Date, "dd_mm_yyyy")
imeFile = folderPath & "\" & "zaposlenici_" & strDatum & ".txt"
'obrisi datoteku ako postoji sa tim imenom
'ne radi na stiku
'If FileExists(imeFile) Then
' SetAttr imeFile, vbNormal ' ako postoji readonly atribut (samo citanje) makni ga
' Kill imeFile ' obrisi file
'End If
Dim ff As Integer
ff = FreeFile()
Dim celija1 As String 'Id kolona=1
Dim celija2 As String 'ime i prezime kolona=2
Dim celija3 As String 'prezime kolona=3
Dim celija4 As String 'telefon kolona=4
Dim celija5 As String 'adresa kolona=5
Dim celija6 As String 'dat.rod. kolona=6
Dim celija7 As String 'koef.obr kolona=7
Dim celija8 As String 'kat.r.m. kolona=11
Dim celija9 As String 'o.d. kolona=9
Dim celija10 As String 'o.d.dod kolona=10
Dim celija11 As String 'tje.st kolona=12
Dim strListBox As String
Open imeFile For Output As #ff
For red = 2 To zadnjiRed
celija1 = Cells(red, 1).Value 'id
celija2 = Cells(red, 2).Value & " " & Cells(red, 3).Value 'ime
celija3 = Cells(red, 4).Value 'telefon
celija4 = Cells(red, 5).Value 'adresa
celija5 = Format(Cells(red, 6).Value, "yyyy-mm-dd") 'datum rodenja
celija6 = Cells(red, 7).Value 'koeficijent obrazovanja
celija7 = Cells(red, 8).Value 'kategorija radnog mjesta
celija8 = Cells(red, 9).Value 'osobni dohodak
celija9 = Cells(red, 10).Value 'osobni dohodak dodatak
celija10 = Cells(red, 11).Value 'tjedno sati
Write #ff, celija1, celija2, celija3, celija4, celija5, celija6, celija7, celija8, celija9, celija10
Next red
Close #ff
End Sub
'DALI DATOTEKA POSTOJI
Public Function FileExists(ByVal FileToTest As String) As Boolean
FileExists = (Dir(FileToTest) <> "")
End Function
'PRONALAZI ZADNJI REED
Public Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
LookAt:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function
'PRONALAZI ZADNJU KOLONU
Public Function LastCol(sh As Worksheet)
On Error Resume Next
LastCol = s