Excel VBA質問箱 IV

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

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


11337 / 13644 ツリー ←次へ | 前へ→

【16644】ファイルオープンの順番について tolong 04/8/5(木) 1:59 質問[未読]
【16645】Re:ファイルオープンの順番について IROC 04/8/5(木) 2:11 回答[未読]
【16655】Re:ファイルオープンの順番について Jaka 04/8/5(木) 11:48 回答[未読]
【16663】Re:ファイルオープンの順番について tolong 04/8/5(木) 13:03 お礼[未読]

【16644】ファイルオープンの順番について
質問  tolong  - 04/8/5(木) 1:59 -

引用なし
パスワード
   はじめまして。
フォルダ下の全てのxlsファイルについて
複数該当箇所を抜き出し一つの表にまとめるVBAを作成中です。

NowDir = "c:\data\"
GetFileName = Dir(NowDir)
  
Do While GetFileName <> ""
  Workbooks.Open Filename:=NowDir & GetFileName
    ・
    ・
    ・
  GetFileName = Dir()
  
Loop

で、ファイルを取得しオープンした後、
該当箇所を新しいブックに貼り付けています。

その際、ファイルを取得する順番をファイルの名前順にと
指定する事が出来ますでしょうか。
今はランダムに取得してしまっています。
(Ver.2000)

よろしくお願いいたします。

【16645】Re:ファイルオープンの順番について
回答  IROC  - 04/8/5(木) 2:11 -

引用なし
パスワード
   取得したファイル名を、一度シート上に1列に出力し、
並び替えしてから、順次ファイルを開いては如何でしょうか?

【16655】Re:ファイルオープンの順番について
回答  Jaka  - 04/8/5(木) 11:48 -

引用なし
パスワード
   Win98se & EXL97 と Win98se & EXL2000で、使っていたリンク先のコード、Win2000 & EXl97 だとエラーになってしまったんで。

Sub 昇順()
  Dim i As Long
  mm = CreateObject("WScript.Shell").SpecialFolders("Desktop")
  With Application.FileSearch
    .LookIn = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    '.FileName = "*.xls" 'Win2000 & EXl97 だとエラーになる??。
               '無くても上記組み合わせで、エクセルファイルだけ検索しました。
    .FileType = msoFileTypeExcelWorkbooks 'エクセルファイルだけ
    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

【16663】Re:ファイルオープンの順番について
お礼  tolong  - 04/8/5(木) 13:03 -

引用なし
パスワード
   皆様、アドバイスどうもありがとうございました。
大変参考になりました。
一度ファイル名を取得してからソートしオープンするという流れで
対応します。
ありがとうございました。

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