Excel VBA質問箱 IV

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

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


39403 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ならば、

>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("一覧表")
>         If .Range("A2").Value <> "" Then 
           .Range("A1", .Range("A65536").End(xlUp)).Resize(,2).Copy
>           ThisWorkbook.Sheets("全件一覧").Range("A65536") _
>           .End(xlUp).Offset(1).PasteSpecial (xlPasteValues)
>         End If        
>        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 お礼

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