myeole=CREATEOBJECT("Excel.application")
WITH myeole
.Workbooks.open(getfile("xls"))
.DisplayAlerts = .F.
.ActiveSheet.range("A1:B1").Merge
.Cells(1,1).formulaR1C1="合并单元格后写入的字符"
.ActiveWorkbook.Close(.t.)
.quit
ENDWITH
RELEASE myeole
WITH myeole
.Workbooks.open(getfile("xls"))
.DisplayAlerts = .F.
.ActiveSheet.range("A1:B1").Merge
.Cells(1,1).formulaR1C1="合并单元格后写入的字符"
.ActiveWorkbook.Close(.t.)
.quit
ENDWITH
RELEASE myeole
相互学习，互相交流，共同提高。
