程序代码：

Private Sub CmdExport_Click()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet


 Set xlapp = CreateObject("excel.application")

 Set xlbook = xlapp.Workbooks.Add

 xlapp.Visible = True


 Set xlsheet = xlbook.Worksheets("风机参数")


 xlsheet.Cells(1, 1) = "机号No."

 xlsheet.Cells(1, 2) = "转动方式."

 xlsheet.Range("A2").Value = Text5.Text

 xlsheet.Range("B2").Value = Text6.Text

 xlsheet.Range("C2").Value = Text7.Text

 xlsheet.Range("D2").Value = Text3.Text


 

 Set xlsheet = Nothing

 Set xlbook = Nothing

 xlapp.Quit

 Set xlapp = Nothing
End Sub