VBA - 【EXCEL VBA】複数のブックに分かれた転記元エクセルの内容を、転記先のデータベースブックに転記したい(102850)|teratail
上記の前質問のコードから引用。
VBA
1 mitumoriCell.Copy
2 pasteCell.PasteSpecial Paste:=xlPasteValues, _
3 Operation:=xlNone, _
4 SkipBlanks:=False, _
5 Transpose:=False
6 'コピペは以下でも可
7 'pasteCell.Value() = mitumoriCell.Value()
上記の、Copy
と PasteSpecial
で、クリップボードを使用して、コピー&ペーストしているのでこれはコメントにして、「コピペは以下でも可」のコードのコメントを外せば、クリップボードを使用せずに転記できるのでエラーは出ないし、処理も高速です。
修正コード
VBA
1 'mitumoriCell.Copy
2 'pasteCell.PasteSpecial Paste:=xlPasteValues, _
3 ' Operation:=xlNone, _
4 ' SkipBlanks:=False, _
5 ' Transpose:=False
6 'コピペは以下でも可
7 pasteCell.Value() = mitumoriCell.Value()
あと、これ以降のコードの Copy
と PasteSpecial
の部分も同様にコメントにして、「コピペは以下でも可」の次のコードをコメントを外して修正してください。
前の回答者のimihitoさんは、こうなることを予想していたのかな(^^)
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。