Visual Basic - vb con excel

vb con excel

Publicado por amelia (60 intervenciones) el 11/11/2008 16:25:19

Problema.
Tengo un sistema en red con 2 computadoras.
En la primera está el ejecutable exe.
Trabajan bien en red.
PERO:
cuando exporto a excel unos datos, desde la primera, arma planilla excel , bien. graba y me avisa el nombre del archivo.
en la segunda, arma la planilla de excel, pero cuando va a grabar, da error 1004: no la graba.
Cierro el programa y cuando abro cualquier planilla de excel, desde esta segunda máquina, está el libro1.xls que armó.
Tienen alguna idea de que puede estar pasando ?
GRACIAS !!! desde ya si alguien sabe.
espero respuesta.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:vb con excel

Publicado por amelia (60 intervenciones) el 12/11/2008 12:45:56

ACABO DE ESTAR EN PERU !!
Lindo. El norte , Cusco y Machu Picchu.
El problema se presenta cuando voy a grabar, pero desde la computadora 2 que está en red. Algún problema como si faltara algo en la computadora 2, en WXP, o no deja grabar.
Si lo pruebo en otras 2 maquinas, en mi escritorio , que están en red funciona.

xlBook.Application.Range("A1:A1").Select

   m_fechahora = Format(Date, "dd/mm/yy")

  m_fechahora = " " + Left(m_fechahora, 2) + Mid(m_fechahora, 4, 2) + Right(m_fechahora, 2)

If Option1.Value = True Then

 m_ruta = m_cdir & "Cuenta Corriente A " & "'" & crazclie & "'" & m_fechahora & " ^.xls"

 End If

 If Option2.Value = True Then

 m_ruta = m_cdir & "Cuenta Corriente X " & "'" & crazclie & "'" & m_fechahora & " ^.xls"

 End If

If Option3.Value = True Then

 m_ruta = m_cdir & "Cuenta Corriente A X " & "'" & crazclie & "'" & m_fechahora & " ^.xls"

 End If

                Dim fs As Variant

                Set fs = CreateObject("Scripting.FileSystemObject")

                If fs.FileExists(m_ruta) Then

                Kill (m_ruta)

                End If

esto no funciona:

xlBook.SaveAs FileName:= _

        m_ruta, _

        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

        ReadOnlyRecommended:=False, CreateBackup:=False

        xlBook.Close False, , False

        nombre_tabla = "Planilla Excel fué creada " + m_ruta

 a_d = MsgBox(nombre_tabla, vbInformation, "Aviso") 'cexcel.Value = 0

   Set xlBook = Nothing

GRACIAS desde ya si se te ocurre algo.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar