用VBA转换文本文件日期格式问题

我用VBA 把excel文件转换为文件文件，可是转换成的文本文件中的日期格式与excel格式不对，在excel中日期格式为2008-11-8，而转换文本格式后日期格式却变为11/8/2008，麻烦高手解决一下，使用转换后的文本格式文件中的日期格式不变仍为2008-11-8。在这里先谢谢了。

 

改一段
        Selection.Copy
        Workbooks.Add (1)
        With ActiveWorkbook.ActiveSheet
            .Paste
            For Each cel In .Range(.[b2], .[b65536].End(xlUp))
                If IsDate(cel) Then cel.Value = "'" & Format(cel, "yyyy-mm-dd")
            Next
        End With
        Application.CutCopyMode = False