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

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

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

加入日期: Nov 2003
您的住址: 銀河-太陽系-地球-亞洲-中華民國
文章: 2,579
小弟又出難題來為難大家了,vb如何開啟有密碼保護的excel檔

用vba來寫這個程式小弟會
可是用vb來寫
想了好久還是不知道要如何寫呢?
VB高手有請了
謝謝
     
      
__________________
☆★☆★☆★☆★☆★☆★☆★☆★☆★
舊 2006-04-24, 08:26 PM #1
回應時引用此文章
=風=離線中  
sibaken
*停權中*
 

加入日期: Dec 2001
文章: 800
沒有EXCEL,所以只能跟你講應該是利用Shell跟SendKey這兩個指令.
 
舊 2006-04-24, 08:46 PM #2
回應時引用此文章
sibaken離線中  
JasonCTW
Advance Member
 
JasonCTW的大頭照
 

加入日期: Sep 2003
您的住址: 台北縣永和新店
文章: 375
Dim objExcelApp As Excel.Application

Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open(Filename As String, [UpdateLinks], [ReadOnly], [Format], [Password], [WriteResPassword], [IgnoreReadOnlyRecommended], [Origin], [Delimiter], [Editable], [Notify], [Converter], [AddToMru])
objExcelApp.Visible = True
__________________
Jason Chen @ Taiwan
嘟嘟....你慢走 2006/1/12 中午
舊 2006-04-24, 09:01 PM #3
回應時引用此文章
JasonCTW離線中  
=風=
Golden Member
 
=風=的大頭照
 

加入日期: Nov 2003
您的住址: 銀河-太陽系-地球-亞洲-中華民國
文章: 2,579
引用:
作者JasonCTW
Dim objExcelApp As Excel.Application

Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Workbooks.Open(Filename As String, [UpdateLinks], [ReadOnly], [Format], [Password], [WriteResPassword], [IgnoreReadOnlyRecommended], [Origin], [Delimiter], [Editable], [Notify], [Converter], [AddToMru])
objExcelApp.Visible = True


感謝!
......
__________________
☆★☆★☆★☆★☆★☆★☆★☆★☆★
舊 2006-04-24, 09:35 PM #4
回應時引用此文章
=風=離線中  


回應


POPIN
主題工具

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

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



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


vBulletin Version 3.0.1
powered_by_vbulletin 2025。