Excel VBA質問箱 IV

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

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


70900 / 76734 ←次へ | 前へ→

【10336】Re:フォルダ内のExcelを一つのファイルの...
質問  is  - 04/1/19(月) 13:53 -

引用なし
パスワード
   ▼INA さん:
>各ブックのシートは1つだけでしょうか?

ひとつだけです。

>だとすれば、Worksheets(1) で指定できますが・・・
>

新規エクセルのファイル上で教えていただいたマクロを実行したところ
このファイルの各シートに反映されるのではなくsheet1のA1番地から
下記のようにずらっとデータではなくファイル名が表記されてしまいました。
マクロの実行に問題があるのでしょうか?

複数のファイルを1つのファイルに結合させたく、結合前にファイル名にある文字をふくむものと毎回指定することによりデータを各シートに反映させたいとおもっております。

お手間かけますがよろしくご教授ねがいます。


a1.xls    Sheet1
a1.xls    Sheet2
a1.xls    Sheet3
a2.xls    Sheet1
a2.xls    Sheet2
a2.xls    Sheet3
a3.xls    Sheet1
a3.xls    Sheet2
a3.xls    Sheet3
b1.xls    Sheet1
b1.xls    Sheet2
b1.xls    Sheet3
b2.xls    Sheet1
b2.xls    Sheet2
b2.xls    Sheet3
c1.xls    Sheet1
c1.xls    Sheet2
c1.xls    Sheet3
ファイル結合.xls    a1.xls
ファイル結合.xls    Sheet2
ファイル結合.xls    Sheet3


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

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