Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56946 / 76732

←次へ　｜　前へ→


	【24527】Re:データ変換について

Kein - 05/4/24(日) 13:17 -


	引用なし

	パスワード

テキストのデータが間違いなくUPされたとおりなら、このようなコードで出来ます。
もちろんB列には、予め入力範囲の基準となるデータが入れられているものとします。

Sub Test_GetText()
　 Dim FSO As Object
　 Dim MyD As Date
　 Dim Buf As String
　 Const MyF As String = _
　 "C:\Documents and Settings\User\My Documents\test.txt"
　 '↑実際のテキストファイルのフルパスに変更する。
　
　 Set FSO = CreateObject("Scripting.FileSystemObject")
　 With FSO.OpenTextFile(MyF, 1)
　　　.SkipLine
　　　.Skip (2)
　　　Buf = .Read(8)
　　　.Close
　 End With
　 If IsDate(Buf) Then
　　　MyD = DateValue(Buf)
　　　With Range("B1", Range("B65536").End(xlUp)).Offset(, 2)
　　　　 .NumberFormat = "yy/mm/dd"
　　　　 .Value = MyD
　　　End With
　 Else
　　　MsgBox "日付のデータが見つかりません", 48
　 End If
　 Set FSO = Nothing
End Sub

0 hits

▼

【24526】データ変換について 初心者 05/4/24(日) 11:24