往EXCEL中写数据的问题

Question

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

Answer 1

你先在excel里启动一个“录制新宏”，然后你自己手动进行你所想要进行的操作，例如你上面所说的“将第M行1至N列合并，并写入“*****统计”，（设置为宋体粗体号字）”，操作完成后停止录制。然后再打开那个宏，看看里面的代码应该就是了。

Answer 2

以下是我把第3行1至4列合并，并写入“*****统计”，（设置为宋体粗体号字）后录得的代码，其中有很多格式设置的语句是多余的，自己删删试试吧：'
' 宏2 Macro
' Billgates 记录的宏 2003-12-30
''
    Range("A3:D3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.FormulaR1C1 = "*****统计"
    With ActiveCell.Characters(Start:=1, Length:=5).Font
        .Name = "Times New Roman"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=6, Length:=2).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A3:D3").Select
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "宋体"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End Sub

Answer 3

把上述代码直接加到CLICK事件中,前面再加上
  Screen.MousePointer = vbHourglass
   Set MyExcel = CreateObject("Excel.Application")
   Set NewSheet = Nothing
   MyExcel.Workbooks.Add
   With MyExcel.Worksheets("Sheet1")
运行后提示"子函数或过程未定义"

Answer 4

代码：
Dim myexcel As Excel.Application
Dim myworkbook As Excel.Workbook
Dim myworksheet As Excel.Worksheet
Private Sub Command1_Click()
Set myexcel = CreateObject("Excel.Application")
Set myworkbook = myexcel.Workbooks.Add
Set myworksheet = myworkbook.Worksheets(1)With myworksheet  Range("A3:D3").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.FormulaR1C1 = "*****统计"
    With ActiveCell.Characters(Start:=1, Length:=5).Font
        .Name = "Times New Roman"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:=6, Length:=2).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("A3:D3").Select
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "宋体"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End WithEnd Withmyexcel.Visible = True
'myworkbook.Save 加上这句就可以自动保存
Set myexcel = NothingEnd Sub另外：必须先引用microsoft excel 9.0 object library，录制的多余代码还是未删除。