通过路径选择对话框导入数据的示例库

蓝天8390

用宏导入Excel时，在设计时就要确定好路径和文件名，有时使用起来的确不太方便。
根据todaynew网友提供的贴子上传一个“通过路径选择对话框”导入数据的示例，供参考。

todaynew

用宏导入Excel时，在设计时就要确定好路径和文件名，有时使用起来的确不太方便。
根据todaynew网友提供的贴子上传一个“通过路径选择对话框”导入数据的示例，供参考。
蓝天8390 发表于 2009-2-9 18:39

todaynew

todaynew 发表于 2009-2-9 18:45

套一个if可能好些：

Private Sub Command8_Click()
    If Not (IsNull(Me.路径)) Then
        DoCmd.TransferSpreadsheet acImport, , "导入表", Me.路径, True, ""
        MsgBox "已导入到导入表中"
    End If
End Sub

蓝天8390

谢谢热心相助!

蓝天8390

真是谢谢您,加入了您的代码果然更加完善了.

蓝天8390

其实我不懂代码,只是把别人的拿来依样画葫芦而已,真感谢这里众多无私奉献的版主和网友!在这里学到了好多自己无法解决的技巧,真是收益非浅．

todaynew

其实我不懂代码,只是把别人的拿来依样画葫芦而已,真感谢这里众多无私奉献的版主和网友!在这里学到了好多自己无法解决的技巧,真是收益非浅．
蓝天8390 发表于 2009-2-9 19:22

那些代码我也不懂，也是网上找的，呵呵。

ycxchen

是不是API的？要精通它要花相当长时间的

jackysu78

关于导入实现的话，问题更多呀。
1、建议可以完善可以选择目的表
2、导入的模式，即是否导入重复记录的控制
3、导入目的表前最好是可以显示导入控制检查结果

gzkrmch

不错,顶一个