objxls.ActiveWorkbook.SaveAs FileName:=CurrentProject.Path & "\日报" & Format(Date, "YYYY-MM-DD") & ".

芒果王　发表于：2016-06-12 09:43:46 　

复制

能帮我看下这条语句哪错了吗？编译的时候老卡在这谢谢各位

Top

杨雪发表于：2016-06-12 10:40:28

具体是提示什么，把提示原图上传。

Top

芒果王发表于：2016-06-12 10:48:32

错误提示方法无效

Top

芒果王发表于：2016-06-12 10:48:54

感谢您的解答

Top

芒果王发表于：2016-06-12 10:51:35

快来快来

Top

煮江品茶发表于：2016-06-12 11:04:14

先不带filename参数试试。

Top

芒果王发表于：2016-06-12 14:27:23

直接去掉filename吗？？？

Top

芒果王发表于：2016-06-12 14:28:57

直接去掉filename之后还是同样的结果

Top

煮江品茶发表于：2016-06-12 14:42:05

....
set book=objxls.workbooks.add
....
book.saveas filename:="......"

Top

煮江品茶发表于：2016-06-12 14:53:10

也可把saveas换成close，除了filename参数外，同时设置SaveChanges参数为true。

Top

芒果王发表于：2016-06-12 15:21:11

将saveas改成close之后就直接关闭了不会保存

Top

芒果王发表于：2016-06-12 15:22:34

三个...分别代表什么意思呢

Top

芒果王发表于：2016-06-12 15:26:25

怎么不见了额

Top

煮江品茶发表于：2016-06-12 15:45:03

省略号表示你的那些与本问题没什么直接关系的代码呀。

意思是让你将新增的workbook保存在一个变量中，对这个变量进行另存为操作。

Top

西出阳关无故人发表于：2016-06-12 15:47:27

Dim xlApp As Excel.application

Dim xlBook As Excel.Workbook

Set xlBook = xlApp.Workbooks.add

...

xlBook.SaveAs CurrentProject.Path & "\日报(" & format（date（）,"YYYY-MM-DD"） & ").xlsx"

问题是“CurrentProject”是谁？如果是已经保存的acc程序，就应该没有问题。

Top

cspa 发表于：2016-06-12 16:31:59

objxls是这样定义的吗：Dim objxls As Object

引用全了吗？

Top

煮江品茶发表于：2016-06-12 17:31:20

引用Excel嘛，如果不引用就后期创建该对象并赋值给变量即可。

Top

cspa 发表于：2016-06-12 17:33:41

问题的原因是你另存为的文件同名，而你又不想用同名造成的。简单解决的方法是让每次保存的文件都不重名。可在文件名中增加一个时间变量改为：
objxls.ActiveWorkbook.SaveAs FileName:=CurrentProject.Path & "\" & "日报" & Format(Date, "YYYY-MM-DD") & " " & Format(Time, "hhmmss") & ".xlsx"

Top

总记录：17篇页次：1/1 9 1 :

Access交流中心

objxls.ActiveWorkbook.SaveAs FileName:=CurrentProject.Path & "\日报" & Format(Date, "YYYY-MM-DD") & ".