DTS: paso para borrar excel

15/07/2004 - 19:22 por Mauricio Rodriguez | Informe spam
Hola a todos.

Tengo una duda:
Dentro de una dts, necesito borrar el contenido (no el
archivo) de una hoja de excel, para luego llenarla con los
datos actualizados. Como puedo realizar este borrado?


Gracias
 

Leer las respuestas

#1 Claudio Valdés
16/07/2004 - 04:35 | Informe spam
Hola.

Esto puede ser lo que buscas
Lo que debes hacer es insertar en tu DTS, un objeto ActiveX Script Task e
insertar el siguiente código, la prueba se realiza sobre el archivo
Planilla.xls y borro el contenido de la hoja llamada Hoja1

'**********************************************************************
' Visual Basic ActiveX Script
'************************************************************************
Function Main()
Dim e_app
Dim e_wbook
Dim e_wksheet
Dim sFilename

sFilename = "C:\Planilla.xls"

Set e_app = CreateObject("Excel.Application")
Set e_wbook = e_app.Workbooks.Open(sFilename)
Set e_wksheet = e_wbook.Worksheets("Hoja1")

e_wksheet.Cells.Select
e_wksheet.Cells.Clear

e_wbook.Save
e_wbook.Close
e_app.Quit
Set e_wbook = Nothing
Set e_app = Nothing

Main = DTSTaskExecResult_Success
End Function

Espero que sea lo que necesitas y haber ayudado

Atte,
Claudio Valdés
Ingeniero (E.) Computación e Informática

*****************************************************************
************ Nunca desees tanto algo, puede que se cumpla *****************
*****************************************************************

"Mauricio Rodriguez" escribió en el
mensaje news:2da8101c46a90$4f495f60$
Hola a todos.

Tengo una duda:
Dentro de una dts, necesito borrar el contenido (no el
archivo) de una hoja de excel, para luego llenarla con los
datos actualizados. Como puedo realizar este borrado?


Gracias

Preguntas similares