クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう

現状
（ケース１）
ネット上にてホームページの文字列をコピー（ハンド作業）
⇒①マクロ実行（ブックAに文字列が貼付）
⇒②マクロ実行データの一部をブック２へ転記
⇒クリップボードから、ネット上にてコピーしたホームページの文字列が消えている


（ケース2）
ネット上にてホームページの文字列をコピー（ハンド作業）
⇒①マクロ実行（ブックAに文字列が貼付）
⇒ブック１に貼付された、データをハンドでデリートする
⇒クリップボードから、コピーした文字列は消えない

【改善したい事】
ケース２のように、クリップボードからコピーした文字列が
消えないようにしたい。そのまま残しておきたいです。

ご存じの方、宜しくお願いします




【①ブックAへデータを貼付するコード】
Sub 他のExcelへユニコード書式にて貼付_MSGBOXあり()

Dim CB As Variant

CB = Application.ClipboardFormats


If CB(1) = True Then
MsgBox "クリップボードにコピーされていません", vbOKOnly + vbCritical, "A部門"
Exit Sub
End If

Worksheets("転記元").Range("A10").Select

Worksheets("転記元").PasteSpecial Format:="Unicode テキスト"


End Sub


【②ブック２へデータを貼付】


Sub 別ブックへ転記()


Dim ws1 As Worksheet

Dim wb2 As Workbook

Dim ws2 As Worksheet


Dim maxrow2 As Long

Dim row2 As Long

Dim i As Integer




Set ws1 = Worksheets("転記元")




For i = 1 To Workbooks.Count

If Workbooks(i).Name = "book2.xlsx" Then '転記先のブック。


Set wb2 = Workbooks(i)

End If

Next




Set ws2 = wb2.Worksheets("sheet1") '転記先シート




maxrow2 = ws2.Cells(Rows.Count, "B").End(xlUp).Row '転記先のブックB列


row2 = maxrow2 + 1

ws2.Cells(row2, 2).Resize(1, 8).Value = ws1.Range("A1").Resize(1, 8).Value '転記元から転記先へ7セル分を転記.a1から７セル分。天気先。１列目から。



ws1.Range("I1").Copy ws2.Cells(row2, 10).Resize(1, 1)



wb2.Save '転記先のブックを上書き


End Sub

No.1 回答者： fujillin 回答日時： 2023/10/15 14:04

こんにちは

本質的に何をなさりたいのかよくわかりませんけれど・・

クリップボードを触りたくないのなら、コピーやペーストを行わないようにすれば良いでしょう。
先日ご紹介しておいたサイトにもあるように、DataObject を経由すればクリップボードには直接の影響を与えなくなると思います。
https://oshiete.goo.ne.jp/qa/13624744.html

もしも必要なら、再セットすることも可能でしょう。