bonlifeã§ãã大éã®Excelãã¡ã¤ã«ãCSVã«ããå¿ è¦ãåºã¦ããã®ã§ãæ £ããªãVBScriptãæ¸ãã¦ã¿ã¾ããããæ¸ããå¾ã«ã°ã°ãããã»ã¼åãã¹ã¯ãªãããããã¾ãã(MS-Excelãã¡ã¤ã«ãCSVå½¢å¼ã§ä¿åããWSHã¹ã¯ãªãã)ããæ°ã«ããªããã¨ã«ãã¾ãï¼ ã«ã¬ã³ããã©ã«ãã®Excelãã¡ã¤ã«ã®ç¹å®ã®ã·ã¼ããCSVã«å¤æ (excelToCsv.vbs) Option Explicit ' On Error Resume Next ' å¤æ°ã®å®£è¨ Dim Msg Dim objFS Dim objFolder Dim objFiles Dim objFile Dim objExcel Dim targetSheetNum ' CSVã«å¤æããã·ã¼ããæå® targetSheetNum = 2 ' éå§å¦ç Msg = MsgBox("ã¯ã¼ããã¼ããã¼ï¼(^o^)ï¾", vbYes
{{#tags}}- {{label}}
{{/tags}}