Public flag As Boolean
'****Cierra y guarda archivos*********
'************************************************************
'creaciond de archivo
'************************************************************
Sub CloseFile(filename As String)
flag = True
Dim F As Integer
Dim cipher_text As String
Dim Arch_Texto As String
Dim reg, limite As Long
If filename = "" Or filename = " " Then Exit Sub
Dim archivo As String
'On Error GoTo save_Error
reg = 1
F = FreeFile
If Dir(filename) <> "" Then
response = MsgBox(("Ya existe el Archivo " & filename & " Desea Actualizar ?"), vbYesNo + vbQuestion + vbDefaultButton2)
If response = vbNo Then
flag = False
Exit Sub
Else
Kill filename
End If
End If
While Not reg > Val(Hoja4.Cells(1, "B")) + 1 ' aqui comparo en cada linea si tomo el registro tu podrias validarlo como desees,.yo valido que tenga un valor de 1 en un campo .. tu podrias tambien hacerlo.
'Hace la comparacion del ultimo registro para no crear una linea
If reg = Val(Hoja4.Cells(1, "B")) + 1 Then
archivo = Hoja4.Cells(reg, "A")
Open filename For Append As F
Print #F, archivo
Close F
reg = reg + 1
Else
archivo = Hoja4.Cells(reg, "A") & Chr(13)
Open filename For Append As F
Print #F, archivo
Close F
reg = reg + 1
End If
Wend
'save_Error:
'MsgBox "Ha ocurrido un error al intentar guardar el archivo.", 48
'flag = False
End Sub