Visual Basic - vb con excel

Life is soft - evento anual de software empresarial
   
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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:
1
2
3
4
5
6
7
8
9
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar