Hola es mi primer post en este foro, que leo mucho y considero de gran ayuda, estoy haciendo una aplicación en VB6 del cual estoy lejos de ser un experto, mi problema es el siguiente, tengo un formulario donde al hacer click en un boton, este crea un archivo en Excel con la fecha actual como nombre y lo guarda en c:\, esto se hace una vez al día pero cada vez que se haga se tiene que generar un nuevo archivo .xls y guardarse en c:\ sin borrar el anterior que por supuesto tendrá una fecha diferente, trato de hacer esto con lo siguiente:
Primer intento:
Private Sub Command1_Click()
Dim nombre, As String
On Error GoTo fallo
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets.Add
nombre = fechaAcadena(Date) 'primero convierto la fecha en cadena
xlWS.SaveAs "c:\" & “nombre” & ".xls" 'aquí intento guardar el .xls con la fecha por 'nombre pero no lo hace lo guarda con “nombre”
'-----------------------------------------------------------------------------------------------------------------------
'xlWS.SaveAs "c:\" & nombre & ".xls"
xlApp.Quit
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing
MsgBox ("Archivo creado en C:\"), vbInformation
Exit Sub
fallo:
MsgBox ("No se creo el archivo"), vbInformation
End Sub
' Esta funcion convierta la fecha en cadena
Function fechaAcadena(FechaConvertidacadena As Date)
fechaAcadena = Format(FechaConvertidacadena, "dd/mm/yyyy")
End Function
ESTE ES EL OTRO INTENTO QUE TAMPOCO ME FUNCIONO:
Private Sub Command1_Click()
Dim nombre, archivo, fecha As String
On Error GoTo fallo
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets.Add
'nombre = fechaAcadena(Date)
Open "c:\" & "nombre" & ".xls" For Output As #1 'abre archivo como lectura pero lo guarda como como “nombrefecha en lugar de 19/05/2009”
'While Not EOF(1) 'mientras no llegue al final del archivo lee carácter por carácter
'Line Input #1, Caja_Texto 'lee todo lo que esta en el archivo y lo guarda en la variable caja_texto
'Wend 'colocado en la posición correspondiente en la pantalla
'Close #1
Name "c:\nombre.xls" As "c:\" & CStr(Date) & ".xls" 'aquí intente cambiar el nombre del archivo de “nombre” a la fecha actual pero tampoco funciona
xlApp.Quit
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing
MsgBox ("Archivo creado en C:\"), vbInformation
Exit Sub
fallo:
MsgBox ("No se creo el archivo"), vbInformation
End Sub
Function fechaAcadena(FechaConvertidacadena As Date)
fechaAcadena = Format(FechaConvertidacadena, "dd/mm/yyyy")
End Function
El objetivo es que se cree un archivo Excel cada vez que se pisa el botón el nombre del archivo será la fecha actual al momento de pisar el botón, solo la fecha no la hora y que no borre los archivos anteriores ya que esto se hará una vez al día, espero puedan ayudarme, gracias de antemano.
