Office中国论坛/Access中国论坛

标题: Access有无在选择文件的对话框？ [打印本页]
作者: secondonsite    时间: 2012-7-28 22:40
标题: Access有无在选择文件的对话框？
想要从Excel导入到Access数据，但首先要调用选择文件的对话框。请问Access有吗？是怎样解决的？谢谢！
作者: Henry D. Sy    时间: 2012-7-29 09:10
需要引用
microsoft office 11 object library
作者: andymark    时间: 2012-7-29 13:56
需引用 microsoft office 11 object library

  2.    Dim fDialog As Office.FileDialog
  3.    Dim varFile As Variant
  4.    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
  5.    With fDialog
  6.       .AllowMultiSelect = False
  7.       .Title = "请请选择文件"
  8.       .Filters.Clear
  9.       If .Show = True Then
  10.          For Each varFile In .SelectedItems
  11.             Me.TxtFolderPath = varFile
  12.          Next
  13.       End If
  14.    End With
复制代码
作者: secondonsite    时间: 2012-7-29 15:36
导入部分怎么弄呀？谢谢，在指教下！比如选择Excel的固定区域的数据导入Access已有的一个表中的固定的几个字段中。再次谢谢！
作者: todaynew    时间: 2012-7-29 17:08
secondonsite 发表于 2012-7-29 15:36
导入部分怎么弄呀？谢谢，在指教下！比如选择Excel的固定区域的数据导入Access已有的一个表中的固定的几个字 ...

http://www.office-cn.net/forum.p ... B%C8%CB%D6%AE%B8%A3
作者: secondonsite    时间: 2012-7-29 17:32
谢谢TodayNew，我先研读一下这个实例。
作者: Henry D. Sy    时间: 2012-7-29 18:09
直接insert即可



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3