想问一下VFP生成的XLS能不能保存为XLS 2003的版本或者说如何把DBF输出到模板文件中 - 编程论坛

#2

sdta2021-12-28 20:14

完全可以

#3

ls_y0412021-12-28 20:40

能不能帮助写一下代码，谢谢

#4

吹水佬2021-12-28 21:24

程序代码：

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
COPY FILE 订货模板.xls TO tmp.xls
excel = CREATEOBJECT("Excel.Application")
excel.DisplayAlerts = 0
sh = excel.WorkBooks.Open(cDefPath+"tmp.xls").Worksheets(1)
sh.Rows("5:"+TRANSFORM(sh.UsedRange.Rows.Count)).Clear
USE bjd
SCAN
    sh.cells(RECNO()+4,1).value = 零部件编码
    sh.cells(RECNO()+4,6).value = 数量
ENDSCAN
**    excel.WorkBooks.Close
**    excel.Quit
excel.Visible = 1

#5

ls_y0412021-12-28 21:31

回复 4楼吹水佬

这个保存的文件名能不能用当天的日期20211228001.XLS

#6

吹水佬2021-12-28 22:07

以下是引用ls_y041在2021-12-28 21:31:14的发言：

这个保存的文件名能不能用当天的日期20211228001.XLS

将 tmp.xls 改为 20211228001.XLS

#7

l7129531962021-12-28 22:17

#8

厨师王德榜2021-12-29 14:37

只要 CREATEOBJECT("Excel.Application") 语句能成功的返回对象,不管是什么版本,都可以操作.
如何确信  CREATEOBJECT("Excel.Application") 语句能成功的返回对象?
oxls = CREATEOBJECT("Excel.Application")
? VARTYPE(oxls)  && 如果成功,应该返回字母 "O"
? oxls.Name  && 如果成功,应该返回:Microsoft Excel

#9

大西瓜小西瓜2022-03-09 20:11

标记一下，学习了。

#10

ls_y0412022-03-10 21:30

Sub test111()
   Workbooks.Add
'   ActiveWorkbook.Save
   ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx"
   ActiveWorkbook.Close
End Sub

#11

ls_y0412022-03-10 21:31

这段代码能直接保存为xlsx 的版本吗