請教各位大大： 要如何用delphi控制excel，讓某些區域或儲存格的格線消失呢，謝謝!

是指 Range.merge 合併儲存格 嗎！

不好意思，可能我問的方式不好，我是意思是如果要做成向圖上這樣的情形要如何做設定呢?

Hi kingch,    Methods 1 : ExcelApplication

procedure TForm1.Button1Click(Sender: TObject);
VAR
    LocID : LCid;
    SrcFile,TgtFile : String;
begin
    SrcFile := 'C:\Temp\Test.xls';
    TgtFile := 'C:\Temp\Result.xls';
    IF FileExists(SrcFile) THEN
        BEGIN
            LocID := GetUserDefaultLCID;
            TRY
                ExcelApplication1.Connect;
                ExcelApplication1.Visible[LocID] := False;
                ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(SrcFile,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,LocID));
                TRY
                    (ExcelWorkbook1.ActiveSheet AS _Worksheet).Cells.Borders.LineStyle := xlNone;
                    (ExcelWorkbook1.ActiveSheet AS _Worksheet).Range['A3','E9'].Borders.LineStyle := xlContinuous;
                    IF FileExists(TgtFile) THEN
                        DeleteFile(TgtFile);
                    (ExcelApplication1.ActiveWorkbook AS _WorkBook).SaveAs(TgtFile,xlNormal,EmptyParam,EmptyParam,False,False,xlNoChange,EmptyParam,EmptyParam,EmptyParam,EmptyParam,LocID);
                    ExcelWorkbook1.Close(0,EmptyParam);
                EXCEPT
                    ON E: Exception DO ShowMessage(E.Message);
                END;
            EXCEPT
                ON E: Exception DO ShowMessage(E.Message);
            END;
            ExcelWorkbook1.Disconnect;
            ExcelApplication1.Quit;
            ExcelApplication1.Disconnect;
        END;
end;

Methods 2 : OLEObject

procedure TForm1.Button6Click(Sender: TObject);
var
  ExcelApp,WorkBook : OleVariant;
  SrcFile,TgtFile : String;
  I : Integer;
begin
  SrcFile := 'C:\Temp\Test.xls';
  TgtFile := 'C:\Temp\Result.xls';
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Visible := False;
  WorkBook := ExcelApp.WorkBooks.Open(SrcFile);
  WorkBook.ActiveSheet.Cells.Borders.LineStyle := xlNone;
  WorkBook.ActiveSheet.Range['A3','E9'].Borders.LineStyle := xlContinuous;
  WorkBook.SaveAs(TgtFile);
  ExcelApp.ActiveWorkBook.Close;
  ExcelApp.quit;
end;

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

------
Fishman

謝謝您的回答，不過因為我原來所寫的方式不同，所以您所提供的方法在我的程式中並不能用，但我也因此得到啟發，將程式改成下方的程式碼竟然就可以用了，真是要謝謝您了。    MyExcel.WorkBooks[1].WorkSheets[1].Cells.RANGE[MyExcel.WorkBooks[1].WorkSheets[1].Cells[1,1],MyExcel.WorkBooks[1].WorkSheets[1].Cells[1,39]].borders.LineStyle:=false; MyExcel.WorkBooks[1].WorkSheets[1].Cells.RANGE[MyExcel.WorkBooks[1].WorkSheets[1].Cells[2,1],MyExcel.WorkBooks[1].WorkSheets[1].Cells[33,39]].borders.LineStyle:=true;