611
社区成员
发帖
与我相关
我的任务
分享请问高手怎么把crosstab中的列名导出到excel中？解决问题，马上结贴。
怎么把crosstab中的列名导出到excel中，而不是compute**_1之类的东东？
...全文
请发表友善的回复…
发表回复
china_dot_com 2003-09-27
- 打赏
- 举报
gz
sendtocaryl 2003-09-27
- 打赏
- 举报
adeva(埃得娃) ，eminena(0.3V 力大) 兄：saveas导出的都是列名为computer_003_1,computer_003_2,computer_003_3之类的，不是在datawindow上显示的列名
padfan 2003-09-27
- 打赏
- 举报
adeva老兄你的代码，好像不行啊！我试用了一下，导出的文件是0字节的！怎么回事情？
eminena 2003-09-27
- 打赏
- 举报
用 saveas() 函数
adeva 2003-09-27
- 打赏
- 举报
将你的数据窗口整个导成XLS文件不就行了：
如下代码
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
f_show_error('导出数据失败!')
Else
f_show_error('数据导出成功!')
End If
End If
如下代码
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
f_show_error('导出数据失败!')
Else
f_show_error('数据导出成功!')
End If
End If
