Guardar libro de Excel

[ci2000]

Hola, encontré en la web un ejemplo para poder pasar datos desde VB a Excel pero no puedo guardar el libro.

El código es:

Código:

Private Sub Command1_Click()
Dim ApExcel As Variant

Set ApExcel = CreateObject("Excel.application")

' Hace que Excel se vea
ApExcel.Visible = True
'Abre el libro
ApExcel.Workbooks.Open (App.Path & "\Libro2")

'Poner Titulos
ApExcel.cells(1, 1).Formula = "Titulo de la Aplicacion"
ApExcel.cells(1, 1).Font.Size = 18
ApExcel.cells(2, 2).Formula = "Debe"
ApExcel.cells(2, 3).Formula = "Haber"
ApExcel.cells(2, 4).Formula = "Saldo"
ApExcel.cells(3, 2).Formula = 200
ApExcel.cells(3, 3).Formula = 100
' Aplica Formula
ApExcel.cells(3, 4).Formula = "=B3-C3"
' Hace una Seleccion de celdas y pone bordes de Color
ApExcel.RANGE("B3:D3").BORDERS.Color = RGB(255, 0, 0)

ApExcel.Workbooks.Save  'Esto se lo agregué pero no funciona tampoco con SaveAs

ApExcel.Workbooks.Close
Set ApExcel = Nothing
End Sub

Gracias por las respuestas
Saludos

[ci2000]

Le agregué esto:

Código:

Dim xlNormal As Long
xlNormal = -4143
 
ApExcel.ActiveWorkbook.SaveAs FileName:=App.Path & "\Libro2.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Funciona bien, pero ¿cómo hago para que no me pregunte si deseo reemplazarlo?

Saludos y gracias

[ManuNic]

Como es siempre el mismo nombre de archivo, verifica si existe y lo borras antes de guardar

[LeandroA]

hola prova con esto ami me funciona bien

ApExcel.ActiveWorkbook.Save

[ci2000]

Gracias por las respuestas.
LeandroA, tu ejemplo anduvo al pelo.

Saludos