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) nextEnd If
我把这句dlg.Filter= "Excel文件|*.xls" 改为dlg.Filter= "Excel文件|*.xls|Access文件|*.mdb" ,
那这句Tables(tname).SaveExcel(dlg.FileName, tname)如何修改,则可以选择保存格式?