Private Sub C1_Click()

    Dim objExcel As Excel.Application
    Dim objWorkBook As Excel.Workbook
   
    Set objExcel = CreateObject("Excel.Application")
   

    Set objWorkBook = objExcel.Workbooks.Add()
    objExcel.Visible = True
   
    '设置活动工作表
    Dim objSheet As Excel.Worksheet
    Set objSheet = objExcel.Worksheets("sheet1")
    objSheet.Cells(1, 1) = "mather" '对单元格赋值
    objWorkBook.SaveAs "D:\aa.xls" '保存
    objWorkBook.Close
    objExcel.Quit
    Set objSheet = Nothing
    Set objWorkBook = Nothing
    Set objExcel = Nothing

End Sub

工程里引用了吗

在菜单【工程】-【引用】中添加 Excel 的引用，根据你安装的 Office 不同，版本可能不同，但对于 aa.xls 应该都没有问题。

其他好像没有问题。