Excel VBA質問箱 IV

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

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


67152 / 76734 ←次へ | 前へ→

【14141】Re:複数のEXCELファィルのデータをひとつに...
回答  IROC  - 04/5/21(金) 18:26 -

引用なし
パスワード
   フォルダを指定して、ファイル名、シート名を取得。のサンプルです。

非常に似ている処理なので、参考になると思います。

フォルダの中に、xlsファイルを何個か用意してお試し下さい。

'Application.ScreenUpdating = False
のコメントを解除すると画面表示の更新が停止して
ちらつかなくなります。

Sub Sample()
Dim myObj As Object
Dim myFileName As String
Dim myDir As String
Dim mySheet As Worksheet
    
'Application.ScreenUpdating = False
    
With ThisWorkbook.ActiveSheet
    
Set myObj = CreateObject("Shell.Application"). _
BrowseForFolder(0, "フォルダを選択してください", 0)
If myObj Is Nothing Then Exit Sub
  
  
  myDir = myObj.Items.Item.Path & "\"
  myFileName = Dir(myDir & "*", vbHidden + vbSystem)
  
  
  Do
    Workbooks.Open myDir & myFileName
    

    For Each mySheet In ActiveWorkbook.Worksheets
      .Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = myFileName
      .Cells(Rows.Count, 2).End(xlUp).Offset(1).Value = mySheet.Name
    Next mySheet
    
    Workbooks(myFileName).Close False
    myFileName = Dir()
    
  Loop Until myFileName = vbNullString
  
  
  .Range("A1").Value = "ファイル名"
  .Range("B1").Value = "シート名"
  .Columns("A:B").AutoFit
  
'Application.ScreenUpdating = True
End With

End Sub
6 hits

【14134】複数のEXCELファィルのデータをひとつに... fryday 04/5/21(金) 17:54 質問
【14140】Re:複数のEXCELファィルのデータをひとつに... IROC 04/5/21(金) 18:21 回答
【14141】Re:複数のEXCELファィルのデータをひとつに... IROC 04/5/21(金) 18:26 回答
【14311】Re:複数のEXCELファィルのデータをひとつに... fryday 04/5/25(火) 18:19 お礼

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