Modificar Excel y Guardar en Otro directorio

[Strok3R]

Hola, me gustaria saber cómo puedo abrir un excel ubicado en un directorio determinado, modificarlo con visual basic y guardarlo en otra ubicación, pero sin modificar el original. Detalles: Lo que pasa es que tengo un excel que es un formato de citacion de pacientes, al modificarlo con visual basic me deberia ingresar solo los datos del paciente en dicho formato y tambien debe quedar guardado en otro dirtectorio.

Por favor vean mi codigo:

Dim objexcel As New Microsoft.Office.Interop.Excel.Application
'En esta line es donde deberia declarar la sintaxis para que me abra el archivo, esto es lo que necesito que me digan

With objexcel
'.Visible = True
Dim strExcelPath
strExcelPath = "C:\Hojas\" 'Aqui se guardara el archivo

'Nombre del documento
strExcelPath = strExcelPath + "" & Me.txt_rut.Text & ".xls" ' Con este nombre se guardará (esto si me funciona)

.Workbooks.Add()
.Range("A7").Value = Me.txt_nbs.Text
.Range("A7").Font.Bold = True
.Range("A7").Font.Size = 12

objexcel.ActiveWorkbook.SaveAs(strExcelPath)
objexcel.ActiveWorkbook.Close()
objexcel.Quit()
End With

Gracias de antemano espero que se halla entendido.

[rikimm]

para guardaro seria asi

Código Vb2008:

Dim hoja As Microsoft.Office.Interop.Excel.Worksheet
hoja.SaveAs("c:\archivo.xls")   '' aqui pones la direcion a donde lo kieras almacenar y con el nombre que quieras poenerle
                                      '' yo te recomiendo que hagas una caja de texto para que modifique el nombre  de archivo a guardar
 

si dedices hacer la caja de texto seria asi la parte de guardar el archivo

Código Vb2008:

hoja.SaveAs("c:\"+ textbox1.text +".xls")
 

para abrirlo seria de la siguiente forma

Código Vb2008:

Dim excel1 As New Microsoft.Office.Interop.Excel.Application
excel1.Workbooks.Open("aqui va la direcion y nombre del archivo que vas a abrir")
 

creo que es lo q has pedido de ayuda vdd si se me fue algo me avisas para ayudarte

[Strok3R]

Esta bien lo que dices rikimm, y de hecho no me da error al abrir, pero te voy a explicar todo mas detallado tal vez no lo expliqué bien arriba, mira, lo que pasa es que tengo un excel llamado "formato.xls", este archivo tiene ya algunas cosas escritas, osea que algunas celdas estan llenas, lo que yo quiero es abrir este archivo, ingresarle datos y guardarlo con otro nombre, un nombre que yo asigno tal como me lo explicaste tu, pero sin modificar el "formato.xls", ¿me entiendes?
Gracias por la ayuda.

[rikimm]

ose hacer una copia del original pero con los nuevos datos a eso t refieres

[Strok3R]

Si a eso me refiero

[Strok3R]

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

[rikimm]

pero osea el chiste nada mas era hacer una copia del original o cada ves que se agregaban datos se hacia otro archivo

pero que buno que ya lo arreglase y no hay de que para eso estamos aqui para ayudar si sabes algo y bueno te dejo que toy batallando casi lo mismo que tu pero en word jajajajaj

[Strok3R]

Este tema se puede cerrar no se quien debe hacer eso, ya esta solucionado.