Excel VBA質問箱 IV

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

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


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

50248 / 76732

←次へ　｜　前へ→


	【31376】Re:日付

Kein - 05/11/18(金) 15:26 -


	引用なし

	パスワード

そのコードは、更新の日付を取得するというより、テキストファイルの中身を
エクセルのシートに展開するためのもののようですが、理解されてますか ?
もし選択した複数のテキストファイルの更新日を、アクティブシートの A列に並べて
入力したいということなら

Sub Get_DLM()
　 Dim MyF As Variant
　 Dim i As Integer
　 Dim FSO As Object
　 Dim GetD As Date

　 MyF = Application _
　 .GetOpenFilename("テキストファイル(*.txt),*.txt", MultiSelect:=True)
　 If VarType(MyF) = 11 Then Exit Sub
　 Set FSO = CreateObject("Scripting.FileSystemObject")
　 For i = LBound(MyF) To UBound(MyF)
　　　GetD = FSO.GetFile(MyF(i)).DateLastModified
　　　Cells(i, 1).Value = Format(GetD, "yyyy/m/d h:m")
　 Next i
　 Set FSO = Nothing
End Sub

というコードで出来ます。

1 hits

▼

【31336】日付 たかし 05/11/17(木) 20:21