PCDVD數位科技討論區
PCDVD數位科技討論區   註冊 常見問題 標記討論區為已讀

回到   PCDVD數位科技討論區 > 其他群組 > 疑難雜症區
帳戶
密碼
 

回應
 
主題工具
=風=
Golden Member
 
=風=的大頭照
 

加入日期: Nov 2003
您的住址: 銀河-太陽系-地球-亞洲-中華民國
文章: 2,579
[難題]vb如何開啟excel檔(內詳)

小弟最近遇到一個難題
請教vb程式
如何開啟一個含有密碼保護的excel檔呢?
假設有一個Book1.xls檔
密碼是abcde
麻煩了,謝謝
     
      
__________________
☆★☆★☆★☆★☆★☆★☆★☆★☆★
舊 2006-02-13, 09:58 PM #1
回應時引用此文章
=風=離線中  
=風=
Golden Member
 
=風=的大頭照
 

加入日期: Nov 2003
您的住址: 銀河-太陽系-地球-亞洲-中華民國
文章: 2,579
不知有沒有那位高手會呢?
麻煩了,謝謝
 
__________________
☆★☆★☆★☆★☆★☆★☆★☆★☆★
舊 2006-02-14, 08:59 PM #2
回應時引用此文章
=風=離線中  
guch0329
Basic Member
 

加入日期: Jul 2005
文章: 22
利用錄製巨集的方式產生vba code
再把code複製下來,貼上你的程式,適當修改
舊 2006-02-14, 11:20 PM #3
回應時引用此文章
guch0329離線中  
stfl
New Member
 

加入日期: Feb 2002
您的住址: 打狗
文章: 6
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, 01:42 AM #4
回應時引用此文章
stfl離線中  
=風=
Golden Member
 
=風=的大頭照
 

加入日期: Nov 2003
您的住址: 銀河-太陽系-地球-亞洲-中華民國
文章: 2,579
引用:
作者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")
__________________
☆★☆★☆★☆★☆★☆★☆★☆★☆★
舊 2006-02-15, 06:54 AM #5
回應時引用此文章
=風=離線中  


回應


POPIN
主題工具

發表文章規則
不可以發起新主題
不可以回應主題
不可以上傳附加檔案
不可以編輯您的文章

vB 代碼打開
[IMG]代碼打開
HTML代碼關閉



所有的時間均為GMT +8。 現在的時間是05:34 AM.


vBulletin Version 3.0.1
powered_by_vbulletin 2026。