Excel VBA質問箱 IV

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

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


70908 / 76738 ←次へ | 前へ→

【10332】Re:フォルダ内のExcelを一つのファイルの...
回答  INA  - 04/1/19(月) 11:51 -

引用なし
パスワード
   >ブックのシート名は規定のsheet1だったり1月だったりです。
各ブックのシートを何を条件に指定すればよいのでしょうか?
各ブックのシートは1つだけでしょうか?
だとすれば、Worksheets(1) で指定できますが・・・


Sub Sample()
Dim myObj As Object
Dim myFileName As String
Dim myDir As String
Dim mySheet As Variant
    
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.Sheets
      .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
0 hits

【10298】フォルダ内のExcelを一つのファイルの各シートに反映したい is 04/1/16(金) 14:46 質問
【10299】Re:フォルダ内のExcelを一つのファイルの各... INA 04/1/16(金) 15:01 回答
【10302】Re:フォルダ内のExcelを一つのファイルの... is 04/1/16(金) 16:47 質問
【10304】Re:フォルダ内のExcelを一つのファイルの... INA 04/1/16(金) 17:57 回答
【10328】Re:フォルダ内のExcelを一つのファイルの... is 04/1/19(月) 9:37 質問
【10332】Re:フォルダ内のExcelを一つのファイルの... INA 04/1/19(月) 11:51 回答
【10336】Re:フォルダ内のExcelを一つのファイルの... is 04/1/19(月) 13:53 質問
【10337】Re:フォルダ内のExcelを一つのファイルの... INA 04/1/19(月) 14:02 回答
【10338】Re:フォルダ内のExcelを一つのファイルの... is 04/1/19(月) 15:14 お礼
【10342】Re:フォルダ内のExcelを一つのファイルの... INA 04/1/19(月) 17:38 回答
【10408】Re:フォルダ内のExcelを一つのファイルの... is 04/1/25(日) 15:01 お礼

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