DataTable导出数据至excel

Dim excelApp,excelSheet,fso,rount,ccount
Set excelApp = CreateObject("Excel.Application") '创建Excel Application对象
Set excelSheet =  CreateObject("Excel.sheet") '创建Excel Sheet对象
Set fso = CreateObject("scrīpting.FileSystemObject") '创建FileSystemObject对象
filename = "C:\Documents and Settings\yuan wen\Desktop\newcopy\QTP\text.xls" '设定文件路径
excelApp.Visible = true 'excel可见
rcount=DataTable.GetSheet("Global").GetRowCount
ccount=DataTable.GetSheet("Global").GetParameterCount'获取DataTabel中的列数
'--------------------------------------------------------------------------------------------------------------------------------
 Function output_loop(r,c)
   For i =1 to r
  For s=1 to c
        DataTable.GetSheet(dtGlobalSheet).SetCurrentRow(i)'设置当前行，方便循环
        excelSheet.ActiveSheet.Cells(i,s).Value = DataTable(s,dtGlobalSheet)  '循环读取DataTable1~s列当前行的值
  Next
  Next
End Function
'---------------------------------------------------------------------------------------------------------------------------
If fso.FileExists(filename) Then '检测文件是否存在，如果存在就删除文件然后写入数据
    print "text.xls 文件已经存在"
    fso.DeleteFile(filename)
    output_loop rcount,ccount
Else  '如果文件不存在，直接写入数据
   print "text.xls 文件不存在"
   output_loop rcount,ccount
End If
excelSheet.SaveAs filename '将数据保存到文件中
excelApp.Quit  '退出Excel
Set excelSheet = nothing '将sheet对象置为空
Set fso = nothing '将fso对象置为空

最后发现有个超简单的方法可以将DataTable导入导出，那就是DataTable中单击鼠标右键，选择File，然后……看见了吧。

另外，还有语句如下：

DataTable.ExportSheet "C:\Documents and Settings\yuan wen\Desktop\newcopy\QTP\text.xls","Global"
DataTable.ImportSheet "C:\Documents and Settings\yuan wen\Desktop\newcopy\QTP\text.xls","Global","Action1"

这个样子也是可以滴。

条条大路通罗马阿~