我的程序是打开一张原有的excel表格，然后往其中间部分填数据。可是原表上部和下部都有东西，所以我故意将excel原表预留了足够的空间。不过，我填完后所填数据与excel原表的下部内容就有好多空白列，要如何判断并删除？

看了您的問題,小弟也不知如何下手,過年這幾天幾位高手級的大大可能都度假或是回老家去團圓了,所以,等個幾天看看吧, 有任何建議的大大還請不吝指教幫幫這位同學...

Hi:    新年快樂！！    Excel 中有一個 COUNTA 的函數，可以用來計算指定區間內非空白儲存格的數目，你可以在該檔案中，在每一列的特定欄位中使用此函數，再看欄欄位值是否為零，是的話將欄刪除，具體做法如下

procedure TForm1.OpenExcelFile(SRFileName,TRFileName: String);
VAR
    LocID : LCid;
    I : Integer;
begin
    IF FileExists(SRFileName) THEN
        BEGIN
            LocID := GetUserDefaultLCID;
            TRY
                ExcelApplication1.Connect;
                ExcelApplication1.Visible[LocID] := False;
                ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(SRFileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,LocID));
                ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
                TRY
                    ExcelApplication1.Columns.Range_['A1','A65536'].Insert(xlToRight);
                    FOR I := 100 DOWNTO 1 DO
                        BEGIN
                            ExcelApplication1.Columns.Range_['A'   IntToStr(I),'A'   IntToStr(I)].Value := '=COUNTA(B'   IntToStr(I)   ':IV'    IntToStr(I)   ')';
                            IF ExcelApplication1.Columns.Range_['A'   IntToStr(I),'A'   IntToStr(I)].Text = '0' THEN
                                ExcelApplication1.Columns.Range_['A'   IntToStr(I),'IV'   IntToStr(I)].Delete(xlUp);
                        END;
                    ExcelApplication1.Columns.Range_['A1','A65536'].Delete(xlToLeft);
                    IF FileExists(TRFileName) THEN
                        DeleteFile(TRFileName);
                    (ExcelApplication1.ActiveWorkbook AS _WorkBook).SaveAs(TRFileName,xlNormal,'','',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;
            ExcelWorksheet1.Disconnect;
            ExcelWorkbook1.Disconnect;
            ExcelApplication1.Quit;
            ExcelApplication1.Disconnect;
//            DeleteFile(SRFileName);
        END;
end;

至於迴圈控制部分，請自行加以調整 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman