Access有无在选择文件的对话框？

secondonsite

想要从Excel导入到Access数据，但首先要调用选择文件的对话框。请问Access有吗？是怎样解决的？谢谢！

andymark

需引用 microsoft office 11 object library

1. 
   
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

导入部分怎么弄呀？谢谢，在指教下！比如选择Excel的固定区域的数据导入Access已有的一个表中的固定的几个字段中。再次谢谢！

todaynew

secondonsite 发表于 2012-7-29 15:36
导入部分怎么弄呀？谢谢，在指教下！比如选择Excel的固定区域的数据导入Access已有的一个表中的固定的几个字 ...

http://www.office-cn.net/forum.p ... B%C8%CB%D6%AE%B8%A3

secondonsite

谢谢TodayNew，我先研读一下这个实例。

Henry D. Sy

直接insert即可

Henry D. Sy

需要引用
microsoft office 11 object library