Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3200 / 76807

←次へ　｜　前へ→


	【79244】Re:複数のファイルに存在する表を抜き出して一覧にする。

inoue - 17/6/18(日) 20:30 -


	引用なし

	パスワード

▼マナさん：
>▼inoue さん：
>
>CurrentRegionが使えるならば
>データ範囲をこんな感じでコピーできるかもしれません。
>
>Sub test()
>　　Dim ws As Worksheet
>　　Dim r As Range
>　　Dim myStr As String
>　　
>　　myStr = "目印"
>　　
>　　Set ws = ActiveSheet
>　　Set r = ws.Cells.Find(What:=myStr, LookIn:=xlValues, LookAt:=xlWhole)
>　　
>　　Set r = r.CurrentRegion
>　　Set r = Intersect(r, r.Offset(2))
>
>　　r.Copy
>　　
>　　Worksheets.Add
>　　Range("A3").PasteSpecial xlPasteValues
>　　
>End Sub

マナさん

コードを記載いただきありがとうございます。

早速試してみたところ、最後に開いていた？と思われるファイルの
取得したい領域が取得できました！

しかし、取得できた領域はその1ファイルのみでした。
これを任意のフォルダ内にあるすべてのファイルに対して行うためには
どのようにすればよいでしょうか。

また、何度か試しておりましたところ、
「オブジェクト変数またはwithブロック変数が設定されていません。」
というエラーが出てきました。

たびたび申し訳ありませんが、引き続きご助言いただけますと幸いです。

13 hits

▼

【79230】複数のファイルに存在する表を抜き出して一覧にする。 inoue 17/6/18(日) 2:08