abrir nueva hoja de calculo desde excel
Publicado por slash (39 intervenciones) el 03/05/2004 16:43:13
Estoy haciendo una aplicacion en visual para mandarle datos a excel , y quiero que en lugar de mandar llamar un archivo ya existente(test1.xls) , me abra siempre un nuevo libro , cada vez que ejecute el sig. codigo
Set objExcel = New Excel.Application
Dim objLibro As Object
Dim ruta As String
ruta = "C:\test1.xls"
If Len(Dir(ruta)) > 0 Then
Set objLibro = objExcel.Workbooks.Open(ruta)
objExcel.Visible = True
Else
MsgBox "El archivo no existe"
End If
ojala alguien me pueda ayudar
gracias
Set objExcel = New Excel.Application
Dim objLibro As Object
Dim ruta As String
ruta = "C:\test1.xls"
If Len(Dir(ruta)) > 0 Then
Set objLibro = objExcel.Workbooks.Open(ruta)
objExcel.Visible = True
Else
MsgBox "El archivo no existe"
End If
ojala alguien me pueda ayudar
gracias
Valora esta pregunta


0