EXCEL导出问题，请教

Question

  Dim i As Integer
  Dim j As Integer
  Dim k As Integer
  Dim xlApp As Excel.Application
  Dim xlBook As Excel.Workbook
  Dim xlSheet As Excel.Worksheet
  Set xlApp = New Excel.Application
  Set xlBook = xlApp.Workbooks.Add
  Set xlSheet = xlBook.Worksheets(1)
  xlSheet.Columns.AutoFit
  Me.MousePointer = 11
  For k = 0 To DGJM.Columns.Count - 1
     xlSheet.Cells.NumberFormatLocal = "@"            '设置为文本格式
     xlSheet.Cells(1, k + 1) = DGJM.Columns(k).Caption
     xlSheet.Range("A1", "M1").HorizontalAlignment = 3   'sheet1为sheet对象
     xlSheet.Range("A1", "M1").VerticalAlignment = 1
     xlSheet.Range("A1", "M1").Height = 200         '这个地方我要设置高度和字体的大小应该怎么做啊？？
     xlSheet.Range("A1", "M1").Merge
     xlSheet.Range("A1", "M1") = "表头内容"
     xlSheet.Range("A2", "M2").Merge
     xlSheet.Range("A2", "M2") = "表头内容"
     xlSheet.Range("A3", "M3").Merge
     xlSheet.Range("A3", "M3") = Format(DTPicker1.Value, "YYYYMMDD")
     xlSheet.Range("A4") = "12"
     xlSheet.Range("B4") = "32"
     xlSheet.Range("C4") = "32"
     xlSheet.Range("D4") = "432"
     xlSheet.Range("E4") = "654"
     xlSheet.Range("F4") = "654"
     xlSheet.Range("G4") = "7"
     xlSheet.Range("H4") = "543"
     xlSheet.Range("I4") = "24"
     xlSheet.Range("J4") = "432"
     xlSheet.Range("K4") = "432"
     xlSheet.Range("L4") = "432"
     xlSheet.Range("M4") = "432"
   Next
  DGJM.Scroll 0, -DGJM.FirstRow
  DGJM.Row = 0
  For i = 0 To DGJM.ApproxCount - 1  For j = 0 To DGJM.Columns.Count - 1
  DGJM.Col = j
  xlSheet.Cells(i + 5, j + 1) = DGJM.Text
  Next
  If i < DGJM.ApproxCount - 1 Then
  DGJM.Row = DGJM.Row + 1
  End If
Next
  Me.MousePointer = 0
  MsgBox "导出成功！", vbOKOnly, "提示"
  xlApp.Visible = True
  Set xlApp = Nothing
  Set xlBook = Nothing
  Set xlSheet = Nothing
修改导出的行高度和字体大小。

Answer 1

Sub Macro3()
'
' Macro3 Macro
' 宏由 FtpDown 录制，时间: 2010-6-25
''
    Rows("5:7").Select
    Selection.RowHeight = 30.75
    Range("C5").Select
    With Selection.Font
        .Name = "宋体"
        .Size = 18
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
End Sub

Answer 2

高度应该是改变行高Rows("5:7").RowHeight = 30.75字体大小
Range("C5").Font.Size = 18

Answer 3

Rows("5:7").RowHeight = 30.75Range("C5").Font.Size = 18