エクセル マクロ

質問

以下のマクロを作成し
Fnameを開き、そのファイルで特定の文字列を探し、Offsetしたセルの値のコピー＆ペーストをしようとしています。
しかし、ファイルは開くのですが、コピー＆ペーストをいません。
どのようにすれば、実行できるのでしょうか？
変数やOffsetの使い方が違うと思うのですが、教えてください。

　Dim Wbk As Workbook
Dim Fname As String
Dim f As Integer

For f = 1 To 100

ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path

Fname = Cells(f, 1).Value & ".xls"
Application.ScreenUpdating = False
Workbooks.Open (Fname), UpdateLinks:=0

Set Obj = Worksheets(Cells(f, 2).Value).Cells.Find(Cells(f, 3).Value)
Obj.Offset(24, 0).Copy
Obj.Offset(36, 0).PasteSpecial (xlPasteValues)
Application.CutCopyMode = False

Application.DisplayAlerts = False
Workbooks(Fname).Close SaveChanges:=True
Application.DisplayAlerts = True
Application.ScreenUpdating = True

Next f

回答No.3

keithin · ベストアンサー

多分間違い：
Set Obj = Worksheets(Cells(f, 2).Value).Cells.Find(Cells(f, 3).Value)

指摘：
Set Obj = どのブックの.Worksheets(どのブックのシートの.Cells(f, 2).Value).Cells.Find(どのブックのシートの.Cells(f, 3).Value)

sub macro1()
　dim w as workbook
　dim h as range
　dim target as range

　chdrive left(thsworkbook.path, 1)
　chdir thisworkbook.path

　for each h in thisworkbook.worksheets("シート名").range("A1:A100")
　　set w = workbooks.open(filename:=h & ".xls", updatelinks:=false)
　　set target = w.worksheets(h.offset(0, 1)).cells.find(what:=h.offset(0, 2))
　　if not target is nothing then
　　　target.offset(36,0).value = target.offset(24, 0).value
　　end if
　　w.close savechanges:=true
　next
end sub

お礼

返信ありがとうございます。

回答No.4

imogasi

普通で１００ファイルもエクセルファイルを開き、毎回検索して・・
繰り返し関係はどうなのか？何について繰返すのか？
本当にそうなのか？
・検索語が入っているルファイルはいくつ。
・検索対象ファイ（ブック）ルはいくつ。そのブックの対象シートは？
初心者はコードだけコピペして挙げて、読者に読み解かせて回答までもらうのでなく、したいこと（目的）と背景・用途なども文章で質問文に書いて質問するもんだ。
ーー
コードが初心者のため、アイデア的に、とんでもないコードを書いている質問もあった。
この質問文での、ブックーシートーセル（行と列）の点の意識の無さが、このコードにも現れて、動かないのでは。
初心者は対象が１シートの場合で無い場合は、神経質ぐらい、ブックーシートを明示してコードを書いたほうが良い。

お礼

返信ありがとうございます。

回答No.2

11zep

詳細に提示できなくて申し訳ないですがヒントだけ。

FnameをOpenする前とした後に記述されているCellsコレクションは、最初に開いていたファイルを参照したいのですよね？
だとしたら後のCellsは、Fnameのセルを参照しています。
この場合は、WorkBook型の変数を用意しそれを使ってアクセスします。
省略してCellsコレクションを使用した場合、アクティブなシートを参照したはずです。

まとはずれだったら無視してください。

お礼

返信ありがとうございます。

回答No.1

mt2008

ソースをちゃんと読んでは居ませんが……

Cells(f, 2)　の様な描き方ですと、その時アクティブなシートのセルが対象になります。
元々のシートのA列からブック名を取り出し、そのブックを開いていますよね。
その次点でアクティブシートは開いたブックの方に移ります。

Set Obj = Worksheets(Cells(f, 2).Value).Cells.Find(Cells(f, 3).Value)

で、使われているCells(f, 2).Value、Cells(f, 3).Valueは、開かれたブックのアクティブシートのB列、C列のセルになります。
これは意図した通りでしょうか？

お礼

返信ありがとうございます。