Excel VBA質問箱 IV

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

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


5371 / 76732 ←次へ | 前へ→

【76974】Re:ハイパーリンクのファイルの更新日時取得
発言  ko  - 15/4/23(木) 13:37 -

引用なし
パスワード
   独覚さん

ファイルのプロパティ自体は、正確な日時になっています。

あと、日時取得だけで End Subにしておらず、
続けて並べ替えするようにしています。


  ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
  ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C1") _
    , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, 1).End(xlUp).Row
  
  With ActiveWorkbook.Worksheets("Sheet1").Sort
    .SetRange Range("a1", "c" & LastRow)
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
  End With
  
  
End Sub

184 hits

【76968】ハイパーリンクのファイルの更新日時取得 ko 15/4/23(木) 11:23 質問[未読]
【76969】Re:ハイパーリンクのファイルの更新日時取得 β 15/4/23(木) 12:07 発言[未読]
【76970】Re:ハイパーリンクのファイルの更新日時取得 β 15/4/23(木) 12:12 発言[未読]
【76977】Re:ハイパーリンクのファイルの更新日時取得 ko 15/4/23(木) 16:44 お礼[未読]
【76971】Re:ハイパーリンクのファイルの更新日時取得 独覚 15/4/23(木) 13:07 発言[未読]
【76972】Re:ハイパーリンクのファイルの更新日時取得 ko 15/4/23(木) 13:19 発言[未読]
【76973】Re:ハイパーリンクのファイルの更新日時取得 独覚 15/4/23(木) 13:28 発言[未読]
【76974】Re:ハイパーリンクのファイルの更新日時取得 ko 15/4/23(木) 13:37 発言[未読]
【76976】Re:ハイパーリンクのファイルの更新日時取得 ko 15/4/23(木) 16:39 お礼[未読]
【76975】Re:ハイパーリンクのファイルの更新日時取得 ko 15/4/23(木) 14:42 質問[未読]

5371 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free