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

• #36789 RAiN91 őstag

  Új Válasz 2017-12-18 11:49:57 #36789

  Ú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

  

  RAiN91

  őstag

  Sub TEST()
Dim c As Range, r As Range
Dim output As String
For Each r In Range("B69:D1870").Rows
For Each c In r.Cells
output = output & "," & c.Value
Next c
output = output & vbNewLine
Next r
Open "D:\text.txt" For Output As #1
Print #1, output
Close
End Sub

  Hogyan tudom megcsinálni, hogy ha már létezik az adott helyen a text.txt, akkor ne írja felül, hanem csináljon egy másik fájlt (pl. text2.txt)?

  Köszönöm előre is.

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