主题：[求助]导出数据保存格式问题

Dim tnames() as string = {"表D", "表C", "表A"}
Dim dlg As New SaveFileDialog 
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
 for each tname as string in tnames
     Tables(tname).SaveExcel(dlg.FileName, tname)
 next
End If

 

我把这句dlg.Filter= "Excel文件|*.xls" 改为dlg.Filter= "Excel文件|*.xls|Access文件|*.mdb" ，

那这句Tables(tname).SaveExcel(dlg.FileName, tname)如何修改，则可以选择保存格式？

 抱歉，Table没有保存.mdb的方法。

http://www.foxtable.com/help/topics/0683.htm

我想一次性把所有表的数据全部导出，可以选择保存格式，excel超过6万多条就会溢出，所以access很有必要，一张一张表导，对用户而言操作不方便。

用这个啊：

 

http://www.foxtable.com/help/topics/0683.htm