<em>VB.net</em> 创建EXCEL的问题

====================================================================
网页错误详细信息
用户代理: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)
时间戳: Wed, 29 Apr 2020 09:10:19 UTC
消息: ActiveX 部件不能创建对象: 'Excel.Application'
行: 17
字符: 3
代码: 0
URI: ××××××××××××××××××××××××××××××××××××
====================================================================
ActiveX

具体方法如下：
　　1、打开IE浏览器之后，点击右上角的“设置”选项，在弹出的下拉菜单之中，选择“Internet选项”；
2、选择完成之后，进入Internet选项设置界面，在界面之中点击“安全”选项，在出现的对e69da5e6ba90e79fa5e98193364话框中可以看到“Internet”和“本地Internet”；
3、“Internet”主要针对的浏览网络上面的网址，本地Internet考虑到本地受信任的网址。选择你要选择的，然后点击下面的“自定义安全级别”；
4、在弹出的对话框中，点击“重置自定义设置”后的重置为对话框，将含有ActiveX选项的选择开启即可 ； ps:我的就是这么解决的，前提是excle安装没问题。

项目——添加引用——com——microsoft excel 11.0 object library

Dim Xls As Excel.Application = New Excel.Application '定义excel应用e799bee5baa6e58685e5aeb9365程序
Dim Xlsbook As Excel.Workbook '定义工作簿
Dim Xlssheet As Excel.Worksheet '定义工作表

Xls.Visible = True '显示excel 程序
Xlsbook = Xls.Application.Workbooks.Add '添加新工作簿 或exbook=exapp.workbooks.open("路径\文件名")'打开已存在工作薄
Xlssheet = Xlsbook.Sheets(1) '第1个工作表的控制句柄

MsgBox("EXCEL档案创建完毕！")
Xlssheet.Cells(1, 1) = "这是一个创建EXCEL的示例"
Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
Sdlg.FileName = "*.xls" '保存对话框的默认文件名
Sdlg.Filter = "EXCEL档案(*.Xls)|*.Xls" '过滤器设置
If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下
Xlsbook.SaveAs(Sdlg.FileName) '保存文件
End If
Xlssheet = Nothing '释放资源
Xlsbook.Close() '关闭工作簿
Xlsbook = Nothing '释放资源
Xls.Quit() '退出excel应用程序
Xls = Nothing
Dim APP_Excel As Object
Dim Excel_Workbook As Object '定义两个对象，这样的好百处是避免了度Excel的引用（如果你直接引用，在别的客知户机上如果EXCEL版本较道低则会出错）
APP_Excel = CreateObject("Excel.Application") '创建Excel应用程序
Excel_Workbook =APP_Excel.workbooks.add() '生成新工作簿专
APP_Excel.visible = True

'如果你实在要坚持你的用法属就在引用后：Imports Microsoft.Office.Interop

1、导入命名空间用使用：Imports Microsoft.Office.Interop
可以创建 Excel.Application
如下：
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim app As New Excel.Application
End Sub
End Class
2、导入命名空间用使用：mports Microsoft.Office.Interop.Excel
可以直接创建Application
如下：
Imports Microsoft.Office.Interop.Excel
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim app As New Application
End Sub
End Class
1、2都可以操作excel，2的写法更7a686964616fe59b9ee7ad94361简洁。