| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 644 人关注过本帖
标题:求教:使用Application.filedialog报错
只看楼主 加入收藏
zyxyklh
Rank: 1
来 自:学校
等 级:新手上路
帖 子:31
专家分:0
注 册:2008-7-8
结帖率:66.67%
收藏
已结贴  问题点数:20 回复次数:3 
求教:使用Application.filedialog报错
Dim fDialog As Office.FileDialog   '从这里就报错
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
  .AllowMultiSelect = False
  .Filters.Clear
  .Filters.Add "Access files", "*.mdb"
  .Filters.Add "All files", "*.*"
  If .Show Then
    DoCmd.TransferDatabase acImport, "microsoft Access", .SelectedItems(1), acTable, "NotTch", "EXPORT", 0, 0
  Else
    Exit Sub
  End If
End With
MsgBox "导入成功!"
搜索更多相关主题的帖子: End Add Access 报错 Application 
2023-05-13 17:47
zyxyklh
Rank: 1
来 自:学校
等 级:新手上路
帖 子:31
专家分:0
注 册:2008-7-8
收藏
得分:0 
这段代码是我从另一个项目里复制来的,在另一个项目里运行非常顺利,打开文件对话框,选择文件……
但是来到这个项目后,关于filedialog的第一行代码就出错,好诡异
是不是使用filedialog之前要在VBA编缉窗口中的“工具”-“引用”中引用点什么?
2023-05-13 23:45
厨师王德榜
Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18
等 级:贵宾
威 望:199
帖 子:995
专家分:4966
注 册:2013-2-16
收藏
得分:20 
添加引用 ,我的电脑上是14.0
Microsoft Office 14.0 Object Libray
你的根据自己的实际版本来 添加引用 .
2023-05-15 10:47
zyxyklh
Rank: 1
来 自:学校
等 级:新手上路
帖 子:31
专家分:0
注 册:2008-7-8
收藏
得分:0 
谢谢,我试试!
2023-05-15 13:46
快速回复:求教:使用Application.filedialog报错
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021275 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved