請問要對 excel 進行凍結窗格操作到底如何弄？我用下面的代碼，在運行到“excel.activeWindow.FreezePanes:=true”這一句，總會出現“EOleSysError with message '服務器出現意外情況。'”的錯誤。
procedure TForm1.Button4Click(Sender: TObject);
var Excel,xlbook,xlsheet: OleVariant;
begin
try Excel := CreateOLEObject('Excel.Application');
except
Application.MessageBox('excel沒有安裝', '提示資訊', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
Exit;
end;
try
xlbook:=Excel.WorkBooks.Open(extractfilepath(application.ExeName)+'查詢表.xlsx');
excel.WorkSheets[ 'Sheet1' ].Activate;
excel.activeWindow.FreezePanes:=false;
excel.activeWindow.SplitColumn:=2;
excel.activeWindow.SplitRow:=1;
xlBook.worksheets[ 'Sheet1' ].cells[2,1].activate;
try
excel.activeWindow.FreezePanes:=true;
except
end;
excel.worksheets[ 'Sheet1' ].cells[2,1].activate;
try
excel.activeWindow.FreezePanes:=true;
except
end;
xlbook.ActiveSheet.Range['A2'].Select;
try
excel.ActiveWindow.FreezePanes:=True;
except
end;
excel.ActiveSheet.Range['A2'].Select;
try
excel.ActiveWindow.FreezePanes:=True;
except
end;
finally
Excel.DisplayAlerts:=False;
Excel.ActiveWorkBook.save;
Excel.WorkBooks.Close ;
Excel.Quit;
end;
end;
我嘗試在excel中直接運行下面的宏是正常的。
{Sub Macro1()
Range("A2").Select
ActiveWindow.FreezePanes = True
End Sub}
請問該如何解決（Delphi 7）？
uj5u.com熱心網友回復：
沒有人知道問題所在么？轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/19214.html