|
UO3さま Yukiさま
このたびは大変お世話になっております。
昨今の状況により、なかなか確認できず、御礼が遅れましたことをお詫びいたします。
まず、
テンプレートを開く
↓
元データと同じファイル名(先頭に【作業】をつける)で保存
↓
転記作業
は、Yukiさまの最初に投稿してくださったコードと、UO3さまのヒントを、試行錯誤で自分なりに記述したところ、奇跡的にも思い通りに作業ファイルが出来上がりました!
本当にありがとうございました。
一点だけ、Yukiさまのコード
>SendKeys "{TAB}{ENTER}"
>Set wb = Workbooks.Open(Filename:="OpenするFileのFull Path", ReadOnly:=False)
のReadOnly:=False にすると、なぜか読み取り専用で開くか否かのダイアログが表示されてしまいました。
そこで、Trueにしたところ、ダイアログが表示されず、なおかつ作業ファイルも読み取り推奨ではなくなって、思い通りにすることができました。
なぜでしょうか・・・。
また、UO3さまご指摘のとおり、この手順だとちょっと処理速度に問題があります。
そこで、あらたにご考案いただいたコードをまた確認させていただきますので、処理速度を比べてまたご連絡いたします。
Yukiさまの、次に投稿してくださったコードも今後の参考とさせていただきたいと思います。ありがとうございました。
|
|