Visual Basic - Excel URGENTISIMO!!!!

Life is soft - evento anual de software empresarial
 
Vista:

Excel URGENTISIMO!!!!

Publicado por Raymond (106 intervenciones) el 22/02/2006 20:13:12
Buenas mi pregunta es esta:

tomo un archivo que esta en el PC llamado exp2 exp3.......expn,
para el ejemplo sera exp2,

hago las modificaciones necesarias y a la hora de guardarlo lo guardo como=
"nombre del cliente + EXP2.xls" y cuando cambio otro nuevo y lo guardo con otro nombre me cambia a todos los que hice anteriormente... este es el codigo... me podrian ayudar diciendome cual es el error?

Gracias...

CODIGO=

Public Sub exp2()
Dim i As Integer
Dim char As String * 1
Dim nvo As String
Dim objExcel As Excel.Application
Set objExcel = New Excel.Application
objExcel.Workbooks.Open ("\\Kristhyn\software\Archivos\exp\EXP2.xls")
objExcel.Sheets("Hoja1").Select
' selecciono la hoja a la que quiero cambiarle el nombre
With objExcel
.Range("E1").Select
.ActiveCell.FormulaR1C1 = info.fm
.Range("C7").Select
.ActiveCell.FormulaR1C1 = info.Reserva
.Range("C19").Select
.ActiveCell.FormulaR1C1 = info.Cliente
.Range("C21").Select
.ActiveCell.FormulaR1C1 = info.descrip
.Range("C23").Select
.ActiveCell.FormulaR1C1 = info.transito
.Range("C25").Select
.ActiveCell.FormulaR1C1 = info.peso
.Range("F25").Select
.ActiveCell.FormulaR1C1 = info.volumen
If info.lcl = "1" Then
.Range("c25").Select
.ActiveCell.FormulaR1C1 = info.usd
Else
.Range("c26").Select
.ActiveCell.FormulaR1C1 = info.eur
End If
.Range("a45").Select
.ActiveCell.FormulaR1C1 = Sello.nombre
.Range("a46").Select
.ActiveCell.FormulaR1C1 = Sello.empresa
.Range("a47").Select
.ActiveCell.FormulaR1C1 = "Tel.: " & Sello.telefonos
.Range("a48").Select
.ActiveCell.FormulaR1C1 = "Fax.: " & Sello.fax
.Range("a49").Select
.ActiveCell.FormulaR1C1 = "E-Mail: " & Sello.mail
End With
i = Len(info.Cliente)
char = Mid(info.Cliente, i, 1)
While char = " "
i = i - 1
char = Mid(info.Cliente, i, 1)
Wend
nvo = Mid(info.Cliente, 1, i)
objExcel.SaveWorkspace nvo & " EXP2.xls"
objExcel.Workbooks.Close
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Excel URGENTISIMO!!!!

Publicado por maife (21 intervenciones) el 22/02/2006 20:38:10
el nombre de los archivos los pasas como parametro o tienes ese codigo por cada archivo a grabar???
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Excel URGENTISIMO!!!!

Publicado por Juan_K (181 intervenciones) el 22/02/2006 21:15:33
Intenta con
objExcel.Workbooks("EXP2.xls").SaveAs nvo & " EXP2.xls" 'para guardar una copia
objExcel.Quit 'Para salir
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Excel URGENTISIMO!!!!

Publicado por gustavo (218 intervenciones) el 23/02/2006 16:33:39
mira, cambia el save a Saveas por ejemplo:
Saveas (App.Path & "\Plantillas\PLANTILLAs.xls")
intentalo a ver si te resulta.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar