Ver Mensaje Individual
  #2 (permalink)  
Antiguo 15/06/2010, 04:09
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 15 años, 10 meses
Puntos: 29
Respuesta: ERROR 462 en tiempo de ejecución: El equipo servidor remoto no existe o no

Prueba esta sub para el commandbutton:

Código vb:
Ver original
  1. Private Sub Command1_Click()
  2.   On Error GoTo ErrSub
  3.   Dim o_Word As Word.Application
  4.   Dim Documento As Word.Document
  5.  
  6.   Dim c As Integer ' columna
  7.  Dim f As Long ' fila
  8.  Dim dato As Variant ' valor de la celda del datagrid
  9.  
  10.   ' Establece la referencia al Word
  11.  Set o_Word = New Word.Application
  12.  
  13.   ' Pone el Word visible
  14.  o_Word.Visible = True
  15.  
  16.   'Abrimos el documento "archivoWord.doc" con Open
  17.  Set Documento = o_Word.Application.Documents.Open(App.Path + "\archivoWord.doc")
  18.  
  19.   'Nos vamos al marcador llamado "tabla" en el documento, _
  20.   para insertar la tabla en ese punto
  21.  o_Word.Selection.GoTo What:=wdGoToBookmark, Name:="Tabla"
  22.  
  23.   With Documento
  24.     'Agregamos la tabla dentro de Word con las _
  25.     filas y columnas que tenga el datagrid
  26.    .Tables.Add Range:=o_Word.Selection.Range, _
  27.     NumRows:=DataGrid1.ApproxCount + 1, _
  28.     NumColumns:=DataGrid1.Columns.Count
  29.  
  30.     'Recorremos el Data Grid para agregar las columnas y filas a nuestra tabla
  31.    For c = 0 To DataGrid1.Columns.Count - 1
  32.  
  33.       DataGrid1.Row = 0
  34.       .Tables(1).Cell(1, c + 1).Range.InsertAfter _
  35.       DataGrid1.Columns(c).Caption 'agregar columnas
  36.    
  37.       ' recorre las filas de la columna actual
  38.      For f = 0 To DataGrid1.ApproxCount - 1
  39.         ' almacena el dato de la celda del datagrid de la columna actual
  40.        dato = DataGrid1.Columns(c).CellValue(DataGrid1.GetBookmark(f))
  41.         ' agrega el dato a la celda de la tabla
  42.        .Tables(1).Cell(f + 2, c + 1).Range.InsertAfter dato
  43.      
  44.       Next f
  45.     Next c
  46.   End With
  47.  
  48.   'Descargamos los objetos
  49.  Set o_Word = Nothing
  50.   Set Documento = Nothing
  51.  
  52.   Exit Sub
  53.  
  54. ErrSub:
  55.   MsgBox Err.Description, vbCritical
  56.   On Error Resume Next
  57.   Set o_Word = Nothing
  58.   Set Documento = Nothing
  59.  
  60. End Sub

Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!