EXCEL 单元格式问题

duxing

下面VB语句，可以把指定单元格式定义为数值，如果我想改成指定的日期格式，列如20170815000000转换为8/15或8月15日，下面VB语句该如何改？



Func ge($xls)
   With $xls.activesheet
                $xls.ActiveSheet.Columns(1).ColumnWidth = 16
                $xls.ActiveSheet.Columns(2).ColumnWidth = 46
                $xls.ActiveSheet.Columns(3).ColumnWidth = 20
                $xls.ActiveSheet.Columns(4).ColumnWidth = 6
                $xls.ActiveSheet.Columns(5).ColumnWidth = 5
                $xls.ActiveSheet.Columns(6).ColumnWidth = 12
                $xls.ActiveSheet.Columns(7).ColumnWidth = 6;1208gai
                $xls.ActiveSheet.Columns(8).ColumnWidth = 0
                $xls.ActiveSheet.Columns(9).ColumnWidth = 5
                $xls.ActiveSheet.Columns(1).NumberFormatLocal = "0"
       $xls.ActiveSheet.Columns(4).NumberFormatLocal = "0"
        EndWith
        EndFunc

kevinch

"m/d" 或者 "m月d日"