Office中国论坛/Access中国论坛

标题: 如何设计 Excel导入数据表按钮 [打印本页]

作者: syoan 时间: 2009-4-16 15:47
标题: 如何设计 Excel导入数据表按钮
用了好久的默认工具栏导入按钮，联想到，有没有办法在窗体上设计一个“导入数据表”按钮，按下之后提示来源路径，用来导入Excel文件。

以前我做的导入都是限制路径的，比如C:/Documents/BB.xls，不太好用。

求教高人！

作者: Henry D. Sy 时间: 2009-4-16 16:17

Dim DiaFs As FileDialog
Set DiaFs = Application.FileDialog(msoFileDialogFilePicker)
DiaFs.AllowMultiSelect = False
DiaFs.Show
Me.Text1 = DiaFs.SelectedItems(1)
If DiaFs.SelectedItems.Count > 0 Then
Me.Text1 = DiaFs.SelectedItems(1)
End If
DoCmd.TransferSpreadsheet acImport, , "TableA", Me.Text1

复制代码

作者: syoan 时间: 2009-4-17 10:57
谢谢斑竹！学习、测试中...

作者: syoan 时间: 2009-4-17 12:59
2# Henry D. Sy

版主，请问第9行 DoCmd.TransferSpreadsheet acImport, , "TableA", Me.Text1
该怎么定义表名称为不固定名称？而不是"TableA" 。
还有就是重复导入的时候怎么覆盖原表？

作者: Bettyaccess 时间: 2015-8-23 13:10
版主本人小白，在努力学习中。

作者: wuwu200222 时间: 2020-4-28 11:20
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)