关于调用excel的saveas问题
我想调用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 &&释放变量
[解决办法]
这就是你的问题：
http://topic.csdn.net/u/20110708/16/0ea31d98-fbe6-445f-af9e-8f21176d28b5.html
