Excel VBA質問箱 IV

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

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


39397 / 76732 ←次へ | 前へ→

【42448】Re:複数ファイルから一つのファイルに一...
発言  ponpon  - 06/9/12(火) 13:15 -

引用なし
パスワード
   失礼しました。

Sub test()
  Dim myFile As String
  Dim myWB As Workbook
  Const myPath As String = "D:\年度集計"

  Application.ScreenUpdating = False
  myFile = Dir(myPath & "\" & "AAA*.xls")
  If myFile = "" Then
    MsgBox "AAAのつくファイルはありません。"
  Else
     With ThisWorkbook.Sheets("全件一覧")
      .Cells.ClearContents
      .Range("A1:C1").Value = Array("氏名", "男女", "県名")
     End With
     Do While myFile <> ""
      Set myWB = Workbooks.Open(myPath & "\" & myFile)
        With myWB.Sheets("一覧表")
           .Range("A1", .Range("A65536").End(xlUp)).Resize(, 3).Copy
           ThisWorkbook.Sheets("全件一覧").Range("A65536") _
           .End(xlUp).Offset(1).PasteSpecial (xlPasteValues)
        End With
        myWB.Close
      myFile = Dir()
     Loop
  End If
  Application.ScreenUpdating = True
  Set myWB = Nothing

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

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