SSIS dengan lembar Excel

Ini mungkin atau mungkin tidak bekerja berdasarkan kebijakan keamanan perusahaan Anda (atau pemantauannya), tetapi Anda bisa menulis makro cepat yang membuka semua 200 file dan menyimpannya di direktori "tidak terlindungi" temp tanpa kata sandi. Kemudian jalankan skrip SSIS Anda, dan ketika itu selesai, hapus semua 200 file (dengan penghapus aman seperti Penghapus )

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