Excel VBA質問箱 IV

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

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


64657 / 76732 ←次へ | 前へ→

【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
1 hits

【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 お礼

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