关于调用excel的saveas问题

turejackon 2012-03-01 05:57:13

我想调用excel把一个EXCEL文件另存为dbf,但调用时提示""不能取得类 workbook 的 saveas属性...
代码如下

lcFileName='D:/_pz.XLS'
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('&lcFileName') &&打开文件
R=oExcel.SHEETS(1).UsedRange.Rows.Count &&有数据的总行数
C=oExcel.SHEETS(1).UsedRange.Columns.Count &&有数据的总列数
oExcel.Cells(R,C).Select &&选中数据
oExcel.Selection.NumberFormatLocal = "@" &&把被选定的单元格设为文本格式
oExcel.Columns.AutoFit &&让所有的列宽都自动调整
oExcel.DisplayAlerts=.F.
oExcel.ActiveWorkbook.SaveAs('D:/TEST.DBF',8) &&另存为DBF
*oExcel.ActiveWorkbook.SaveAs('D:/NewTest.xls',39) &&另存为5.0的Excel，或用43表示95/97格式
oExcel.ActiveWorkbook.saved=.T. &&不保存当前EXCEL表
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量

...全文

612 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

yjrryyx 2012-03-02

打赏
举报

回复

这就是你的问题：
http://topic.csdn.net/u/20110708/16/0ea31d98-fbe6-445f-af9e-8f21176d28b5.html

十豆三 2012-03-02

打赏
举报

回复

Windows XP（SP3），vfp9.0(SP2)，Excel 2003(SP3)测试通过。
换一台机子试试，可能是 Excel 问题，也可能是系统问题。
重装 Excel 后，还不行，就重装系统吧。

thinclient 2012-03-02

打赏
举报

回复

应该是office问题

sdta2012 2012-03-01

打赏
举报

回复

检查每行代码的位置是否有不正常的地方。

wwwwb 2012-03-01

打赏
举报

回复

office版本？

wwwwb 2012-03-01

打赏
举报

回复

用你的代码，在VFP9+EXCEL 2000下测试，没有问题

介绍MATLAB与Excel接口的方法，包括MATLAB与Excel相互调用，以及将MATLAB代码打包成Excel插件并在Excel的VBA编程环境中使用的方法。所在套餐：MATLAB核心知识点系列课程-CSDN程序员研修院，不断更新和增加课程。

解决方法：在调用SaveAs函数的前后加上如上两行代码 CApplication ExcelApp; ExcelApp.put_DisplayAlerts(FALSE); book.SaveAs(_variant_t(strSaveAsName), _variant_t((long)56), vtMissing, vtMissing, vtMissing, vtMissing, 0,vtMissing , vtMissing, vtMissing, vtMissing,vtMis...

项目目标：用JS把HTML网页上的表格另存为xls文件到指定位置问题：调用workbook.saveas("filename");时，如果filename只写文件名，如test.xls，文件可以保存，保存的地址为我的文档。如果filename是绝对路径加文件名，如C:\test.xls，则添加失败。错误原因：路径输入错误分析：错误代码：workbook.saveas

C#中Excel的Workbook对象的SaveAs方法上一篇 /下一篇 2011-07-29 18:06:03 / 个人分类：Excel 查看( 1718 ) /评论( 0 ) /评分( 0 / 0 ) Workbook 对象的 SaveAs 方法。保存对不同文件中的工作表的更改。 expression.SaveAs(FileName,FileFor

在装有office2007版的机器上调用workbook.SaveAs()默认是07格式，需要设置参数才能保存成03格式。 QList lstParam; lstParam->("c:\"); lstParam->(-4143); lstParam->(""); lstParam->(""); lstParam->(false); lstParam->(false); lstParam

2,723

社区成员

29,110

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章