程序代码：

Set xlsExcel = Createxlsect("Excel.Application")
xlsExcel.Visible = False
Set xlsWorkbook = xlsExcel.Workbooks.Open("C:\date.xls")
Set xlsWorksheet = xlsWorkbook.Worksheets(1)
xlsWorksheet.Cells(2, 1) = "标题1"   '第二行第一列的标题为 标题1
xlsWorksheet.Cells(2, 2) = "标题2"   '第二行第二列的标题为 标题2
xlsWorksheet.Cells(2, 3) = "标题3"   '第二行第三列的标题为 标题3
'............................
xlsExcel.Quit
Set xlsExcel = Nothing
Set xlsWorkbook = Nothing
Set xlsWorksheet = Nothing

程序代码：

Sub 宏2()
'
' 宏2 宏
'

'
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range( _
        "A5:A69"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal     '排序关键词，升降序
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A4:N69")    '排序区域设定
        .Header = xlYes              '该区域内是否包含标题
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[此贴子已经被作者于2017-8-8 18:06编辑过]