各位大神們好，
我，只是一個小會計，本應該好好算賬去的但是目前老板們天天要求我們自動化
，從小就害怕計算機編程的我也無奈加入了程式媛的行列。現在有一個特別簡單的需求,看看哪個大神能指點一二，小女子在此多謝了
！1. 在sheet 1中添加一個控制元件“生成csv”；
2. 點擊控制元件“生成csv”就可以讓sheet A中的資料另外生成一個CSV檔案；
3. 生成新的CSV檔案后sheet A和sheet B的內容絲毫不受影響
希望能得到大神哥哥們的回復，因為做不出來下禮拜就要被拉去祭天了……
uj5u.com熱心網友回復：
Sub gen_csv()ThisWorkbook.ActiveSheet.SaveAs ThisWorkbook.ActiveSheet.Name + ".csv", 6
End Sub
是不是很簡單
uj5u.com熱心網友回復：
好用，記得給分哦 謝謝啦uj5u.com熱心網友回復：
小哥哥我試試哈~多謝多謝！uj5u.com熱心網友回復：
別忘了 把含宏的檔案改成xlsm 或者xls格式啊uj5u.com熱心網友回復：
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
對了，使用之前，最好做個備份。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/33169.html
上一篇：pyqt5做的界面，在界面上點擊按鈕，然后讓一個指定位置的程式獨立在后臺執行，請問能做到嗎？求各位哥哥姐姐們幫助一下