为什么把textbox里的数据输出到Excel中总是报错“加载dll错误”

[weixin_46503551]

为什么把textbox里的数据导出到Excel中总是报错“加载dll错误”

引用

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
xlsheet.Range("E2").Value = Text4.Text
xlsheet.Range("F2").Value = Text9.Text
xlsheet.Range("G2").Value = Text10.Text
xlsheet.Range("H2").Value = Text11.Text
xlsheet.Range("I2").Value = Text12.Text
xlsheet.Range("J2").Value = Text13.Text

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