CSVデータから日付を正確に読み込めません

ユーザーフォームのテキストボックスでCSVファイルを指定し、レポート用のBookに貼付けしようとするのですが、
以下のように日付がおかしくなってしまいます。
ご教授願えませんでしょうか？

CSVデータ　　　　　　　Xlsデータ
日付（A列）　　　　　　日付（A列）
2008/4/1　　　　　　　　2001/8/4
2008/4/2　　　　　　　　2002/8/4
2008/4/3　　　　⇒　　　2003/8/4
2008/4/4　　　　　　　　2004/8/4
2008/4/5　　　　　　　　2005/8/4
（B列からQ列までは数値データとなっております。）


現在、入力しているVBAは下記のような記述です。

' "CSVデータ"をExcelで開く
Workbooks.OpenText TextBox2.Value, Local:=True
Cells.Select
Selection.Copy
Windows("Report.xls").Activate
Sheets("元データ").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows(2).Activate
ActiveWindow.Close SaveChanges:=False

No.1 回答者： nfushi 回答日時： 2008/06/04 00:20

年と月と日が入れ子になっていますね。

Excel側の書式設定はyyyy/mm/ddになっていますか？

この回答へのお礼

自己解決いたしました。
, Local:=True　記述がいつの間にか抜けておりました。

お礼日時：2008/06/05 15:32