Sub SaveAsCs() Dim Pth$ Pth = Application.GetSaveAsFilename ThisWorkbook.SaveAs Filename:=Pth, FileFormat:=xlCSV End Sub
5,139
社区成员
17,886
社区内容
加载中
试试用AI创作助手写篇文章吧