使用vb脚本将密码传递给excel文件

Question

我有一个excel文件，它在脚本任务中启用了密码我正在使用Vb

读取文件

我无法传递密码，以便我可以从文件中读取。

我该怎么做。我可以在哪里传递密码。我也尝试过使用FileInfo类，没有选择。

目前的脚本是：

    Dim fs As FileStream
    Dim sr As StreamReader
    Dim line As String
    fs = File.OpenRead(Dts.Variables("File_Name").Value)
    sr = File.OpenText(Dts.Variables("File_Name").Value)
   'Read first line of the file
    line = sr.ReadLine
    Dim str As String
    str = line
     sr.Close()
    fs.Close()

如果文件未启用密码，则有效。任何帮助。请

Answer 1

您可以使用实际的Excel COM Object Model.

Workbook类有一个属性，允许您设置密码。