希望能对你有所帮助
Dim Exl As Object
Dim ExlWork As Object
Dim ExlSheet As Object
Set Exl = CreateObject("Excel.Application") '创建Excel对象
Set ExlWork = Exl.Workbooks.Add             '新建一个Excel工作本
Set ExlSheet = ExlWork.Worksheets(1)        '指定当前操作的工作表
ExlSheet.Range("A1").Value2 = "ok"          '按名称选择操作
ExlSheet.cells(1, 2) = "ok1"                '按行和列操作
Exl.Visible = True                          '显示Excel表格
Set ExlSheet = Nothing
Set ExlWork = Nothing
Set Exl = Nothing