Dim dlg As New SaveFileDialog dlg.Filter= "Excel文件|*.xls" If dlg.ShowDialog = DialogResult.Ok Then Dim ex As New Exporter ex.SourceTableName = "上货明细" ex.filepath = dlg.FileName ex.Format = "Excel"
ex.Filter=Tables("做货_Table1").Filter ex.Export() MessageBox.Show("導出完畢!", "提示") End If
加好友 
发短信
Post By：2013/11/16 17:09:00 [显示全部帖子]
