ベストアンサー

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

2004/06/13 18:38

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

e-l
お礼率45% (158/349)

Visual Basic
回答数2
ありがとう数1

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

imogasi
ベストアンサー率27% (4737/17070)

2004/06/13 19:52 回答No.2

メニューのデータ－外部データの取り込みから入ってテキストファイルのインポート－ファイル名の指定－次へ－次へ－（列のデータ形式）日付のＹＭＤでやって見てください。マクロの記録は 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

ログインすると、全ての回答が全文表示されます。