我想用VBA写一个宏，在一个新的工作簿中（即下面代码中的wb2）做一个按钮，点击此按钮可以处理一个CSV文件（即下面代码中的wb1），主要是根据改CSV的A列（日期列）来进行某些行的选择性删除，然后再保存，关闭。看起来不是很难，但是我出问题，因为这个CSV文件的A列是一个日期列，操作之前的日期格式是2011/5/1.......2011/5/31。 但是我用宏对它进行行删除操作并保存关闭之后，再打开这个CSV文件，发现A列的日期格式变了，变成5/1/2011.....5/31/2011了。怎么回事啊？有类似经历的朋友没？帮帮忙？
我的VBA代码如下：
privatesub A()
dim wb1 as workbook '(csv文件对应的workbook)
dim wb2 as workbook
dim s1 as string '(csv文件A列的日期)
dim s2 as string '（wb1上面输入的日期）
set wb2 = thisworkbook
set wb1 = workbooks.open(filename:="F:\123.csv")
max = wb1.sheet(1).Range("A65536").end(xlup).row
For i = max to 1 step-1
'这里分别给s1和s2赋值
if s2s1 then
wb1.sheets(1).Rows(i).select
selection.delete
end if
next
wb1.save
wb1.close
end
