roych版主，求教个问题

allen_peng

我用您提供的自定义导入程序，复制到我的数据库中运行，就出现。请问是什么原因？
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

roych

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

allen_peng

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

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

roych

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

allen_peng

不是库的问题，刚刚的问题已经解决了，现在有出现上述问题了

andymark

请引用MICROSOFT OFFICE 11 OBJECT LIBRARY