procedure TForm1.N2Click(Sender: TObject);
var filepath :string;
var i : integer;
var rang:variant;
begin
d11:=length(jszb);
d22:=length(jszb1);
d33:=length(jszb3);
begin
if ExcelApplication1=nil then //检查是否安装EXCELL
begin
try
ExcelApplication1.Connect; //打开excel
except
ShowMessage('没有安装Excell，操作失败！')//,OKonly+Excalamation,SoftName) ;
end;
end;
if Form1.ExcelApplication1.Workbooks.Count>0 then
Form1.ExcelApplication1.Workbooks.Close(1);
if Form1.ExcelApplication1.Workbooks.Count=0 then
begin
Form1.ExcelApplication1.Workbooks.Add(FilePath,0);
Form1.ExcelApplication1.Caption:='CPⅢ近似坐标表'; //如果安装好的话，查找已经建好的文件名为《CPⅢ近似坐标表》的空白文件
Form1.ExcelApplication1.Visible[0]:=true; //显示当前窗口
Form1.ExcelWorkbook1.ConnectTo(Form1.ExcelApplication1.Workbooks[1]);
Form1.ExcelWorksheet1.ConnectTo(Form1.ExcelWorkbook1.Worksheets[1] as _worksheet);
Form1.ExcelWorksheet1.Name:='CPⅢ近似坐标表';
Form1.ExcelWorksheet1.PageSetup.CenterHeader :='工程名称： '+' 日期：'+dateToStr(date);
Form1.ExcelWorksheet1.PageSetup.CenterFooter:= '计算： 复核： 监理： 第 &P 页，'+'共 &N 页'; //设置居中页脚显示
Form1.ExcelWorksheet1.PageSetup.FooterMargin:=2/0.035;
Form1.ExcelWorksheet1.PageSetup.HeaderMargin := 2/0.035;
Form1.ExcelWorksheet1.PageSetup.TopMargin := 3/0.035;
Form1.ExcelWorksheet1.PageSetup.BottomMargin := 3/0.035;
Form1.ExcelWorksheet1.PageSetup.LeftMargin := 2/0.035;
Form1.ExcelWorksheet1.PageSetup.RightMargin := 2/0.035;//Excell的设置
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[1,1],ExcelWorksheet1.Cells.Item[3,9]];
rang.merge;
rang.horizontalalignment:=xlcenter;
for i:=4 to 4+d11+d22+d33 do
begin
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[i,1],ExcelWorksheet1.Cells.Item[i,3]];
rang.merge;
rang.horizontalalignment:=xlcenter;
end;
for i:=4 to 4+d11+d22+d33 do
begin
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[i,4],ExcelWorksheet1.Cells.Item[i,6]];
rang.merge;
rang.horizontalalignment:=xlcenter;
end;
for i:=4 to 4+d11+d22+d33 do
begin
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[i,7],ExcelWorksheet1.Cells.Item[i,9]];
rang.merge;
rang.horizontalalignment:=xlcenter;
end;
for i:=3 to 3+d11+d22+d33+1 do
begin
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[i,1],ExcelWorksheet1.Cells.Item[i,3]];
rang.Borders[xlEdgeLeft].Weight:=xlMedium;
rang.Borders[xlEdgeRight].Weight:=xlMedium;
rang.Borders[xlEdgeBottom].Weight:=xlMedium;
//rang.Font.Size:=10;
end;
for i:=3 to 3+d11+d22+d33+1 do
begin
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[i,4],ExcelWorksheet1.Cells.Item[i,6]];
rang.Borders[xlEdgeLeft].Weight:=xlMedium;
rang.Borders[xlEdgeRight].Weight:=xlMedium;
rang.Borders[xlEdgeBottom].Weight:=xlMedium;
//rang.Font.Size:=10;
end;
for i:=3 to 3+d11+d22+d33+1 do
begin
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[i,7],ExcelWorksheet1.Cells.Item[i,9]];
rang.Borders[xlEdgeLeft].Weight:=xlMedium;
rang.Borders[xlEdgeRight].Weight:=xlMedium;
rang.Borders[xlEdgeBottom].Weight:=xlMedium;
//rang.Font.Size:=10;
end;
ExcelWorksheet1.Cells.Item[1,1]:= 'CPⅢ近似坐标表' ;
ExcelWorksheet1.Cells.Item[4,1]:= '点号' ;
ExcelWorksheet1.Cells.Item[4,4]:= 'X坐标' ;
ExcelWorksheet1.Cells.Item[4,7]:= 'Y坐标' ;
for i:=1 to d11 do
begin
//以下为输出坐标
ExcelWorksheet1.Cells.Item[4+i,1]:=jszb[i-1,0];
ExcelWorksheet1.Cells.Item[4+i,4]:=jszb[i-1,1];
ExcelWorksheet1.Cells.Item[4+i,7]:=jszb[i-1,2];
end;
for i:=d11+1 to d22+d11 do
begin
ExcelWorksheet1.Cells.Item[4+i,1]:=jszb1[i-(d11+1),0];
ExcelWorksheet1.Cells.Item[4+i,4]:=jszb1[i-(d11+1),1];
ExcelWorksheet1.Cells.Item[4+i,7]:=jszb1[i-(d11+1),2];
end;
for i:=d11+d22+1 to d11+d22+d33 do
begin
ExcelWorksheet1.Cells.Item[4+i,1]:=jszb3[i-(d11+d22+1),0];
ExcelWorksheet1.Cells.Item[4+i,4]:=jszb3[i-(d11+d22+1),1];
ExcelWorksheet1.Cells.Item[4+i,7]:=jszb3[i-(d11+d22+1),2];
end;
end;
end;
end;
procedure TForm1.N6Click(Sender: TObject);
var filepath :string;
var i: integer;
var rang:variant;
begin
begin
d22:=length(jszb1);
d33:=length(jszb3);
d44:=length(jqzb);
if ExcelApplication1=nil then //检查是否安装EXCELL
begin
try
ExcelApplication1.Connect; //打开excel
except
ShowMessage('没有安装Excell，操作失败！')//,OKonly+Excalamation,SoftName) ;
end;
end;
if Form1.ExcelApplication1.Workbooks.Count>0 then
Form1.ExcelApplication1.Workbooks.Close(1);
if Form1.ExcelApplication1.Workbooks.Count=0 then
begin
Form1.ExcelApplication1.Workbooks.Add(FilePath,0);
Form1.ExcelApplication1.Caption:='CPⅢ精确坐标表'; //如果安装好的话，查找已经建好的文件名为《CPⅢ精确坐标表》的空白文件
Form1.ExcelApplication1.Visible[0]:=true; //显示当前窗口
Form1.ExcelWorkbook1.ConnectTo(Form1.ExcelApplication1.Workbooks[1]);
Form1.ExcelWorksheet1.ConnectTo(Form1.ExcelWorkbook1.Worksheets[1] as _worksheet);
Form1.ExcelWorksheet1.Name:='CPⅢ精确坐标表';
Form1.ExcelWorksheet1.PageSetup.CenterHeader :='工程名称： '+' 日期：'+dateToStr(date);
Form1.ExcelWorksheet1.PageSetup.CenterFooter:= '计算： 复核： 监理： 第 &P 页，'+'共 &N 页'; //设置居中页脚显示
Form1.ExcelWorksheet1.PageSetup.FooterMargin:=2/0.035;
Form1.ExcelWorksheet1.PageSetup.HeaderMargin := 2/0.035;
Form1.ExcelWorksheet1.PageSetup.TopMargin := 3/0.035;
Form1.ExcelWorksheet1.PageSetup.BottomMargin := 3/0.035;
Form1.ExcelWorksheet1.PageSetup.LeftMargin := 2/0.035;
Form1.ExcelWorksheet1.PageSetup.RightMargin := 2/0.035;//Excell的设置
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[1,1],ExcelWorksheet1.Cells.Item[3,9]];
rang.merge;
rang.horizontalalignment:=xlcenter;
for i:=4 to 4+d22+d33+d44 do
begin
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[i,1],ExcelWorksheet1.Cells.Item[i,3]];
rang.merge;
rang.horizontalalignment:=xlcenter;
end;
for i:=4 to 4+d22+d33+d44 do
begin
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[i,4],ExcelWorksheet1.Cells.Item[i,6]];
rang.merge;
rang.horizontalalignment:=xlcenter;
end;
for i:=4 to 4+d22+d33+d44 do
begin
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[i,7],ExcelWorksheet1.Cells.Item[i,9]];
rang.merge;
rang.horizontalalignment:=xlcenter;
end;
for i:=3 to 3+d22+d33+d44+1 do
begin
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[i,1],ExcelWorksheet1.Cells.Item[i,3]];
rang.Borders[xlEdgeLeft].Weight:=xlMedium;
rang.Borders[xlEdgeRight].Weight:=xlMedium;
rang.Borders[xlEdgeBottom].Weight:=xlMedium;
//rang.Font.Size:=10;
end;
for i:=3 to 3+d22+d33+d44+1 do
begin
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[i,4],ExcelWorksheet1.Cells.Item[i,6]];
rang.Borders[xlEdgeLeft].Weight:=xlMedium;
rang.Borders[xlEdgeRight].Weight:=xlMedium;
rang.Borders[xlEdgeBottom].Weight:=xlMedium;
//rang.Font.Size:=10;
end;
for i:=3 to 3+d22+d33+d44+1 do
begin
rang:=ExcelWorksheet1.Range[ExcelWorksheet1.Cells.Item[i,7],ExcelWorksheet1.Cells.Item[i,9]];
rang.Borders[xlEdgeLeft].Weight:=xlMedium;
rang.Borders[xlEdgeRight].Weight:=xlMedium;
rang.Borders[xlEdgeBottom].Weight:=xlMedium;
//rang.Font.Size:=10;
end;
ExcelWorksheet1.Cells.Item[1,1]:= 'CPⅢ精确坐标表' ;
ExcelWorksheet1.Cells.Item[4,1]:= '点号' ;
ExcelWorksheet1.Cells.Item[4,4]:= 'X坐标' ;
ExcelWorksheet1.Cells.Item[4,7]:= 'Y坐标' ;
for i:=1 to d44 do
begin
//以下为输出坐标
ExcelWorksheet1.Cells.Item[4+i,1]:=jqzb[i-1,0];
ExcelWorksheet1.Cells.Item[4+i,4]:=jqzb[i-1,1];
ExcelWorksheet1.Cells.Item[4+i,7]:=jqzb[i-1,2];
end;
for i:=d44+1 to d44+d22 do
begin
ExcelWorksheet1.Cells.Item[4+i,1]:=jszb1[i-(d44+1),0];;
ExcelWorksheet1.Cells.Item[4+i,4]:=jszb1[i-(d44+1),1];;
ExcelWorksheet1.Cells.Item[4+i,7]:=jszb1[i-(d44+1),2];;
end;
for i:=d44+d22+1 to d44+d22+d33 do
begin
ExcelWorksheet1.Cells.Item[4+i,1]:=jszb3[i-(d44+d22+1),0];
ExcelWorksheet1.Cells.Item[4+i,4]:=jszb3[i-(d44+d22+1),1];
ExcelWorksheet1.Cells.Item[4+i,7]:=jszb3[i-(d44+d22+1),2];
end;
end;
end;
end;
坐标值没有输出 就只有点号 x y 怎么回事