求教一个VBA问题

吴建龙　发表于：2012-04-24 14:20:21 　

ACCESS窗体中做了一个导入的按钮，运行时出现：“方法’fILEdiALOG’作用于对象’_Application’时失败”。请问是什么原因怎么解决

西出阳关无故人发表于：2012-04-25 13:32:59

测试一下：

Private Sub 添加记录_Click()
'Set fd = Application.FileDialog(msoFileDialogFilePicker)
With Application.FileDialog(3)
.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, "child_form", Me.路径.Value, True
Me![child_form].SourceObject = "child_form"
Else
Debug.Print "用户取消"
End If

End With
End Sub

Top

吴建龙发表于：2012-05-21 10:11:33

太感谢了，不知道说什么好

Top

吴建龙发表于：2012-05-21 10:24:47

大哥运行的时候还有个问题，选择文件后点导入出现如下：运行时错误‘424’要求对象

点调式后箭头指在Me.路径.Value = CStr(fd.SelectedItems.Item(1))
这条上，请大哥帮我改下，小弟谢谢了

Top

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

Access交流中心

求教一个VBA问题