Prikazi cijelu temu 22.02.2016 13:13
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:excel VBA write to txt file sa drugim fontom
dali mozemo utijecati na font koji cemo snimiti u izlaznu datoteku?
znaci, htio bi da je font u izlaznoj datoteci recimo Arial, 12 jer mi je listovima napisano u raznim fontovima i velicinama
moj kod:

PreuzmiIzvorni kôd (Visual Basic):
  1. Option Explicit
  2.  
  3. Type data
  4.         ime as String
  5.         prezime as String
  6.         jmbg as String
  7. end Type
  8. Public podaci as data
  9.  
  10. sub snimiFile()
  11.         Dim FF As Integer
  12.         Dim imeFile As String
  13.         FF = FreeFile()
  14.         imeFile = folderPath & "/" & "datoteka.txt"
  15.  
  16.         podaci.ime=Sheets(List1).Cellls(2,2).Value
  17.         podaci.ime=Sheets(List2).Cells(2,2).Value
  18.         podaci.jmbg=Sheets(List3).Cells(2,2).Value
  19.  
  20.         Open imeFile For Output As #FF
  21.                 Write #FF, podaci.ime, podaci.prezime,podaci.jmbg
  22.         Close #FF
  23. end sub
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 22.02.2016 13:14 od strane Avko.