台灣最大程式設計社群網站
線上人數
1913
 
會員總數:240902
討論主題:186660
歡迎您免費加入會員
討論區列表 >> ACCESS >> 匯出EXCEL檔時,直接在EXCEL檔加上密碼
[ 變換順序 ]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
匯出EXCEL檔時,直接在EXCEL檔加上密碼
價值 : 100 QP  點閱數:220 回應數:1

樓主

雲淡風輕
門外漢
0 10
572 32
發送站內信

請問各位高手們:
我要將ACCESS裡的資料表匯出成EXCEL檔,然後再把EXCEL交給別人,所以想要在匯出時直接對EXCEL加密碼,不知是否可行.
我試著以
dim exApp as object
dim exWB as object
dim strPassword as string
dim strFilePath as string

strPassword = "XXXX"
strFilePath = "D:\Temp\aaa.xls"
set exApp = CreateObject("Excel.Application")
set exWB = exApp.workbooks.Open(Filename:=strfilepath,Password:=strPassword)

docmd.transferspreadsheet acExport,acSpreadsheetTypeExcel9,TableName,FileName,True,"工作表1"

exWB.Close saveChanges:=False
exApp.Quit
set exWB=nothing
set exApp=nothing

資料匯出沒有問題,但是沒有辦法直接幫EXCEL檔加上密碼



搜尋相關Tags的文章: [ excel加密 ] , [ access匯出excel ] ,
本篇文章發表於2017-07-21 16:47
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

roar
檢舉此回應

本篇文章回覆於2017-08-23 19:52
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
[ 變換順序 ]   
1

回覆
如要回應,請先登入.