Visual Basic para Aplicaciones - Guardar un archivo con excel

Private Sub Ver_Click()

Dim Gexcel As Long
Dim visualbasic As New Excel.Application

Gexcel = ShellExecute(hwnd, "open", "D:\Documents and Settings\Daniel\Mis documento", "", "", 1)
visualbasic.Workbooks.Add

visualbasic.Visible = True
visualbasic.DisplayAlerts = False

visualbasic.Cells(1, 2).Value = "Numero de muestra"
visualbasic.Cells(1, 3).Value = "Fecha"
visualbasic.Cells(1, 4).Value = "Dispositivo"

For I = 2 To 6
visualbasic.Cells(I, 2).Value = I - 1
visualbasic.Cells(I, 3).Value = Label2.Caption
visualbasic.Cells(I, 4).Value = Opcion.Text
Next

End Sub

Tengo esto declarado y el modulo para el shellExecute, pero no puedo guaradr los cambios que hago en el archivo, como le puedo hacer??????

No entiendo bien en que lado estas trabajando, en VB o EN VBA, supongo que en visual basic.
por que no puebas usando
visualbasic.Workbooks(1).SaveAs "RUTAZ:\NombreX.xls"

ya que el objeto ya es una hoja de excell no? pues usemos comandos de excell.
Ahora, tampoco entiendo porque usas usas el "shellexecute"

Explica un poco mejor. Gracias.

Tengo una pregunta similar, para quien pueda responder.. Lo agradezco sinceramente...

Tengo un formulario de Vb6.0. Los datos q este formulario contiene, asi como sus objetos q he insertado en el, han sido exportados a un Libro de excel...

Ahora lo q necesito, es una instruccion para Guardar el Libro de excel al q exporte los datos...

Espero ser claro en mi solicitud..

Gracias..

Gracias Gabriel DR funcionó con la instrucción que me diste, lo que pasa es que yo trate de usar el saveAs, pero sin ponerle el .Workbooks, es de VB y uso elñ shellexecute para abrir el arhivo que tengo guardado en la PC y luego modificarlo y guardar sus cambios mediante el VB.

mira no te kacho bien pero si te cilbe te mando esto

Private Sub Command1_Click()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
'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)
Set ApExcel = Nothing
End Sub

algo asi ?? :XD

si quieres hacerlo sobre un nuevo archivo recien creado declara
'CREAR EL OBJETO (INSTANCIAR)CON EL OBJETO APLICACION (obj_Excel)
Dim obj_Excel As Object
Dim obj_Libro As Object

' Nueva referencia a Excel y nuevo referencia al Libro
Set obj_Excel = CreateObject("Excel.Application")
Set obj_Libro = obj_Excel.Workbooks.add

si quieres hacerlo con un libro existente que este en la uvicacion path_libro as string declaralo asi

'CREAR EL OBJETO (INSTANCIAR)CON EL OBJETO APLICACION (obj_Excel)
Dim obj_Excel As Object
Dim obj_Libro As Object

' Nueva referencia a Excel y nuevo referencia al Libro
Set obj_Excel = CreateObject("Excel.Application")
Set obj_Libro = obj_Excel.Workbooks.open(Path_Libro)

de igual manera lo guardas de esta manera a las dos opciones

'Destruimos las variables de objeto
obj_Excel.Visible = True

'oculta mensajes de alerta, ejecutando la opción predeterminada
obj_Excel.DisplayAlerts = False
'guardando el segundo libro
obj_Libro.SaveAs FileName:=Path_Libro '

estoy haciendo exactamente esto, y no cierra el proceso.
Lo deja corriendo en memoria. Si comento la linea de memoria lo cierra perfectamente. ALguna idea?

es que al final de todo documento abierto debes liberar espacio de memoria usado por Visual

SET DocExcel = Nothing