Excel VBA質問箱 IV

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

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


39423 / 76738 ←次へ | 前へ→

【42427】Re:複数ファイルから一つのファイルに一覧表...
質問  やふーー  - 06/9/11(月) 17:04 -

引用なし
パスワード
   ▼ponpon さん:

お礼を書いた後でも申し訳ないのですが、
ponponさんの式で、
「氏名の欄(A列)が空欄だったらそのファイルからの抽出を終了」
という形にするには、どうしたら良いでしょう?

一覧表に、不要なデータがある事に気が付いたため、
純粋にデータだけど取りたいと思いまして・・・。

また、抽出の際にコピーではなく「形式を選択して貼り付け」で
言うところの「値」として抽出したいのですが。(参照している
項目があったため、コピー後にブックを参照してしまう。)

よろしくお願いします。


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("C65536").End(xlUp)).Copy _
         ThisWorkbook.Sheets("全件一覧").Range("A65536").End(xlUp).Offset(1)
        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 お礼

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