,颜色可以
查询,2为白色
end with
with spreadsheet.range("a1:"&; lastcols_ &;"1")
.merge '合并单元格(单元区域)
'.interior.colorindex = 1 '
设计单元络背景色
.horizontalalignment = 3 '居中
end with
line_ = 2
rownum_ = rownum_ + 1
end if
dim irow_, icol_
dim drow_, dcol_
dim templastrange : templastrange = getcolname(ubound(data_, 2)+1) &; (rownum_)
dim beginrow : beginrow = 1
if tempsheettitle <> "" then beginrow = beginrow + 1
if temptitlefirstline = true then beginrow = beginrow + 1
if beginrow=1 then
with spreadsheet.range("a1:"&; templastrange)
.borders.linestyle = 1
.borderaround -4119, -4138 '设置外框
.numberformatlocal = "@"
'文本格式
.font.bold = false
.font.italic = false
.font.size = 10
.shrinktofit=true
end with
else
with spreadsheet.range("a1:"&; templastrange)
.borders.linestyle = 1
.borderaround -4119, -4138
.shrinktofit=true
end with
with spreadsheet.range("a"&; beginrow &;":"&; templastrange)
.numberformatlocal = "@"
.font.bold = false
.font.italic = false
.font.size = 10
end with
end if
if temptitlefirstline = true then
beginrow = 1
if tempsheettitle <> "" then beginrow = beginrow + 1
with spreadsheet.range("a"&; beginrow &;":"&; getcolname(ubound(data_, 2)+1) &; (beginro