标题：11.5版本中这这段代码好象不能运行吧

1楼

shixia 发表于：2010/11/16 20:39:00

Dim flg As New SaveExcelFlags
flg.RowNumber = True
flg.CellStyle = True
Tables("订单").SaveExcel("C:\data\test.xls","订单",flg)

如果运行后就会出现错误

2楼

czy 发表于：2010/11/16 22:16:00

以前是不是这样的不记得了。

先用DirectoryExists判断一下路径中的目录是否存在，如果不存在CreateDirectory创建。不过这个活最好老六来干。

3楼

mr725 发表于：2010/11/17 0:30:00

以前也是这样要手工先增加一个文件夹data的。

4楼

狐狸爸爸 发表于：2010/11/17 8:14:00

呵呵，我改改

共4 条记录, 每页显示 10 条, 页签: [1]