不好意思，这几天工作的事多！
基本是这样子的了，就是还有点问题问下@煮江品茶
1、数据不是sheet1工作表中好设置不受影响
2、是否可把“对方交易商编号”也作为个筛选项
3、之前附件里的毕竟因为一些原因量不大，但实际是每张表起码有2、3万行，甚至是有5万行，这是不是就不好弄了
如第三项有影响的话就无需再改了，就给我下次学习练手吧
问题1解答：
（1）写一个自定义函数：
Function GetSheetName(filepath As String, n As Integer) As String
'功能：返回标签名称
'引用：Mocrosoft ADO Ext 2.8 for DDL and Securty
'参数：filepath--Excel文件名，n--标签序号（从1开始）
Dim conn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim sheetname As String
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath & ";Extended Properties=Excel 8.0;"
conn.Open
Set cat.ActiveConnection = conn
sheetname = cat.Tables(n - 1).Name
Set cat = Nothing
Set cnn = Nothing
GetSheetName = sheetname
End Function
（2）在导入按钮的单击事件中修改ssql=...语句如下：
ssql="select * from [" & GetSheetName(filepath, 1) & "] in '" & filepath & "'[EXCEL 8.0;]"
问题2解答：
（1）在窗体上增加一个名曰：对方交易商编号的文本框
（2）在筛选的单击事件中增加如下代码：
if isnull(me.对方交易商编号.value)=false then
wh=wh & " and 对方交易商编号='" & me.对方交易商编号.value & "'"
end if
问题3解答：
处理方法与多少条记录没球关系，只要你的Excel表能存下，Access也能存下就行。
点击下载此附件
@