PCDVD數位科技討論區

PCDVD數位科技討論區 (https://www.pcdvd.com.tw/index.php)
-   疑難雜症區 (https://www.pcdvd.com.tw/forumdisplay.php?f=34)
-   -   [難題]vb如何開啟excel檔(內詳) (https://www.pcdvd.com.tw/showthread.php?t=591642)

=風= 2006-02-13 09:58 PM

[難題]vb如何開啟excel檔(內詳)
 
小弟最近遇到一個難題
請教vb程式
如何開啟一個含有密碼保護的excel檔呢?
假設有一個Book1.xls檔
密碼是abcde
麻煩了,謝謝 :)

=風= 2006-02-14 08:59 PM

不知有沒有那位高手會呢?
麻煩了,謝謝

guch0329 2006-02-14 11:20 PM

利用錄製巨集的方式產生vba code
再把code複製下來,貼上你的程式,適當修改

stfl 2006-02-15 01:42 AM

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("Book1.xls", , , , "abcde")

=風= 2006-02-15 06:54 AM

引用:
作者stfl
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("Book1.xls", , , , "abcde")

謝謝stfl兄
小弟就是要這句語法
Set xlBook = xlApp.Workbooks.Open("Book1.xls", , , , "abcde")
:) :like:


所有的時間均為GMT +8。 現在的時間是12:49 PM.

vBulletin Version 3.0.1
powered_by_vbulletin 2026。