Visual Basic - para guardar un archivo en Excel...

Hola a todos...espero me puedan ayudar con un problemilla que tengo...
resulta que un archivo en excel creado po cod. necesito agregarle el cuadro de mensajes que diga "Guardar archivo..", para que por nombre de archivo debiera darle yo una variable de mi programa... ojala me capten y me den una manito...

desde ya muchas gracias....

Guillermo

Q tal Guillermo mira para empesar tu codigo esta en VB o en una macro, si es en VB te ayudo.
Necesitas agregar un control commondialog (microsoft common dialog 6.0) y darle como filtro "Archivos de Excel | (*.xls)" bueno este no recuerdo si esta bien =) ok y le das como comando ShowSave con esto te regresaria la cadena donde desea guardar el archivo con la propiedad filename y con esto ya tienes tu cadana del saveas para guardar tu archivo
SUERTE

buenas...mira gracias por responder...el cod esta en VB...

y es esto lo que hay...lo tome de un ejercicio que habia por aqui...pero no me funciona...

donde: Private Const DEFAULT_XLS_FILENAME = "nombredefault"

If MsgBox(strMsg, vbQuestion + vbYesNo) = vbYes Then
strFilter = "Hoja de Calculo|*.xls"
cdlgMain.Filter = strFilter
cdlgMain.FileName = DEFAULT_XLS_FILENAME
cdlgMain.ShowSave

If cdlgMain.FileName <> "" Then
xls.SaveAs (cdlgMain.FileName)
strMsg = "Los datos del reporte se han guardado en un archivo: " & vbCrLf & vbCrLf
strMsg = strMsg & cdlgMain.FileName
MsgBox strMsg, vbExclamation, "Hoja de cálculo guardada"

End If
End If


te ruego me des una mano porque no se mucho sobre esto de exportar y aqui estoy aprendiendo.... gracias

=) Mira es facil Por lo q veo hace referencia a una api tu ejemplo borra eso y has lo siguiente
te vas a menu Project/ Components y ahi buscas Microsoft Common Dialog Control 6.0 palomeas y le das aceptar OK
insetas el control a tu form y lo renombras con CD
y en el codigo pondras esto
Private sub Command1_click()
CD.Filter = "Todos los Archivos de Microsoft Excel | *.xls"
CD.ShowSave
if CD.FileName <> "" then
documentoexcel.SaveAs CD.FileName
end if
msgbox "Guardado" ,VBOKOnly
end sub

Gustavo. gracias compadre....
le agradezco su ayuda....ya esta funcionando....
millon de gracias...

De nada para eso estamos OK y mira q ese control te soluciona muchos problemas te recomiendo q lo estudies =)
HASTA SIEMPRE Y ADELANTE