Visual Basic para Aplicaciones - formarto nombre de archivo

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 20 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

formarto nombre de archivo

Publicado por Angel (1 intervención) el 13/08/2018 18:59:16
Hola

tengo un formulario que al darle al botón de procesar el genera un archivo con los datos consultados el cual el nombre es fijo. "FacEle.csv", ahora debe seguir haciendo lo mismo pero el nombre del archivo no debe ser fijo si no cambiar segun algunos requerimientos el formato seria CCTTYYYYMMDDS

CC:Prefijo de cliente
TT: Prefijo de tipo
YYYYMMDD: fecha de corte del cliente
S: Numero de secuencia de archivo


el codigo actual es


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function llena_interfaz(datos2 As ADODB.Recordset)
Dim FileName As String
CDialog.FileName = "FacElec.csv"
CDialog.CancelError = False
On Error GoTo Err:
 
CDialog.ShowSave
FileName = CDialog.FileName
 
Set datos2 = datos2.NextRecordset
Open Trim(FileName) For Output As #2
'llena encabezado
 
    Print #2, datos2!Cabecera
    Set datos2 = datos2.NextRecordset
 
    'llena facturas
 
    Do While Not datos2.EOF
        Print #2, XCstr(datos2!linea)
        datos2.MoveNext
    Loop
    If datos2.EOF Then
        Close #2
    End If
    MsgBox "La interfaz de Factura Electronica ha sido generada con exito", vbInformation, Me.Caption


gracias por su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

formarto nombre de archivo

Publicado por Martha (14 intervenciones) el 17/08/2018 20:22:06
Hace tiempo lidié con algo similar.
Yo hice dos archivos de texto, uno con la fecha actual y otro con un número.
Primero actualizaba el contador.
Si fecha de hoy es igual a fecha del archivo de texto, súmale uno al número del contador, en caso contrario que sea 1.
Al archivo de la fecha solo tienes que actualizarlo con la fecha de hoy cada vez que se ejecute la macro, pero después de verificar qué fecha es hoy.

No sé programar, pero imagino que si puedes ver la última vez que se guardó el archivo del contador lo puedes hacer con un solo archivo de texto.

Incluso para mayor seguridad (si necesitas distribuir el archivo) puedes reservarte una celda y jugar con la última fecha que se guardó el archivo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar