如果Datatable数据来源于数据库，可以：
Dim sql$ = "SELECT * INTO [Excel 8.0;database=" & sTargetPath & "fileName.xls" & "].[Sheet1] FROM tableName"Dim cmd As OleDbCommand = New OleDbCommand(sql, con)cmd.ExecuteNonQuery()
