求excel保存csv 用VBA实现！！！

[activetblack]

比如 在excel上做个button按下后 可以把 本页的数据 保存为想要CSV在弹出 保存框 现在就不知道 用VBA如何弹出保存框 谢谢

[ZenRoi]

用Application.GetSaveAsFilename來選擇保存路徑及文件名。

[activetblack]

不能保存 只能看路径和名字

[ZenRoi]

取得路徑和文件名後，用SaveAs即能完成保存。

[ZenRoi]

Sub SaveAsCs()
    Dim Pth$

    Pth = Application.GetSaveAsFilename
    ThisWorkbook.SaveAs Filename:=Pth, FileFormat:=xlCSV
End Sub

[ACMAIN_CHM]

ThisWorkbook.SaveAs Filename:=Pth, FileFormat:=xlCSV

楼上正解


QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》

[不想低调]

.楼主的话怎么有一句，没一句的

[line_us]

[Quote=引用 4 楼 alzeng 的回复:]
VB code

Sub SaveAsCs()
Dim Pth$

Pth = Application.GetSaveAsFilename
ThisWorkbook.SaveAs Filename:=Pth, FileFormat:=xlCSV
End Sub
[/Quote]
正在找代码