Office中国论坛/Access中国论坛

标题: roych版主，求教个问题 [打印本页]

作者: allen_peng 时间: 2011-11-18 13:33
标题: roych版主，求教个问题
本帖最后由 allen_peng 于 2011-11-18 14:06 编辑

我用您提供的自定义导入程序，复制到我的数据库中运行，就出现[attach]47387[/attach]。请问是什么原因？
Private Sub 导入文件_Click()
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Clear
.Filters.Add "Excel电子表格(*.xls)", "*.xls"
.Title = "请浏览文件"
.ButtonName = "打开"
.InitialView = msoFileDialogViewDetails
If .Show = -1 Then
Me.路径.Value = CStr(fd.SelectedItems.ITEM(1))
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "临时表", Me.路径.Value, True
Me![临时表].SourceObject = "临时表"
Else
Debug.Print "用户取消"
End If
End With
End Sub

作者: andymark 时间: 2011-11-18 14:03
请引用MICROSOFT OFFICE 11 OBJECT LIBRARY

作者: allen_peng 时间: 2011-11-18 14:07
不是库的问题，刚刚的问题已经解决了，现在有出现上述问题了

作者: roych 时间: 2011-11-18 23:30
O(∩_∩)O~被点名了。我之前给的实例中，里面有一个子窗体的（名称是临时表），hoho，我再次传个附件，你研究下里面的设置吧。
主要做法是，通过文件拾取器打开文件（实际上并没有打开）以获取路径，把数据导入到临时表，然后设置子窗体的数据源为临时表（目的在于导入临时表时，可以让用户查看是否有错误数据，可以先处理临时表再追加），最后再由用户确定数据的追加，并清空临时表等等。
[attach]47399[/attach]

作者: allen_peng 时间: 2011-11-21 08:42

roych 发表于 2011-11-18 23:30
O(∩_∩)O~被点名了。我之前给的实例中，里面有一个子窗体的（名称是临时表），hoho，我再次传个附件，你研 ...

按照您的方法，为何我就出现作用于对象‘-Applicion’时失败的错误呢，请指点

作者: roych 时间: 2011-11-23 19:14
可能是因为库版本的不同而导致的。弹出错误后，停止退出，按下Alt+F11返回到VBE界面，点击工具\引用，看看有没有Missing（丢失）的库。如果有，请取消引用，重新引用低版本的库（例如Office 10的库）再试试。
如果还不行，加上这句试试看:
Dim fd as Application.FileDialog

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)