vb控制鍵盤自動輸入

Question

請問各位大大
小弟最近因業務要開發一個小程式
但是當小弟把vb的程式跟excel連結之後卻發現了一個問題
因為這個excel是有加密的(excel的密碼保護)
所以要在開啟Workbook之前把excel的保護密碼輸入
小弟試了很久卻都沒有辦法成功
所以想請教各位大大是不是有大大寫過這樣子的一個程式
以下為小弟啟動excel的程式碼:

If Dir("C:\Documents and Settings\chianghang\My Documents\epi.bz") = "" Then '判斷EXCEL是否打開
Set xlapp = CreateObject("Excel.Application") '創建EXCEL應用類
xlapp.Visible = True '設置EXCEL可見
Set xlbook = xlapp.Workbooks.Open("C:\Documents and Settings\chianghang\My Documents\book1.xls")
Set xlsheet = xlbook.Worksheets(1) '打開EXCEL工作表
xlsheet.Activate '啟動工作表

如果有需要完整的程式請通知小弟校地會email完整的程式碼給各位
感謝!!

Answer 1

開啟一個活頁簿的完整指令參數應該有如下15種。除了FileName一定要有之外,其餘的可有可無
expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
所以你只要改寫
Set xlbook = xlapp.Workbooks.Open("C:Documents and SettingschianghangMy Documentsbook1.xls")
為
Set xlbook = xlapp.Workbooks.Open("C:Documents and SettingschianghangMy Documentsbook1.xls", , , ,"檔案開啟密碼字串", "活頁寫入密碼字串-沒有則省略")
如此就會直接開啟檔案,而不會有密碼輸入提示對話框了