excel vba 函数

发布网友发布时间：2022-04-21 19:28

共3个回答

热心网友时间：2023-09-16 21:23

我是一楼,你复制的时候要先加上SUB(),如下,

Sub test()
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\" & Application.UserName & "\Desktop\" & ActiveSheet.Range("c1").Value & ".csv", FileFormat:=xlCSV, _
CreateBackup:=False
end sub

如果不行可能如haifeistar所言, 你就用他/她的试试,不过记得加SUB.

热心网友时间：2023-09-16 21:24

问题可能出在 Application.UserName

试试：
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & _
ActiveSheet.Range("c1").Value & ".csv", FileFormat:=xlCSV, _
CreateBackup:=False

热心网友时间：2023-09-16 21:24

一楼的建议试试看！

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com