ウィンドウ枠固定位置 (ID:9720)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

はじめまして。
TExcelApplicationを使用しウィンドウ枠固定位置を調べようとしたのですが
SplitColumn,SplitRowwBufの値がどうしても0になります。

SplitColumn,SplitRowwBufを取得する方法を教えて頂けないでしょうか。
宜しくお願いします。

try
        ExcelApplication1.Connect;

ExcelApplication1.Workbooks.Open(FileName, EmptyParam,
               EmptyParam,EmptyParam,EmptyParam,EmptyParam,
               EmptyParam,EmptyParam,EmptyParam,EmptyParam,
               EmptyParam,EmptyParam,EmptyParam,lcID);

{開いているブックをExcleWorkbook1に接続}
        ExcelWorkbook1.ConnectTo(ExcelApplication1.
                                 ActiveWorkbook as _workbook);

(ExcelWorkbook1.Sheets.Item['Sheet1'] As ExcelWorksheet).Select(EmptyParam, 0);

if ExcelApplication1.ActiveWindow.FreezePanes then begin
          // 現在コメント
{
          ExcelApplication1.ActiveWindow.FreezePanes := False;
          ExcelApplication1.ActiveWindow.FreezePanes := True;
}

// Debug
          ShowMessage('ExcelApplication1.ActiveWindow.FreezePanes = True'+Chr($A)+
                     'Cloum:'+IntToStr(ExcelApplication1.ActiveWindow.SplitColumn) + Chr($A) +
                     'Row:'+IntToStr(ExcelApplication1.ActiveWindow.SplitRowwBuf) );
        end else begin
          // Debug
          ShowMessage('ExcelApplication1.ActiveWindow.FreezePanes = False'+Chr($A)+
                     'Cloum:'+IntToStr(ExcelApplication1.ActiveWindow.SplitColumn) + Chr($A) +
                     'Row:'+IntToStr(ExcelApplication1.ActiveWindow.SplitRowwBuf) );
        end;
      finally
        //Excel終了
        ExcelWorksheet1.Disconnect;
        ExcelWorkbook1.Close;
        ExcelWorkbook1.Disconnect;
        ExcelApplication1.Quit;
        ExcelApplication1.Disconnect;
      end;

←解決時は質問者本人がここをチェックしてください。

戻る