我寫的程式如下 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; 強制將內容以一頁方式列印 但執行時無錯誤 檢視時依然分為兩頁

Hi:    1.我猜想，第二個 Sheet Pastespecial 方法失敗，可能是因為其它處理動作，導致 excel 已經沒有將欲複製之儲存格給 Mark 起來，並予以複製，所以無法 Paste 資料而發生錯誤    2.

with (ExcelApplication1.ActiveSheet AS _WorkSheet).PageSetup do
    begin
        Zoom := False;
        FitToPagesWide := 1;
        FitToPagesTall := 1;
    end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

(雖然是很久以前就有答案哩..) 今天找資料的時候找到的... 好像加入這一行.. sExcel.ActiveSheet.Pagesetup.Zoom := False; //需加入才會1頁長、寬 ..... sExcel.ActiveSheet.Pagesetup.FitToPagesWide := 1;//1頁長 sExcel.ActiveSheet.Pagesetup.FitToPagesTall := 1;//1頁寬 這樣就可以成功咯..^^