Visual Basic - excel con visual

Amigos, deseo saber como crear una tabla de excel desde visualbasic, e imprimirla

Para lo de excel mira este código

http://lawebdelprogramador.com/codigo/enlace.php?idp=1201&id=93&texto=Visual+Basic

Ok amigo raul, ahí puedo ver como llenar las celdas de la tabla, y como guardarla preguntando un nombre, pero ¿como hago para que no me pregunte nombre, si no que coloque por nombre la fecha y hora? Gracias

Simplemente quitas la parte donde se llama el commondialog, y en el nombre de archivo( supongamos que la quieres donde tienes el ejecutable) pones lo siguiente

arch= app.path & "/" & Date & Time & ".xls"

Bueno ya siquieres le cambias el formato a la hora o la fecha pero ahi tienes tu nombre con fecha y hora

Saludos

Algo mas hay qeu organizar el formato porque sacaria problemas por los :, entonces seria asi

arch = App.Path & "/" & Format(Date, "d-m-yyyy") & "--" & Format(Time, "h-m-s") & ".xls"

raul, hice el cambio y no encuentro la tabla creada, donde se graba? o como le coloco ruta?

Como te lo dije es para que te grabe donde tengas el .exe, si no lo estas haciendo ahi es que te lo esta enviando a la ruta de Visual, lo que debiste haber borrado es esta parte en la función grabar

CommonDialog1.Filter = "Libro de Microsoft Excel|*.xls"
CommonDialog1.ShowSave
If Err Then
' El usuario eligió Cancelar.
If Err = 32755 Then

y arch sustitirlo por esto

arch = App.Path & "/" & Format(Date, "dd-mm-yyyy") & "--" & Format(Time, "hh-mm-ss") & ".xls"

La ruta se la estoy dando con App.path, esta es la ruta de la aplicación, ose el .exe, esa la puedes cambiar por la qeu quieras podria ser algo como

arch= "C:\" & "/" & Format(Date, "dd-mm-yyyy") & "--" & Format(Time, "hh-mm-ss") & ".xls"

y listo en el disco C o algo por el estilo

bueno amigo raul, hize ese cambio colocando la linea de ruta como la tienes y de otra manera, pero eso me produce un error 1004 en tiempo de ejecución, que no existe, o que es de solo lectura, o que contiene caracteres prohibidos

otra preguntica amigo, no se si es normal, pero tengo el código, y me crea un archivo excel en la raíz sonde ejecuto el programa, al abrir el archivo ok, pero me abre el archivo y un libro, no se por que y tiene datos diferentes, sera que tiene algo el codigo que lo hace? solo quiero que me muestre el archivo final.

Dim cuenta 'BANDERA
Dim arch 'ARCHIVO A GRABAR
Dim Hora
Dim Hora1
Dim ApExcel As Object
Dim objLibro As Object
Dim rango

Option Explicit

Sub Grabar()
'cuenta es cero cuando no se le ha dato guardar
If cuenta = 0 Then

End If
arch = App.Path & "/" & Format(Date, "d-m-yyyy") & "--" & Format(Time, "h-m-s") & ".xls"
'creamos el objeto de excel
Set ApExcel = CreateObject("Excel.application")
'añadimos un hoja nueva
ApExcel.Workbooks.Add
'enviamos datos a excel en las celdas qeu se indican
ApExcel.cells(1, 1).Formula = "Evaporadores"
'se define la fuente para esta celda
ApExcel.cells(1, 1).Font.Size = 18
'se toma la fecha
ApExcel.cells(2, 1).Formula = "Fecha: " & Date
ApExcel.cells(2, 1).Font.Size = 18

ApExcel.cells(3, 1).Formula = "Hora"
ApExcel.cells(3, 2).Formula = "Nivel1"
ApExcel.cells(3, 3).Formula = "Nivel2"
cuenta = 1
'se toma la hora
Hora = Format(Time, "h:m:s")

Hora = Format(Time, "h:m:s")
ApExcel.cells(3 + Val(cuenta), 1).Formula = Hora
ApExcel.cells(3 + Val(cuenta), 2).Formula = Val(Nivel1)
ApExcel.cells(3 + Val(cuenta), 3).Formula = Val(Nivel2)
cuenta = cuenta + 1
End Sub
'rutina para generar numeros aleatorios
Public Function NumeroAleatorio(Minimo As Long, Maximo As Long) As Long
Randomize Timer
NumeroAleatorio = Int((Maximo - Minimo + 1) * Rnd(Timer) + Minimo)
End Function

Private Sub Grabar2_Click()
If Grabe.Value = 0 Then
Grabe.Value = 1
Grabar2.Caption = "Detener"
Else
Grabe.Value = 0
Grabar2.Caption = "Grabar"

'///////////////////////////////////////////////////////
'cambiamos el nombre de la hoja 1

ApExcel.Worksheets(1).Name = "MAQUINA"
'borramos la hoja 2 y 3
ApExcel.Worksheets("Hoja2").Delete
ApExcel.Worksheets("Hoja3").Delete

cuenta = 0
'guardamos cerramos y quitamos excel
ApExcel.Worksheets(1).SaveAs arch
ApExcel.Workbooks.Close
ApExcel.Quit
Set ApExcel = Nothing
End If
End Sub

Private Sub Timer1_Timer()

If Grabe.Value = 1 Then
Grabar
End If
'Nivel1 = NumeroAleatorio(0, 145)
Nivel2 = NumeroAleatorio(0, 145)
End Sub

Para lo de que te abre otra ventana, es que estaba corriendo y en un error o por algo lo paraste, entonces el archivo te quedo abierto y no lo guardaste, entonces al abrir excel se abre, no te preocupes, cuando este listo no volvera a pasar..

Para la ruta con esta funciona

arch = App.Path & "/" & Format(Date, "dd-mm-yyyy") & "--" & Format(Time, "hh-mm-ss") & ".xls"

Mira bien qeu hiciste, pon un breakpoint y mira que es lo que estas poniendo y te sales de duda