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

• #36792 Pakliman tag RAiN91 #36789

  Új Válasz 2017-12-18 12:50:50 #36792

  Ú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

  

  Pakliman

  tag

  válasz RAiN91 #36789 üzenetére

  Sub TEST()
Dim c As Range, r As Range
Dim output As String

Dim fn As String
Dim bOk As Boolean
Dim i As Long

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

fn = "text"
bOk = False
Do
If Dir("D:\" & fn & ".txt") <> "" Then
i = i + 1
fn = "text" & i
Else
bOk = True
End If
Loop Until bOk

Open "D:\" & fn & ".txt" For Output As #1
Print #1, output

Close

End Sub

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