Buenos dias a todos/as!!!
tengo el siguiente codigo de VBA para abrir un arxivo excel.
Dim objExcel
Dim objWorkbook
Dim finestra As CommonDialog
Dim ErrorRuta As Boolean
Set finestra = New CommonDialog
ErrorRuta = True
finestra.DialogTitle = "Sel·lecciona un arxiu excel"
finestra.Filter = "Archius excel 2000 - 2003|*.xls|Archius Excel 2007|*.xlsx"
finestra.ShowOpen
If finestra.FileName <> "" Then
Ruta = finestra.FileName
ErrorRuta = False
Set objExcel = CreateObject("EXCEL.APPLICATION")
Set objWorkbook = objExcel.Workbooks.Open(Ruta)
objExcel.Visible = True
End If
el arxivo se abre correctamente xo si lo modifico i lo guardo solamente me deja guardar una copia. no me deja sebreescribirlo k es lo k me gustaria.
doy las gracias por adelantado k me parece una buena costumbre.
asta luego y GRACIAS!!!
