-excel vba 数据格式,vba读取其他excel数据

1、一些excel认识的时间格e68a84e8a2ade79fa5e98193331式，不管原来是哪一种，更改格式是没问题的。
2、原来不是时间格式的日期记录，例如14/6/2010是文本型的，要更改前，必须先要知道各种时间格式，如“日/月/年”，这中间分隔符及顺序，2位年份还是4位年份等等必须要一一罗列，并且要不存在歧义才行。比如"06/07/08"，在不说明下，你不可能知道是指哪一天，有六种可能。
3、有的格式是文本类的，如yes、ok、done、N/A。这种需要改为代码中任意指定的日期，如将单元格中的done直接改为某年某月某天；——那就更搞不明白啦。这些跟日期根本无关啊。

Option Explicit

Sub 宏1()
'
' 宏1 Macro
' user 记录的宏 2010-7-21
'
'
Dim s
s = Selection.Text
If InStr(s, "/") > 0 Then Selection = Format(s, "yyyy-mm-dd")
If InStr("yes ok down N/A", s) > 0 Then Selection = Format("2010-5-6", "dd/mm/yyyy")
Selection.NumberFormatLocal = "yyyy-mm-dd"
With Selection.Font
.Name = "Times New Roman"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub