Excel VBA質問箱 IV

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

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


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

12439 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

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

【10491】変数名を書きなおすの忘れていました。 Jaka 04/1/29(木) 9:05


	【10478】最新情報に更新

１２３ - 04/1/28(水) 14:07 -


	引用なし

	パスワード

皆さんこんにちは　１２３です。

質問なんですが、

フォルダＡ内にある
「１２３.xls」の更新日付を取得して
フォルダＢ内にある
「４５６.xls」の更新日付と比べ
「１２３.xls」の方が最新だった場合に
「１２３.xls」のWorkSheets("Data")をコピーして
「４５６.xls」のWorkSheets("Data")にペーストする

ということをしたいのですが、どなたかご存知の方
お助けください。
宜しくお願いします。


	【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


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

１２３ - 04/1/28(水) 17:44 -


	引用なし

	パスワード

▼Jaka さん　こんばんは

助かりました。無事出来ました。
ありがとうございました。


	【10491】変数名を書きなおすの忘れていました。

Jaka - 04/1/29(木) 9:05 -


	引用なし

	パスワード

こうですね！
すみませんでした。

>　　If koudate1 > koudate2 Then
　　　　　　　↓
　　If 更新日1 > 更新日2 Then


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

12439 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free