用如下一段代码即可:
String ls_file_name,ls_path_name
If GetFileSaveName('保存为',ls_path_name,ls_file_name , "XLS", &
"Excel Files (*.XLS),*.XLS," + &
" TEXT Files (*.TXT), *.TXT") = 1 Then
If dw_1.SaveAsAscii(ls_path_name,"~t","") <> 1 Then
messagebox("提示","导出数据失败!")
Else
messagebox("提示","导出数据成功!")
End If
End If
当然,最好的做法呢你还是将上面代码封装代一个用户对象中去!因为这还是有一定的通用性的!