Excel VBA質問箱 IV

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

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


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

70754 / 76732

←次へ　｜　前へ→


	【10480】Re:最新情報に更新

Jaka - 04/1/28(水) 15:28 -


	引用なし

	パスワード

更新日だけですけど
注）ファイルを開くと開いた時が更新日付となってしまいますから、開く前に更新日を取得比較してから、ファイルを開き処理をするといった感じにして下さい。

Sub 更新日の比較()
　　Dim 更新日1 As Date, 更新日2 As Date
　　Fil1 = "C:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\シート上コンボ.xls"
　　Fil2 = "C:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\てきｓｔ.xls"
　　更新日1 = FileDateTime(Fil1)
　　更新日2 = FileDateTime(Fil2)
　　If koudate1 > koudate2 Then
　　　 MsgBox Dir(Fil1) & " " & 更新日2 & vbCrLf & vbCrLf & Dir(Fil2) & "の方が古い。" & vbCrLf & 更新日1
　　Else
　　　 MsgBox Dir(Fil2) & " " & 更新日1 & vbCrLf & vbCrLf & Dir(Fil1) & "の方が新しい。" & vbCrLf & 更新日2
　　End If
End Sub

0 hits

▼

【10478】最新情報に更新 １２３ 04/1/28(水) 14:07