vb6.0读取excel数据是总弹出无效的外在程序，跪求解决方案。为什么不能对Excel进行读取。

Question

总数弹出第一个图片，为什么？求解？是部件没有设置好？还是软件问题还是控件属性没有设置好
Dim newxls As Excel.Application ' Application对象处于Excel对象层次结构的顶层，表示 Excel自身的运行环境。
Dim newbook As Excel.Workbook 'Workbook对象直接地处于Application对象的下层，表示一个Excel工作薄文件。
Dim newsheet As Excel.Worksheet ' Worksheet对象包含于Workbook对象，表示一个Excel工作表。
Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
newxls.Visible = True '表格是可视的
Set newbook = newxls.Workbooks.Add '创建工作簿
Set newsheet = newbook.Worksheets(1) '创建工作表

Answer 1

上传一下源码看看，如果有可能的话建议用数据库

Answer 2

把函数定义从private
改为 public