合并单元格

Excel问题 | 2021-06-02 07:26:23 | 阅读 75 次 | 评论(0)

oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
	.Workbooks.Add(-4167)
	.Visible = .T.
	* 指定区域的单元格分行合并
    .WorkSheets(1).Cells(1, 1).Resize(3, 4).Merge(.T.)
    .ActiveSheet.Cells(1, 1).Value = "指定区域的单元格分行合并"
    * 指定区域的单元格合并为一个单元格
    .WorkSheets(1).Cells(5, 1).Resize(3, 4).Merge(.F.)
	.ActiveSheet.Cells(5, 1).Value = "指定区域的单元格合并为一个单元格"
ENDWITH 

文章评论,共0条
游客请输入验证码
浏览294128次