Visual Basic - porque no me funciona SaveAs????

Life is soft - evento anual de software empresarial
 
Vista:

porque no me funciona SaveAs????

Publicado por miguel (50 intervenciones) el 02/11/2004 17:46:44
Hola.

Estoy exportando los dato de un recodset a excel, pero cuando quiero guardar el archivo me marca error en esta parte del código >ApExcel.SaveAs Format(Now(), "ddmmyyyy")<.

Por favor me pueden ayudar.
Gracias

Private Sub mnuExportar_Click()
Dim Fila As Long
Dim ApExcel As Variant

Set ApExcel = Nothing
Set ApExcel = CreateObject("Excel.Application")
ApExcel.Visible = True
ApExcel.Workbooks.Add
datPrimaryRS.Recordset.MoveFirst
ApExcel.Cells(1, 1).Formula = "Issue by"
ApExcel.Cells(1, 2).Formula = "Iata"
ApExcel.Cells(1, 3).Formula = "Issue date"
ApExcel.Cells(1, 4).Formula = "Option"
ApExcel.Cells(1, 5).Formula = "Tkt"

Fila = 2
While (Not datPrimaryRS.Recordset.EOF)
ApExcel.Cells(Fila, 1).Formula = datPrimaryRS.Recordset.Fields("Issue by")
ApExcel.Cells(Fila, 2).Formula = datPrimaryRS.Recordset.Fields("Iata")
ApExcel.Cells(Fila, 3).Formula = datPrimaryRS.Recordset.Fields("Issue date")
ApExcel.Cells(Fila, 4).Formula = datPrimaryRS.Recordset.Fields("Option")
ApExcel.Cells(Fila, 5).Formula = datPrimaryRS.Recordset.Fields("Tkt")

datPrimaryRS.Recordset.MoveNext
Fila = Fila + 1
Wend

ApExcel.SaveAs Format(Now(), "ddmmyyyy")
Set ApExcel = Nothing

End Sub
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

RE:porque no me funciona SaveAs????

Publicado por Luis Atondo (28 intervenciones) el 02/11/2004 19:53:17
intenta convertirlo a texto con la funcion cstr()
ej.
ApExcel.SaveAs cstr(Format(Now(), "ddmmyyyy") )
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