一個EXCEL語法的問題 |
尚未結案
|
hslin
一般會員 發表:7 回覆:5 積分:2 註冊:2003-10-15 發送簡訊給我 |
我寫的程式如下 001 excelapp.WorkBooks[2].worksheets[si].activate;
002 excelapp.activesheet.range['a1'].pastespecial;
003 excelapp.workbooks[2].activesheet.pagesetup.centerheader :='施工日報表';
主要的做法是新增多個SHEET 並將範本檔格式是內容copy過來
再填寫新內容
但為何新增第一個SHEET執行正常
但在寫入第二個SHEET時回應pastespecial 方法失敗
另一個問題
程式碼如下
excelapp.activesheet.pagesetup.FitToPagesWide := 1;
excelapp.activesheet.pagesetup.FitToPagesTall := 1;
強制將內容以一頁方式列印 但執行時無錯誤 檢視時依然分為兩頁
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi: 1.我猜想,第二個 Sheet Pastespecial 方法失敗,可能是因為其它處理動作,導致 excel 已經沒有將欲複製之儲存格給 Mark 起來,並予以複製,所以無法 Paste 資料而發生錯誤 2.
with (ExcelApplication1.ActiveSheet AS _WorkSheet).PageSetup do begin Zoom := False; FitToPagesWide := 1; FitToPagesTall := 1; end;-------------------------------- 小弟才疏學淺,若有謬誤請不吝指教 --------------------------------
------
Fishman |
rest
一般會員 發表:5 回覆:23 積分:5 註冊:2004-05-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |