Excel VBA質問箱 IV

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

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


39459 / 76732 ←次へ | 前へ→

【42383】Re:複数ファイルから一つのファイルに一覧表...
回答  かみちゃん  - 06/9/8(金) 23:47 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>AAA(15年).xlsの「一覧表」シートの内容
>
>   A    B   C
>1 あああ  男  神奈川
>2 いいい  女  東京
>3 ううう  女  千葉
>
>AAA(14年).xlsの「一覧表」シートの内容
>
>   A    B   C
>1 qqq  男  埼玉
>2 ppp  男  群馬
>3 kkk  女  長野
>
>
>これを「年度集計.xls」の「全件一覧」シートに
>繋げてコピーしたいのです。
>
>   A    B   C
>1 あああ  男  神奈川
>2 いいい  女  東京
>3 ううう  女  千葉
>4 qqq  男  埼玉
>5 ppp  男  群馬
>6 kkk  女  長野
>
>このような感じです。

「年度集計.xls」に以下のようなコードを記述し、、「D:\年度集計」フォルダに
保存し一度閉じて、そのあと、実行してみてください。

Sub Macro1()
 Dim strPath As String
 Dim strFileName As String
 Dim vntData As Variant
 Dim rngResult As Range
  
 strPath = ThisWorkbook.Path & "\"
 
 strFileName = Dir(strPath & "AAA*.xls")
 Do Until strFileName = ""
  If strFileName <> ThisWorkbook.Name Then
   Workbooks.Open Filename:=strPath & strFileName
   vntData = Sheets("一覧表").Range("A1").CurrentRegion.Value
   With ThisWorkbook.Sheets("全件一覧")
    Set rngResult = .Range("A1")
    If .Range("A1").Value <> "" Then
     Set rngResult = .Cells(Rows.Count, 1).End(xlUp)
    End If
    rngResult.Resize(UBound(vntData, 1), UBound(vntData, 2)).Value = vntData
   End With
   Erase vntData
   ActiveWorkbook.Close
  End If
  strFileName = Dir()
 Loop
End Sub
0 hits

【42373】複数ファイルから一つのファイルに一覧表... やふーー 06/9/8(金) 17:13 質問
【42377】Re:複数ファイルから一つのファイルに一覧... ponpon 06/9/8(金) 21:13 発言
【42378】追加 やふーー 06/9/8(金) 21:18 質問
【42379】Re:複数ファイルから一つのファイルに一覧... かみちゃん 06/9/8(金) 21:37 発言
【42382】Re:複数ファイルから一つのファイルに一覧... やふーー 06/9/8(金) 23:14 質問
【42383】Re:複数ファイルから一つのファイルに一覧... かみちゃん 06/9/8(金) 23:47 回答
【42384】Re:複数ファイルから一つのファイルに一覧... ponpon 06/9/9(土) 0:15 発言
【42420】Re:複数ファイルから一つのファイルに一覧... やふーー 06/9/11(月) 9:15 お礼
【42427】Re:複数ファイルから一つのファイルに一覧... やふーー 06/9/11(月) 17:04 質問
【42430】Re:複数ファイルから一つのファイルに一... ponpon 06/9/11(月) 22:58 発言
【42440】Re:複数ファイルから一つのファイルに一... やふーー 06/9/12(火) 9:38 質問
【42441】Re:複数ファイルから一つのファイルに一... ponpon 06/9/12(火) 10:36 発言
【42444】Re:複数ファイルから一つのファイルに一... やふーー 06/9/12(火) 10:56 質問
【42448】Re:複数ファイルから一つのファイルに一... ponpon 06/9/12(火) 13:15 発言
【42456】Re:複数ファイルから一つのファイルに一... やふーー 06/9/12(火) 15:58 質問
【42457】Re:複数ファイルから一つのファイルに ヘ... ponpon 06/9/12(火) 16:32 発言
【42468】Re:複数ファイルから一つのファイルに ヘ... やふーー 06/9/12(火) 21:45 質問
【42470】Re:複数ファイルから一つのファイルに ヘ... ponpon 06/9/12(火) 23:30 発言
【42491】Re:複数ファイルから一つのファイルに ヘ... やふーー 06/9/13(水) 11:38 お礼

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