Sqlserver
 sql >> Database >  >> RDS >> Sqlserver

SSIS con fogli Excel

Questo potrebbe funzionare o meno in base alla politica di sicurezza della tua azienda (o al suo monitoraggio), ma potresti scrivere una macro rapida che apra tutti i 200 file e li salvi in ​​una directory temporanea "non protetta" senza password. Quindi esegui lo script SSIS e, al termine, elimina tutti i 200 file (con un programma di eliminazione sicuro come Gomma )

Sub ManagePWords()

Dim f(1 To 200) As Variant
Dim i As Integer
Dim origpath As String, temppath As String
Dim wb As Excel.Workbook

   origpath = "c:\where_files_are_now\"
   temppath = "c:\where_files_are_now\unprotected\"

   f(1) = Array("filename1", "password1")
   f(2) = Array("filename2", "password2")
   'keep going for all 200 files

   For i = 1 To UBound(f)
      Set wb = Application.Workbooks.Open(origpath & f(i)(0), , , , f(i)(1))
      wb.SaveAs temppath & f(i)(0) & ".xlsx", , ""
      wb.Close
   Next i

End Sub