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

• #21021 Louro őstag

  Új Válasz 2014-03-20 21:07:22 #21021

  Ú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

  

  Louro

  őstag

  Sziasztok!

  Most már egész jó kis dolgokat tudok egy fájlon belül csinálni a segítségetekkel. De olykor előfordul, hogy egy új fájlba kell illesztenem az adatokat. Fájlt létrehozni tudok, ellenőrizni,hogy létezik e, szintén.

  De az nem megy, hogy egy meglévő fájlban, hozzáfűznék adatot.

  Szimpla példa:
  Sub Teszt()

  myfile = "c:\teszt.xlsx"

  'ha létezik, akkor törölje
  If Dir(myfile) <> "" Then Kill myfile '

  Data = ""

  For r = 1 To 10
  Data = Data & Cells(r, "A") & vbCr
  Next r

  Open myfile For Append As #1
  Print #1, Data
  Close #1

  End Sub

  Azt szeretném, hogy ha lefuttatom mégegyszer a makrót, akkor - természetesen a törlős részt kiszedve - hozzáfűzze az információt, ne pedig felülírja.

  Van rá lehetőség vagy ez már túlmutat a képességein?

  Mess with the best / Die like the rest

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