Új hozzászólás Aktív témák

• #8521 perfag aktív tag Pulsar #8519

  Új Válasz 2010-10-21 07:21:37 #8521

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  perfag

  aktív tag

  válasz Pulsar #8519 üzenetére

  Nem határoztad meg, hogy az a text fájl létezik-e. Más az eljárás, ha újat nyitsz, más ha egy létezőhöz hozzáfűzöd az adataidat.
  Javasolnám Chip Pearson oldalát: export Excel data out to text file. Komplett, testre szabható megoldás.

• #8520 Delila_1 veterán Pulsar #8519

  Új Válasz 2010-10-21 07:19:30 #8520

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Pulsar #8519 üzenetére

  Az a másik cella lehetőleg másik lapon legyen, a példában a Munka2 lap A1 cellájában van.

  Sub MentésTxtbe()
  Application.DisplayAlerts = False
  
  utvonal = "D:\Adatok\2010\"
  FN = utvonal & Sheets("Munka2").Range("A1").Value
  ActiveWorkbook.SaveAs Filename:=FN, FileFormat:= _
  xlTextMSDOS, CreateBackup:=False
  
  Application.DisplayAlerts = True
  End Sub

  Az utvonal változóhoz add meg a saját mentési útvonaladat.

Új hozzászólás Aktív témák