如何用VBA让指定的EXCEL Sheet生成一个CSV文件

[KiaraCer]

各位大神们好，

我，只是一个小会计，本应该好好算账去的但是目前老板们天天要求我们自动化，从小就害怕计算机编程的我也无奈加入了程序媛的行列。现在有一个特别简单的需求,看看哪个大神能指点一二，小女子在此多谢了！

1. 在sheet 1中添加一个控件“生成csv”；



2. 点击控件“生成csv”就可以让sheet A中的数据另外生成一个CSV文件；


3. 生成新的CSV文件后sheet A和sheet B的内容丝毫不受影响

希望能得到大神哥哥们的回复，因为做不出来下礼拜就要被拉去祭天了……

[TerraJuly]

Sub gen_csv()
ThisWorkbook.ActiveSheet.SaveAs ThisWorkbook.ActiveSheet.Name + ".csv", 6
End Sub

是不是很简单

[TerraJuly]

好用，记得给分哦 谢谢啦

[KiaraCer]

小哥哥我试试哈~多谢多谢！

[TerraJuly]

别忘了 把含宏的文件改成xlsm 或者xls格式啊

[TerraJuly]

@nyfln1227 不用 这个不是真的保存源文件，只是告诉程序关闭的时候不用提示我保存，源文件不会动的

[nyfln1227]

@TerraJuly ThisWorkbook.Saved = True 这句是不是应该放在SaveAs的前面？要不原文件没被保存？

[TerraJuly]

hi，之前的回复，太简单了，估计使用不方便，我更新了下，可能更好用点。
Sub gen_csv()
Dim cw, cs, csv As String
Dim reopenwk As Workbook
cw = ThisWorkbook.FullName
cs = ThisWorkbook.ActiveSheet.Name
csv = ThisWorkbook.Path + "\" + ThisWorkbook.ActiveSheet.Name + ".csv"
ThisWorkbook.ActiveSheet.SaveAs csv, 6
ThisWorkbook.Saved = True
Set reopenwk = Workbooks.Open(cw)
reopenwk.Worksheets(cs).Activate
ThisWorkbook.Close
End Sub

对了，使用之前，最好做个备份。