Ver Mensaje Individual
  #6 (permalink)  
Antiguo 14/07/2010, 15:48
Strok3R
 
Fecha de Ingreso: diciembre-2008
Mensajes: 38
Antigüedad: 15 años, 5 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