如何设计 Excel导入数据表 按钮

syoan

用了好久的默认工具栏导入按钮，联想到，有没有办法在窗体上设计一个“导入数据表”按钮，按下之后提示来源路径，用来导入Excel文件。

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

求教高人！

Henry D. Sy

1. Dim DiaFs As FileDialog
   
2.     Set DiaFs = Application.FileDialog(msoFileDialogFilePicker)
   
3.     DiaFs.AllowMultiSelect = False
   
4.     DiaFs.Show
   
5.     Me.Text1 = DiaFs.SelectedItems(1)
   
6.     If DiaFs.SelectedItems.Count > 0 Then
   
7.         Me.Text1 = DiaFs.SelectedItems(1)
   
8.     End If
   
9.     DoCmd.TransferSpreadsheet acImport, , "TableA", Me.Text1

复制代码

syoan

谢谢斑竹！学习、测试中...

syoan

2# Henry D. Sy

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

Bettyaccess

版主本人小白，在努力学习中。

wuwu200222

学习