Prikazi cijelu temu 12.08.2020 12:59
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:import txt file u mysql bazu - rad sa datotekama - excel u mysql
U excelu imamo podatke o zaposlenicima:

Te podatke zelimo izvesti u txt fajl koji ce imati ime: zaposlenici_danasnjiDatum.txt

evo kod koji stavljamo u excel:
PreuzmiIzvorni kôd (Text):
  1. Sub list2txt()
  2.    
  3.     Dim zadnjaKolona As Long
  4.     Dim zadnjiRed As Long
  5.    
  6.     zadnjaKolona = LastCol(ActiveSheet)
  7.     zadnjiRed = LastRow(ActiveSheet)
  8.    
  9.     Dim folderPath As String
  10.     folderPath = Application.ActiveWorkbook.Path
  11.    
  12.     Dim imeFile As String
  13.     Dim strDatum As String
  14.    
  15.     strDatum = Format(Date, "dd_mm_yyyy")
  16.     imeFile = folderPath & "\" & "zaposlenici_" & strDatum & ".txt"
  17.    
  18.     'obrisi datoteku ako postoji sa tim imenom
  19.     'ne radi na stiku
  20.     'If FileExists(imeFile) Then
  21.     '   SetAttr imeFile, vbNormal ' ako postoji readonly atribut (samo citanje) makni ga
  22.     '   Kill imeFile ' obrisi file
  23.     'End If
  24.    
  25.     Dim ff As Integer
  26.     ff = FreeFile()
  27.    
  28.     Dim celija1 As String 'Id       kolona=1
  29.     Dim celija2 As String 'ime i prezime     kolona=2
  30.     Dim celija3 As String 'prezime  kolona=3
  31.     Dim celija4 As String 'telefon  kolona=4
  32.     Dim celija5 As String 'adresa   kolona=5
  33.     Dim celija6 As String 'dat.rod. kolona=6
  34.     Dim celija7 As String 'koef.obr kolona=7
  35.     Dim celija8 As String 'kat.r.m. kolona=11
  36.     Dim celija9 As String 'o.d.     kolona=9
  37.     Dim celija10 As String 'o.d.dod kolona=10
  38.     Dim celija11 As String 'tje.st  kolona=12
  39.    
  40.     Dim strListBox As String
  41.    
  42.     Open imeFile For Output As #ff
  43.         For red = 2 To zadnjiRed
  44.             celija1 = Cells(red, 1).Value 'id
  45.             celija2 = Cells(red, 2).Value & " " & Cells(red, 3).Value 'ime
  46.             celija3 = Cells(red, 4).Value 'telefon
  47.             celija4 = Cells(red, 5).Value 'adresa
  48.             celija5 = Format(Cells(red, 6).Value, "yyyy-mm-dd") 'datum rodenja
  49.             celija6 = Cells(red, 7).Value 'koeficijent obrazovanja
  50.             celija7 = Cells(red, 8).Value 'kategorija radnog mjesta
  51.             celija8 = Cells(red, 9).Value 'osobni dohodak
  52.             celija9 = Cells(red, 10).Value 'osobni dohodak dodatak
  53.             celija10 = Cells(red, 11).Value 'tjedno sati
  54.            
  55.             Write #ff, celija1, celija2, celija3, celija4, celija5, celija6, celija7, celija8, celija9, celija10
  56.  
  57.         Next red
  58.     Close #ff
  59. End Sub
  60.  
  61.     'DALI DATOTEKA POSTOJI
  62. Public Function FileExists(ByVal FileToTest As String) As Boolean
  63.    FileExists = (Dir(FileToTest) <> "")
  64. End Function
  65.  
  66. 'PRONALAZI ZADNJI REED
  67. Public Function LastRow(sh As Worksheet)
  68.     On Error Resume Next
  69.     LastRow = sh.Cells.Find(What:="*", _
  70.                             After:=sh.Range("A1"), _
  71.                             LookAt:=xlPart, _
  72.                             LookIn:=xlFormulas, _
  73.                             SearchOrder:=xlByRows, _
  74.                             SearchDirection:=xlPrevious, _
  75.                             MatchCase:=False).Row
  76.     On Error GoTo 0
  77. End Function
  78.  
  79. 'PRONALAZI ZADNJU KOLONU
  80. Public Function LastCol(sh As Worksheet)
  81.     On Error Resume Next
  82.     LastCol = sh.Cells.Find(What:="*", _
  83.                             After:=sh.Range("A1"), _
  84.                             LookAt:=xlPart, _
  85.                             LookIn:=xlFormulas, _
  86.                             SearchOrder:=xlByColumns, _
  87.                             SearchDirection:=xlPrevious, _
  88.                             MatchCase:=False).Column
  89.     On Error GoTo 0
  90. End Function


datoteku moramo ucitati u notepad i odabrati format-petvori u UTF-8 bez BOOM-a,
a zatim ju takvu snimiti

Prilozi:
zaposlenici_07_08_2020.txt
Preuzimanja:197
Velicina datoteke:46.64 KB

zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 12.08.2020 13:23 od strane Avko.