EXCEL的问题

Question

例如：将第M行1至N列合并，并写入“*****统计”，（设置为宋体粗体号字）
应该如何写语句
Set MyExcel = CreateObject("Excel.Application")
With MyExcel.Worksheets("Sheet1")再往下怎么设置worksheets的属性
请指教，谢谢

Answer 1

Dim xl As Excel.Application
Dim St As Excel.WorksheetSet xl = New Excel.Application
xl.Workbooks.Open ""
Set St = xl.ActiveSheet'将第M行1至N列合并，并写入“*****统计”
dim sum
for i=1 to N
  sum=sum+st.cells(M,i)
next iinsert into table_name(*****统计..) vaules(sum..)