SSIS と Excel シート

これは、会社のセキュリティ ポリシー (またはその監視) に基づいて機能する場合と機能しない場合がありますが、200 個のファイルすべてを開き、パスワードなしで一時的な「保護されていない」ディレクトリに保存するクイック マクロを作成できます。次に、SSIS スクリプトを実行し、それが完了したら、200 個のファイルすべてを削除します ( などの安全な削除ツールを使用)。消しゴム )

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