A、B、Cの3つのワークブックがあります。
Aには、BからCに移動する必要がある名前のリストがあります。
これを行うために、A内にマクロを作成しています。BとCを開いて参照し、AのすべてをBのすべてに対してスキャンできるようにしたいのですが、一致するものに出くわしたときはいつでも、Bから行を切り取り、Cの末尾に追加します。
ブックを適切に開いたり参照したりするだけで問題が発生します。他のすべては言うまでもありません。
たとえば、Cの最後の行を使用するためにこれを試みていますが、問題が発生しています
path = "C:\MyPath\"
bBath= path & "B.xls"
cPath= path & "C.xls"
Set bBook = Application.Workbooks.Open(bPath)
Set cBook = Application.Workbooks.Open(cPath)
k = 1
While cBook.Sheets("SomeSheetName").Row(k, 1) <> ""
k = k + 1
Wend