次のコードは、「非表示、無効、またはフォーカスを受け入れないタイプであるため、フォーカスを移動できません」というエラーを返す単一の場合を除いて、他のすべての状況で機能します。シート内のデータは、基本的な数字と単語のみで構成されています。私の目的は、あるワークブックから範囲を選択して、別のワークブックに貼り付けることです。Excel はセル内にあるものを認識していないように見えますが、実際には存在します。なぜこれが起こっているのか誰にも分かりますか?前もって感謝します。
Set Users = Application.Workbooks.Open(PathA)
With Prices
.Sheets("Sheet").Range("A:AJ").Select
Selection.Copy
End With
'Set Risk = Application.Workbooks.Open(PathX)
With Risk
.Sheets("Sheet").Range("A1:AJ1048576").PasteSpecial Paste:=xlPasteAll
.Save
' .Close
End With
Users.Close