[求助] 用代码如何导出到EXCEL表? Post By：2020/2/17 17:52:00 [只看该作者]
各位大神:
下面的代码,只是保存了一个表,如果有多个表,岂不是要保存多次?
For Each dt As DataTable In DataTables
DataTables(dt.name).save(True) Dim ex As New Exporter ex.SourceTableName = dt.name '指定导出表 ex.FilePath = "e:\car\CAR0208.xls" '指定目标文件 If FileSys.FileExists( "e:\car\CAR0208.xls" ) = True FileSys.DeleteFile( "e:\car\CAR0208.xls" ) End If ex.Format = "Excel" '导出格式为Excel ex.Export()
加好友 
发短信
Post By：2020/2/17 17:52:00 [只看该作者]
