test post

chonman0320

1. Private Sub CommandButton2_Click()
   
2.     Dim xWs As Worksheet
   
3.     Dim cw, cs, csv As String
   
4.     Dim reopenwk As Workbook
   
5.     SaveToDirectory = "D:\12"
   
6.     ThisWorkbook.ActiveSheet.Copy
   
7.     xcsvFile = SaveToDirectory & "\" & ActiveSheet.Name & Format(Date, " yyyymmdd") & ".csv"
   
8.     Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, FileFormat:=xlCSV, CreateBackup:=False
   
9.     Application.ActiveWorkbook.Saved = True
   
10.     Application.ActiveWorkbook.Close
    
11. End Sub

複製代碼