SSIS với trang tính Excel

Điều này có thể hoạt động hoặc không dựa trên chính sách bảo mật của công ty bạn (hoặc giám sát chính sách đó), nhưng bạn có thể viết macro nhanh để mở tất cả 200 tệp và lưu chúng trong thư mục "không được bảo vệ" tạm thời mà không cần mật khẩu. Sau đó, chạy tập lệnh SSIS của bạn và khi quá trình đó hoàn tất, hãy xóa tất cả 200 tệp (với trình xóa an toàn, chẳng hạn như Tẩy )

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