Excel VBA質問箱 IV

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

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


68788 / 76734 ←次へ | 前へ→

【12473】Re:複数のブックの内容を他ブックの最初...
回答  Jaka  - 04/4/5(月) 16:36 -

引用なし
パスワード
   色々やり方があると思うけど..。

あるフォルダのブック名取得なら
[#843] ← 谷さんに消されてました。一応下に載せておきます。
とか

ブックを開かないんだったら
[#7197]

ついでにここも参考になるかと思います。
[#7962]


Sub 昇順()
  Dim i As Long
  With Application.FileSearch
    .LookIn = "C:\Windows\デスクトップ"
    .FileName = "*.xls"
    If .Execute(SortBy:=msoSortByFileName, _
      sortorder:=msoSortOrderAscending) > 0 Then
      Range("A1").Value = "ファイル名"
      Range("B1").Value = "フルパス"
      For i = 1 To .FoundFiles.Count
        Range("A" & i + 1).Value = Dir(.FoundFiles(i))
        Range("B" & i + 1).Value = .FoundFiles(i)
      Next
    Else
      MsgBox "エクセルファイルはありません。"
    End If
  End With
End Sub

Sub 降順()
  Dim i As Long
  With Application.FileSearch
    .LookIn = "C:\Windows\デスクトップ"
    .FileName = "*.xls"
    If .Execute(SortBy:=msoSortByFileName, _
      sortorder:=msoSortOrderDescending) > 0 Then
      Range("A1").Value = "ファイル名"
      Range("B1").Value = "フルパス"
      For i = 1 To .FoundFiles.Count
        Range("A" & i + 1).Value = Dir(.FoundFiles(i))
        Range("B" & i + 1).Value = .FoundFiles(i)
      Next
    Else
      MsgBox "エクセルファイルはありません。"
    End If
  End With
End Sub

0 hits

【12460】複数のブックの内容を他ブックの最初のシ... よっしー 04/4/5(月) 12:00 質問
【12462】Re:複数のブックの内容を他ブックの最初の... Jaka 04/4/5(月) 12:26 回答
【12468】Re:複数のブックの内容を他ブックの最初... よっしー 04/4/5(月) 14:37 質問
【12473】Re:複数のブックの内容を他ブックの最初... Jaka 04/4/5(月) 16:36 回答
【12485】Re:複数のブックの内容を他ブックの最初... よっしー 04/4/6(火) 9:40 お礼
【12549】類似の質問:複数任意のブックを・・・ ぱぬっち 04/4/7(水) 12:51 質問
【12550】Re:類似の質問:複数任意のブックを・・・ Asaki 04/4/7(水) 13:09 発言
【12551】Re:類似の質問:複数任意のブックを・・・ ぱぬっち 04/4/7(水) 13:11 発言

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