ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

test post

test post

  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
½Æ»s¥N½X
¼Ó¥D¼ö©«

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD