SSIS s listy Excelu

To může nebo nemusí fungovat na základě bezpečnostní politiky vaší společnosti (nebo jejího sledování), ale můžete napsat rychlé makro, které otevře všech 200 souborů a uloží je do dočasného „nechráněného“ adresáře bez hesla. Poté spusťte svůj skript SSIS a po dokončení smažte všech 200 souborů (pomocí zabezpečeného nástroje pro odstranění, jako je Guma )

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