尝试了无数遍...还是不行。已经添加了Excel16的com。
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim AppXls As Microsoft.Office.Interop.Excel.Application '声明Excel对象
Dim AppWokBook As Microsoft.Office.Interop.Excel.Workbook '声明工作簿对象
Dim AppSheet As New Microsoft.Office.Interop.Excel.Worksheet '声明工作表对象
AppXls = New Microsoft.Office.Interop.Excel.Application '实例化Excel对象
AppXls.Workbooks.Open("E:\SCA order\Sca Order\test\test.xls") '打开已经存在的EXCEL文件
AppXls.Visible = True '使Excel可见
End Sub