| Pregunta: | 25712 - ENVIAR A ARCHIVO EXCEL ESPECIFICO |
| Autor: | JUAN AZQUIEL |
| Hola
Estoy tratando de enviar datos al excel, cosa que no provoca ningun problema, salvo cuando existen mas de un archivo abierto. Desearia saber como especificar el nombre del archivo abierto que quieres enlazar, utilizando workbooks(filename), me ocasiona un error de index no valido, pues supongo que me pide numero de indice y no nombre de fichero. gracias | |
| Respuesta: | Pedro Serrano Baizabal |
| Juan
Te envío codigo para mandar información a Excels desde Vb. En este observa que debes abrir la ventana del libro al que deseas enviarle la información. Private Sub CommandButton1_Click() Dim Mixl As Excel.Application Dim Hoja As Object Dim Hoja1 As Object Set Mixl = GetObject(, "Excels.application") With Mixl .Workbooks.Open Filename:="C:\mis documentos\Hoja.xls" .Workbooks.Open Filename:="C:\mis documentos\Hoja1.xls" End With Mixl.Windows("hoja.xls").Activate Sheets("Hoja1").Range("A8").Value = "VALOR" Mixl.Windows("hoja1.xls").Activate Sheets("Hoja1").Range("A8").Value = "VALOR" End Sub | |