Excel VBA質問箱 IV

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

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


39414 / 76732 ←次へ | 前へ→

【42430】Re:複数ファイルから一つのファイルに一...
発言  ponpon  - 06/9/11(月) 22:58 -

引用なし
パスワード
   ▼やふーー さん:
>ponponさんの式で、
>「氏名の欄(A列)が空欄だったらそのファイルからの抽出を終了」
>という形にするには、どうしたら良いでしょう?
★印を追加
A2の値を見ていますが、A2が空欄だったら転記しないで良いのでしょうか?

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

PasteからPastespecialに変えています。

それと"\"が抜けていました。

>
>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("C65536").End(xlUp)).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 お礼

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