procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Try ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Open(OpenDialog1.FileName,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,0)); ExcelWorkSheet1.ConnectTo(ExcelWorkBook1.ActiveSheet as _Worksheet); Except; end; ExcelApplication1.Visible[0]:=true; ExcelWorkBook1.Activate; ExcelWorksheet1.Cells.Item[1,1]:='這是第一格'; ExcelWorksheet1.Cells.Item[2,3]:='這是第二格'; ExcelWorksheet1.Cells.Item[3,4]:='這是第三格'; ExcelWorksheet1.Range['A1','D4'].Select; ExcelWorksheet1.Selection.copy; ExcelWorksheet1.Range['a5'].select; ExcelWorksheet1.activesheet.paste ; ExcelWorkBook1.Save; end;//if OpenDialog1.Execute then end;