VBAでメモ帳からの文字列を所定の日付形式で表示できない。

質問

VBAによりメモ帳から日付「04/06/10」という文字をエクセル(CVS形式)のセルにコピーしました。しかし、表示は、6/10/2004となります。いろいろ、試しましたが2004/6/10(2004年6月10日)とはなってくれません。また、書式設定で日付で選択してみましたが、文字列としての認識なのが全く変更されません。これについてもDateValue関数などを施したりしましたが全く無理でした。どうすればよいか教えてください。宜しくお願いいたします。

回答No.2

imogasi · ベストアンサー

メニューのデータ－外部データの取り込みから入って
テキストファイルのインポート－ファイル名の指定－
次へ－次へ－（列のデータ形式）日付のＹＭＤでやって見てください。
マクロの記録は
Sub Macro1()
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\My Documents\aa8.txt", _
Destination:=Range("A1"))
.Name = "aa8"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(5)
.Refresh BackgroundQuery:=False
End With
End Sub
（元データ）
04/06/10
04/06/01
04/05/31
04/05/20
（エクセルシート）
2004/6/10
2004/6/1
2004/5/31
2004/5/20

回答No.1

hana-hana3

Ｆｏｒｍａｔ関数があります。

Range("C3") = Format(日付, "yyyy/m/d")

お礼

有難う御座いました。