可有delphi 語法控制 excel 隱藏工作表 及 取消隱藏工作表 |
|
答題得分者是：tick228
|
|
lilian
一般會員   發表：6 回覆：3 積分：1 註冊：2002-12-17 發送簡訊給我 |
excel 手動操作 excel > 常用 > 格式 > 隱藏工作表 及 取消隱藏工作表
因為 隱藏工作表 無法將數據資料寫入該工作表 // MyExcel.WorkSheets['片語頁'].Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True); // MyExcel.WorkSheets['片語頁'].Protect(DrawingObjects:=false, Contents:=false, Scenarios:=false); 上2列無效 MyExcel.Cells.Item[i,1]:=ADOQuery1.FieldByName('text1').AsString; 需要用人工將該檔案先取消隱藏工作表,才正常運作 否則出現錯誤訊息 請問有語法可將該excel 片語頁 工作表取消隱藏工作表 ,帶寫入後再將該表在 隱藏 謝謝 |
|
tick228
高階會員  發表：1 回覆：47 積分：104 註冊：2003-11-03 發送簡訊給我 |
按照 Microsoft 的說明文件
https://docs.microsoft.com/zh-tw/office/vba/api/excel.worksheet 保護文件 -> Protect 取消保護 -> Unprotect 試試看. ===================引 用 lilian 文 章=================== excel 手動操作 excel > 常用 > 格式 > 隱藏工作表 及 取消隱藏工作表 因為 隱藏工作表 無法將數據資料寫入該工作表 // MyExcel.WorkSheets['片語頁'].Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True); // MyExcel.WorkSheets['片語頁'].Protect(DrawingObjects:=false, Contents:=false, Scenarios:=false); 上2列無效 MyExcel.Cells.Item[i,1]:=ADOQuery1.FieldByName('text1').AsString; 需要用人工將該檔案先取消隱藏工作表,才正常運作 否則出現錯誤訊息 請問有語法可將該excel 片語頁 工作表取消隱藏工作表 ,帶寫入後再將該表在 隱藏 謝謝 |
|
lilian
一般會員 發表：6 回覆：3 積分：1 註冊：2002-12-17 發送簡訊給我 |
發表時間：2019-10-31 09:25:57
IP:70.66.xxx.xxx 未訂閱
附加檔案：
系統時間：2024-04-29 17:09:05
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |