戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
複数ブックを同じ名前のシート毎に統合

    [189314] 複数ブックを同じ名前のシート毎に統合-

    ■親トピック/記事引用/メール受信=ON■

    □投稿者/ goe -(2019/05/11(17:43))
    □U R L/

      お世話になります。

      同じフォルダ内に
      1aaaaaa_1.xls
      1aaaaaa_2.xls
      というファイルがあります。

      2つのブックはシートがそれぞれABCDと同じ名前の4枚のシートに分かれていて
      ファイルの順番(ファイル名の番号順)でシート毎に新規のブックに統合したいのですが、どなたか教えていただけると幸いです・・
















    [189316] Re[1]: 複数ブックを同じ名前のシート毎に統合-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2019/05/11(18:18))
    □U R L/

      こんな流れで考えてはどうでしょうか

      2つのブックを手作業で開いておいて

      1)2のブックのAのデータをコピー
      2)1のブックのAのデータの下に貼り付け
      3)2のブックのBのデータをコピー
      4)1のブックのBのデータの下に貼り付け
      5)2のブックのCのデータをコピー
      6)1のブックのCのデータの下に貼り付け
      7)2のブックのDのデータをコピー
      8)1のブックのDのデータの下に貼り付け
      9)1のブックを名前をつけて保存





    [189317] Re[2]: 複数ブックを同じ名前のシート毎に統合-

    記事引用/メール受信=OFF■

    □投稿者/ goe -(2019/05/11(18:30))
    □U R L/

      マナ様早速のご連絡ありがとうございます。
      実は全部で100組のファイルがあり、それぞれファイルを統合する必要
      があり、悩んでおりました。

      手作業でブックを開いていても、閉じたままでもファイル名の取得やシート名の取得?はやはり必要ですよね?ブックを事前に開くと何か簡単になる手順があるのだと思うのですが教えていただけると幸いです。。すいません






    [189318] Re[3]: 複数ブックを同じ名前のシート毎に統合-

    記事引用/メール受信=OFF■

    □投稿者/ マナ -(2019/05/11(18:50))
    □U R L/

      >実は全部で100組のファイルがあり、それぞれファイルを統合する必要
      >があり、悩んでおりました。

      1組ならば、できているのでしょうか?
      そうならば、できているコードを提示してください。

      そうでないないなら、まず1組についてできるようにして
      それを100組に応用するとよいと思うのですが。




    [189319] Re[4]: 複数ブックを同じ名前のシート毎に統合-

    記事引用/メール受信=OFF■

    □投稿者/ goe -(2019/05/11(18:54))
    □U R L/

      1組もできてないですが考えてみます・・涙




    [189324] Re[5]: 複数ブックを同じ名前のシート毎に統合-

    記事引用/メール受信=ON■

    □投稿者/ goe -(2019/05/12(12:49))
    □U R L/
      copyメソッドを使用して違うブックの最終行から1行下に貼り付けたいのですが、
      エラーがどうしても消せません、すいませんが教えていただけると幸いです。
      
      Sub tougou()
      Dim i As Long
      Dim Maxrow1 As Long
      Dim Maxrow2 As Long
      Dim Filename1 As String
      Dim Filename2 As String
      Dim PathName As String
      Dim TargetBook As Workbook '****_1.xlsxのファイル
      Dim CopyBook As Workbook '****_2.xlsxのファイル
      
      '---それぞれのファイルを開く。
      PathName = ThisWorkbook.Path & "\"
      Filename1 = Dir(PathName & "*_1.xlsx")
      Filename2 = Dir(PathName & "*_2.xlsx")
      Set TargetBook = Workbooks.Open(PathName & Filename1)
      Set CopyBook = Workbooks.Open(PathName & Filename2)
      
      '----CopyBook側の4枚のシートをTargetBook側のシートにコピペ
      
          'SheetName = CopyBook.Sheets("A" & i).Name
             For i = 0 To CopyBook.Sheets.Count - 1
                  Maxrow1 = TargetBook.Sheets("A" & i).Cells(Rows.Count, 1).End(xlUp).Row 'コピペ先最終行
                  Maxrow2 = CopyBook.Sheets("A" & i).Cells(Rows.Count, 1).End(xlUp).Row 'コピペ元最終行
                  CopyBook.Sheets("A" & i).Range(Cells(16, 1), Cells(Maxrow2, 2)).Copy
                  TargetBook.Sheets("A" & i).Range(Cells(Maxrow + 1, 1), Cells(Maxrow + 1, 2)).Paste'---ここでエラー
                  Application.CutCopyMode = False
              
             
             
             Next i
      
      MsgBox " "
      
      
      End Sub
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [189326] Re[6]: 複数ブックを同じ名前のシート毎に統合-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2019/05/12(16:39))
    □U R L/
      >TargetBook.Sheets("A" & i).Range(Cells(Maxrow + 1, 1), Cells(Maxrow + 1, 2)).Paste'---ここでエラー
      
      RaneオブジェクトにPasteメソッドは無いですよ。
      
      PasteSpecial です。




    [189327] Re[7]: 複数ブックを同じ名前のシート毎に統合-

    解決!!ありがとうございました! / 記事引用/メール受信=ON■

    □投稿者/ goe -(2019/05/12(16:58))
    □U R L/
      返信ありがとうございます。
      書き直してなんとかエラーが出ずにコピペできました。
      度々シートをactivateしなくちゃいけないのが
      なんだかピンとこないのですが・・
      
      
      Sub tougou()
      Dim i As Long
      Dim Maxrow1 As Long
      Dim Maxrow2 As Long
      Dim rng As Range
      Dim Filename1 As String
      Dim Filename2 As String
      Dim PathName As String
      Dim TargetBook As Workbook '****_1.xlsxのファイル
      Dim CopyBook As Workbook '****_2.xlsxのファイル
      Dim a As Worksheet
      Dim b As Worksheet
      
      '---それぞれのファイルを開く。
      PathName = ThisWorkbook.Path & "\"
      Filename1 = Dir(PathName & "*_1.xlsx")
      Filename2 = Dir(PathName & "*_2.xlsx")
      Set TargetBook = Workbooks.Open(PathName & Filename1)
      Set CopyBook = Workbooks.Open(PathName & Filename2)
      
      '----CopyBook側の4枚のシートをTargetBook側のシートにコピペ
                 
               For i = 0 To 3
                  Set a = TargetBook.Worksheets("A" & i)
                  Set b = CopyBook.Worksheets("A" & i)
                  Maxrow1 = a.Cells(Rows.Count, 1).End(xlUp).Row 'コピペ元最終行
                  Maxrow2 = b.Cells(Rows.Count, 1).End(xlUp).Row 'コピペ元最終行
                  Set rng = a.Range("A1")
                  Set rng = rng.Offset(Maxrow1, 0)
               
                  'b.Range(Cells(16, 1), Cells(40, 2)).Copy a.Range("A42")
                   a.Activate
                   b.Activate
                   b.Range(Cells(16, 1), Cells(Maxrow2, 2)).Copy rng
                   
                   Set rng = Nothing
                   Set a = Nothing
                   Set b = Nothing
                   
                   
                   
                   
                   
            Next i


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [189328] Re[8]: 複数ブックを同じ名前のシート毎に統合-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2019/05/12(19:05))
    □U R L/
      あれ? 解決なんですか?
      
      >度々シートをactivateしなくちゃいけないのが
      >なんだかピンとこないのですが・・
      
      ここのことですね?
      
      'b.Range(Cells(16, 1), Cells(40, 2)).Copy a.Range("A42")
      > a.Activate
      > b.Activate
      > b.Range(Cells(16, 1), Cells(Maxrow2, 2)).Copy rng
      
      チャンと親シート(b) で修飾すれば、activateは要らないです。
      
          ↓       ↓
      b.Range(b.Cells(16, 1), b.Cells(Maxrow2, 2)).Copy rng
      
      第一、2つ続けて書いたら a.Activate の方は意味ないです。
       



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G