- 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 = sh.Cells.Find(What:="*", _
- After:=sh.Range("A1"), _
- LookAt:=xlPart, _
- LookIn:=xlFormulas, _
- SearchOrder:=xlByColumns, _
- SearchDirection:=xlPrevious, _
- MatchCase:=False).Column
- On Error GoTo 0
- End Function