下面是每来一支钢，就在EXCEL表格中的一行记录各种数据的脚本。即每来每来一支钢，自动往下一行记录。但是太繁琐。请问大家，有无办法，使Range("J2")->中的J2用变量来代替，这样就可简单许多。


#pragma code ()
char FileName[20] = " ";
char* Name;
double genshu;
double hao;
float kh,guige;
__object* pExcel = NULL;
genshu=GetTagDouble("本卡片号根数_0");
SetTagDouble("根数记录",genshu);
Name=GetTagChar("卡片号_0");
hao=GetTagDouble("卡片号_0");
kh=GetTagFloat("卡片号_0");
guige=GetTagFloat("ChengPinGuiGe_2");
guige=guige/100;
SetTagFloat("成品规格记录",guige);
if((GetTagBit("钢温记录信号")==1))
{

sprintf(FileName,"e:\\LZEQ_HMI\\记录\\ %s.xls" ,Name);
pExcel = __object_create("Excel.Application.9"); //9表示用的是office 2000
pExcel->Visible =0;
pExcel->Workbooks ->Open ("e:\\LZEQ_HMI\\JILU.xls");

pExcel->Worksheets("sheet1")->Range("C2")->Value=guige;
pExcel->Worksheets("sheet1")->Range("F2")->Value=GetTagChar("开始日期记录");
pExcel->Worksheets("sheet1")->Range("J2")->Value=GetTagChar("结束日期记录");
pExcel->Worksheets("sheet1")->Range("C3")->Value=GetTagDouble("卡片号_0");
pExcel->Worksheets("sheet1")->Range("F3")->Value=GetTagChar("钢种_0");
pExcel->Worksheets("sheet1")->Range("I3")->Value=GetTagChar("炉号_0");
pExcel->Worksheets("sheet1")->Range("L3")->Value=GetTagChar("来料规格_0");
pExcel->Worksheets("sheet1")->Range("O3")->Value=GetTagChar("本卡片号根数_0");
if (GetTagDouble("根数记录")==1)
{
pExcel->Worksheets("sheet1")->Range("A5")->Value=GetTagWord("根数序号");
pExcel->Worksheets("sheet1")->Range("B5")->Value=GetTagChar("开始时间记录");
pExcel->Worksheets("sheet1")->Range("C5")->Value=GetTagWord("1#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("D5")->Value=GetTagWord("1#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("E5")->Value=GetTagWord("2#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("F5")->Value=GetTagWord("2#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("G5")->Value=GetTagWord("3#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("H5")->Value=GetTagWord("3#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("I5")->Value=GetTagWord("4#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("J5")->Value=GetTagWord("5#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("K5")->Value=GetTagWord("4#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("L5")->Value=GetTagWord("6#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("M5")->Value=GetTagWord("7#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("N5")->Value=GetTagWord("5#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("O5")->Value=GetTagWord("8#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("P5")->Value=GetTagChar("结束日期记录");
}
if (GetTagDouble("根数记录")==2)
{
pExcel->Worksheets("sheet1")->Range("A6")->Value=GetTagWord("根数序号");
pExcel->Worksheets("sheet1")->Range("B6")->Value=GetTagChar("开始时间记录");
pExcel->Worksheets("sheet1")->Range("C6")->Value=GetTagWord("1#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("D6")->Value=GetTagWord("1#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("E6")->Value=GetTagWord("2#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("F6")->Value=GetTagWord("2#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("G6")->Value=GetTagWord("3#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("H6")->Value=GetTagWord("3#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("I6")->Value=GetTagWord("4#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("J6")->Value=GetTagWord("5#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("K6")->Value=GetTagWord("4#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("L6")->Value=GetTagWord("6#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("M6")->Value=GetTagWord("7#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("N6")->Value=GetTagWord("5#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("O6")->Value=GetTagWord("8#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("P6")->Value=GetTagChar("结束日期记录");
}
if (GetTagDouble("根数记录")==3)
{
pExcel->Worksheets("sheet1")->Range("A7")->Value=GetTagWord("根数序号");
pExcel->Worksheets("sheet1")->Range("B7")->Value=GetTagChar("开始时间记录");
pExcel->Worksheets("sheet1")->Range("C7")->Value=GetTagWord("1#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("D7")->Value=GetTagWord("1#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("E7")->Value=GetTagWord("2#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("F7")->Value=GetTagWord("2#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("G7")->Value=GetTagWord("3#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("H7")->Value=GetTagWord("3#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("I7")->Value=GetTagWord("4#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("J7")->Value=GetTagWord("5#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("K7")->Value=GetTagWord("4#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("L7")->Value=GetTagWord("6#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("M7")->Value=GetTagWord("7#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("N7")->Value=GetTagWord("5#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("O7")->Value=GetTagWord("8#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("P7")->Value=GetTagChar("结束日期记录");
}
.
.
.
if (GetTagDouble("根数记录")==120)
{
pExcel->Worksheets("sheet1")->Range("A120")->Value=GetTagWord("根数序号");
pExcel->Worksheets("sheet1")->Range("B120")->Value=GetTagChar("开始时间记录");
pExcel->Worksheets("sheet1")->Range("C120")->Value=GetTagWord("1#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("D120")->Value=GetTagWord("1#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("E120")->Value=GetTagWord("2#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("F120")->Value=GetTagWord("2#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("G120")->Value=GetTagWord("3#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("H120")->Value=GetTagWord("3#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("I120")->Value=GetTagWord("4#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("J120")->Value=GetTagWord("5#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("K120")->Value=GetTagWord("4#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("L120")->Value=GetTagWord("6#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("M120")->Value=GetTagWord("7#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("N120")->Value=GetTagWord("5#水箱流量记录");
pExcel->Worksheets("sheet1")->Range("O120")->Value=GetTagWord("8#高温计温度记录");
pExcel->Worksheets("sheet1")->Range("P120")->Value=GetTagChar("结束日期记录");
}

pExcel->ActiveWorkbook->Save;
pExcel->Workbooks->Close();
pExcel->Quit();
__object_delete(pExcel);
SetTagBit("钢温记录信号",0);

}
return 0;
}