导出数据到Excel中，如何实现冻结窗口？ (50分)

如题

用vb脚本实现

用脚本记录器记录,然后将VBSCRIPT翻译过来即可!

我没用过VB脚本，有什么资料和例子吗？

if d_temp>=2000.0 then tempcolor:=3;//红色
if (d_temp<2000) and (d_temp>=1000) then tempcolor:=45;//
if (d_temp<1000) and (d_temp>=700) then tempcolor:=38;//
if (d_temp<700) and (d_temp>=300) then tempcolor:=6;//
if (d_temp<300) and (d_temp>=100) then tempcolor:=50;//
if (d_temp<100) then tempcolor:=15;//
myworkbook.worksheets[1].range['a'+inttostr(i),'AH'+inttostr(i)].interior.colorindex:=tempcolor;

多谢，背景色设置问题已经解决了，
关于冻结窗口的问题，我是这样做的：
Sheet:= WorkBook.Sheets[1];
//冻结窗口
//Wdow为当前窗口
Sheet.Activate;
Wdow := Excel.ActiveWindow;
//设置单元格
Sheet.Cells(Row,Col).Activate;
//冻结窗口
Wdow.FreezePanes := True;
这样也实现了，只是不知道要用VBA脚本怎么做，我没用过那个东东。
如果可能，希望给予指导。

多人接受答案了。