为什么以下的代码在原来的程序就可以使用，但是到了我的程序就没法了

马生　发表于：2018-06-14 17:37:05 　

Function OpenE(Ename As String) As Workbook
'功能说明:打开Excle文件。
'参数：Ename：目标文件名
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Set xlBook = xlApp.Workbooks.Open(Ename)
xlApp.Application.Visible = False
xlBook.Application.Sheets(1).Select
Set OpenE = xlBook
End Function

'获取EXCEL工作表名
Function GetShtname(MyWorkbook As Workbook) As String
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim str As String
Set xlBook = MyWorkbook
For i = 1 To xlBook.Sheets.Count
str = str & xlBook.Sheets(i).name & ";"
Next
GetShtname = str
xlBook.Close
xlApp.Quit
End Function

为毛一运行就提示 Function OpenE(Ename As String) As Workbook **

用户定义类型未定义

以上代码是从其他程序中引用过来的。同时我的系统是前后的，前台一个程序后台一个数据库。

Top

仙来发表于：2018-06-14 20:23:36

比较一下引用，可能是Excel 未引用。http://www.accessoft.com/blog/article-show.asp?userid=30269&Id=16726

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

为什么以下的代码在原来的程序就可以使用，但是到了我的程序就没法了