Question

我正在尝试保存CSV文件，然后可以将其保存在任何用户的桌面上。我已经读了很多线程，而且似乎越来越接近，但是没有正确的组合！

下面的代码完全符合我的要求...除了将其另存为PDF而不是CSV之外，因为它使用了exportasfixedformat对象。

我认为我需要对CSV使用“另存为”，但是无论如何使用用户登录，我都无法弄清楚如何混入“ userprofile”命令进行保存。

[
  {
    "id" : "123",
    "data" : [20, 40, 10, 20, 10]
  },
  {
    "id" : "456",
    "data" : [10, 20, 20, 30, 20]    
  },
  {
    "id" : "789",
    "data" : [25, 35, 5, 10, 25]
  }
]

Answer 1

这应该有效。经过测试

Sub SaveCSVtoDesktop()

ActiveWorkbook.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & _
Application.PathSeparator & "Your File Name" & ".csv", FileFormat:=xlCSV, CreateBackup:=False

End Sub

将CSV保存到桌面，无论用户如何

1 个答案: