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

樓主

雲淡風輕
門外漢
0 10
594 33
發送站內信

請問各位高手們:
我要將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
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
回應

俠客風
檢舉此回應
請問樓上的roar前輩,DoCmd是巨集指令,可以轉換成DAO方式匯出EXCEL嗎?
本篇文章回覆於2018-03-28 16:45
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

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