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

The Set xlapp=CreateObject (" excel. Application ")
The Set xlbook=xlapp. Workbooks. Add
Xlapp. Visible=True

The Set xlsheet=xlbook. Worksheets (" fan parameters ")

Xlsheet. Cells (1, 1)="number (No."
Xlsheet. Cells (1, 2)="rotating way.
"Xlsheet. Range (" A2 "). The Value=https://bbs.csdn.net/topics/Text5.Text
Xlsheet. Range (" B2 "). The Value=https://bbs.csdn.net/topics/Text6.Text
Xlsheet. Range (" C2 "). The Value=https://bbs.csdn.net/topics/Text7.Text
Xlsheet. Range (" D2 "). The Value=https://bbs.csdn.net/topics/Text3.Text
Xlsheet. Range (" E2 "). The Value=https://bbs.csdn.net/topics/Text4.Text
Xlsheet. Range (F2). The Value=https://bbs.csdn.net/topics/Text9.Text
Xlsheet. Range (" G2 "). The Value=https://bbs.csdn.net/topics/Text10.Text
Xlsheet. Range (H2). The Value=https://bbs.csdn.net/topics/Text11.Text
Xlsheet. Range (" I2 "). The Value=https://bbs.csdn.net/topics/Text12.Text
Xlsheet. Range (" second "). The Value=https://bbs.csdn.net/topics/Text13.Text

The Set xlsheet=Nothing
The Set xlbook=Nothing
Xlapp. Quit
The Set xlapp=Nothing
End Sub