border
VB 6
 
 
/
  #1 (permalink)  
Antiguo 29-11-2005, 06:47:03
Buena Participación en el Foro
 
Registrado: feb 2005
Posts: 67
Créditos: 3.140
mabopasa Valoración +2
Predeterminado Cerrar Excel desde VB

Hola, he diseñado una aplicacion que transporta dos datos de vb a exel pero quiero que me cierre el documento exel automaticamente sin preguntar si guarda los cambios realizados. Aqui os dejo el codigo

Código:
Sub CreaORMitsu() ' OR MITSUBISHI TALLER
Dim e1 As Object
Dim ruta1 As String
On Error GoTo error2
Set e1 = CreateObject("Excel.Application")
ruta1 = "C:\CREAOR\CreORmitsu.xls"
e1.Workbooks.Open ruta1
e1.Visible = True
e1.ActiveSheet.Range("D8").Select
e1.ActiveCell = TxtNclient.Text
e1.ActiveSheet.Range("C9").Select
e1.ActiveCell = TxtNom.Text & " " & Txt1Cognom.Text & " " & Txt2Cognom.Text
e1.ActiveSheet.Range("C10").Select
e1.ActiveCell = TxtDom.Text
e1.ActiveSheet.Range("C11").Select
e1.ActiveCell = TxtPobla.Text
e1.ActiveSheet.Range("C12").Select
e1.ActiveCell = TxtNif.Text
e1.ActiveSheet.Range("C13").Select
e1.ActiveCell = TxtFixe.Text
e1.ActiveSheet.Range("C14").Select
e1.ActiveCell = TxtMobil.Text
e1.ActiveSheet.Range("L1").Select
e1.ActiveCell = TxtMarc.Text
e1.ActiveSheet.Range("L2").Select
e1.ActiveCell = TxtMod.Text
e1.ActiveSheet.Range("L3").Select
e1.ActiveCell = TxtMat.Text
e1.ActiveSheet.Range("L4").Select
e1.ActiveCell = TxtBast.Text
e1.ActiveSheet.Range("L5").Select
e1.ActiveCell = TxtDataMat.Text
' Descripcio averia
e1.ActiveSheet.Range("K11").Select
e1.ActiveCell = TxtDesc1.Text
e1.ActiveSheet.Range("K12").Select
e1.ActiveCell = TxtDesc2.Text
e1.ActiveSheet.Range("K13").Select
e1.ActiveCell = TxtDesc3.Text
e1.ActiveSheet.Range("K14").Select
e1.ActiveCell = TxtDesc4.Text
e1.ActiveSheet.Range("K15").Select
e1.ActiveCell = TxtDesc5.Text
e1.ActiveSheet.Range("K16").Select
e1.ActiveCell = TxtDesc6.Text
e1.ActiveSheet.Range("K17").Select
e1.ActiveCell = TxtDesc7.Text
e1.ActiveSheet.Range("I1").Select
e1.ActiveCell = TxtNumOR + 1
e1.ActiveWorkbook.Printout ' IMPRIME LA HOJA 
el.ActiveWorkbook.Close ' CIERRA DOCUMENTO
Set e1 = Nothing
Exit Sub
error2:
MsgBox Err.Description
Set e1 = Nothing
End Sub
gracias
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 29-11-2005, 07:25:14
Avatar de Alella
Moderador
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 1.486
Créditos: 29.768
Alella Valoración +2
Predeterminado

Hola, que tal.

Mira a ver si esto te soluciona el problema.

Código:
Dim excel_app As Object
Dim excel_sheet As Object


' Create the Excel application.
 Set excel_app = CreateObject("Excel.Application")

.....  más código

 ' Close the workbook saving changes.
    excel_app.ActiveWorkbook.Close True

    ' Close Excel.
    excel_app.Quit
    Set excel_sheet = Nothing
    Set excel_app = Nothing
Sustituye lo conveniente y ya nos contarás.
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Normas del Foro
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 29-11-2005, 09:03:57
Buena Participación en el Foro
 
Registrado: feb 2005
Posts: 67
Créditos: 3.140
mabopasa Valoración +2
Predeterminado

Gracias Alella , pero sigue sin funcionar , me sigue saliendo la ventana de guardar cambios ?


Gracias
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 29-11-2005, 09:12:44
Avatar de Alella
Moderador
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 1.486
Créditos: 29.768
Alella Valoración +2
Predeterminado

Hola, que tal.

Prueba con:

Código:
 ActiveWorkbook.Save
Espero que esto te sirva.
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Normas del Foro
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #5 (permalink)  
Antiguo 30-11-2005, 05:48:00
Buena Participación en el Foro
 
Registrado: feb 2005
Posts: 67
Créditos: 3.140
mabopasa Valoración +2
Predeterminado

Pos nada sigue saliendo el mesaje " Quiere guardar los cambios realizados en el documento ? ""

Hay alguna forma de cerrar Excel, aunque sea de forma bruta ??


Gracias
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #6 (permalink)  
Antiguo 30-11-2005, 07:51:05
Avatar de Alella
Moderador
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 1.486
Créditos: 29.768
Alella Valoración +2
Predeterminado

Hola, que tal.

En el siguiente ejemplo funciona.

Código:
Private Sub Command1_Click()

Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlWB = xlApp.Workbooks.Add
Set xlWS = xlWB.Worksheets.Add
xlWS.Cells(2, 2).Value = "Hola"
xlWS.Cells(2, 3).Value = "Mundo"
' Nos guardara esto en el fichero excel llamdo prueba.xls
xlWS.SaveAS "c:\prueba.xls"
xlApp.Quit
Set xlWS = Nothing
Set xlWB = Nothing
Set xlApp = Nothing


End Sub
Espero que te sirva.
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Normas del Foro
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Otra duda - Cerrar un proceso de Excel lesthad Visual Basic .NET 0 07-02-2008 00:21:54
Cerrar Excel manteniendo configuracion anterior Freidja VBA (Excel, Word, Outlook, Access) 3 14-12-2006 08:44:08
Código para cerrar excel... granada-pepe VBA (Excel, Word, Outlook, Access) 2 28-04-2006 21:31:42
Cerrar Excel silang2 Visual Basic 6.00 7 27-12-2005 00:27:21
Cerrar Excel Manolillo VBA (Excel, Word, Outlook, Access) 5 14-12-2005 12:03:34


La franja horaria es GMT. Ahora son las 15:33:25.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios


right
Inactive Reminders By Icora Web Design