![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
14/07/2010, 15:48
|
| | Fecha de Ingreso: diciembre-2008
Mensajes: 38
Antigüedad: 16 años, 2 meses Puntos: 2 | |
Respuesta: Modificar Excel y Guardar en Otro directorio Hey rikkim ya pude solucionarlo, lo hice de la siguiente forma: Dim objexcel As New Microsoft.Office.Interop.Excel.Application
objexcel.CopyObjectsWithCells = True
With objexcel
'.Visible = True
Dim strExcelPath
strExcelPath = "C:\Hojas\"
'Nombre del documento
strExcelPath = strExcelPath + "" & Me.txt_rut.Text & ".xls" 'Y ahora dentro de workbook.add puse la direccion del archivo que quiero modificar y mas abajo lo guardo con el nombre escogido mas arriba como puedes ver
.Workbooks.Add("c:\formatos\formato.xls")
.Range("C7").Value = Me.txt_nbs.Text
.Range("C7").Font.Bold = True
.Range("C7").Font.Size = 12
'.Range("A7").HorizontalAlignment = Microsoft.Office.Interop.Excel.XlHAlign.xlHAlignCe nter
objexcel.ActiveWorkbook.SaveAs(strExcelPath)
objexcel.ActiveWorkbook.Close()
objexcel.Quit()
End With
Muchas gracias por tu ayuda, ahora si me dijeras cómo le hago para imprimir desde aqui mismo me seria gran ayuda. Gracias |