突然エクセルVBAが正常に機能しなくなった

Question

よく使うマクロが突然正常に機能しなくなり、困っています。
Windows7からWindows10にアップグレードしたことしか原因として思い浮かびませんが、
アップグレードしたのは3日前で、昨日までは普通に使えました。
他のマクロにも、異常は発生していません。

マクロの内容：セル内の値のみをクリップボードにコピー

コード：
Sub CopyToClipBoard()
Const DataObjectID As String = "1C3B4210-F441-11CE-B9EA-00AA006B1A69"
Dim myRng As Range
Dim tbl() As Variant
Dim i As Long
Dim j As Long
Set myRng = ActiveCell
ReDim tbl(1 To myRng.Rows.Count)
For i = 1 To myRng.Rows.Count
For j = 1 To myRng.Columns.Count
tbl(i) = tbl(i) & myRng.Cells(i, j).Text
Next j
Next i
With GetObject("new:" & DataObjectID)
.SetText Join(tbl, vbCrLf)
.PutInClipboard
End With
End Sub

コードの内容によって不具合が発生するマクロと発生しないマクロがあるようですが、
解決策が見つかりません。解決策をご存じの方がいらっしゃったら、ご教示いただけない
でしょうか。よろしくお願いします。

動作不良の内容について書き忘れていたので付け加えます。

正常：セル内の値のみがクリップボードに正しくコピーされる。
異常：正しくコピーされない。
コピーしたものを他のセルに貼り付けると「・・」となる。
テキストエディタ等に貼り付けると「」(スペース)になる。

Answer 1

こちらでも症状を再現できないので、推測ですが、

Dim tbl() As Variant を Dim tbl() As String
GetObject を CreateObject に変更。

Sub CopyToClipBoard()
    Const DataObjectID As String = "1C3B4210-F441-11CE-B9EA-00AA006B1A69"
    Dim myRng          As Range
    Dim tbl()          As String
    Dim i              As Long
    Dim j              As Long
    Set myRng = ActiveCell
    ReDim tbl(1 To myRng.Rows.Count)
    For i = 1 To myRng.Rows.Count
        For j = 1 To myRng.Columns.Count
            tbl(i) = tbl(i) & myRng.Cells(i, j).Text
        Next j
    Next i
    With CreateObject("new:" & DataObjectID)
        .SetText Join(tbl, vbCrLf)
        .PutInClipboard
    End With
End Sub

ActiveCell ならセル一つだけなので、下記でもいいはずです。

Sub CopyToClipBoard()
    Const DataObjectID As String = "1C3B4210-F441-11CE-B9EA-00AA006B1A69"
    With CreateObject("new:" & DataObjectID)
        .SetText ActiveCell.Text
        .PutInClipboard
    End With
End Sub

あるいは、「Microsoft Forms 2.0 Object Library」を参照設定しておいて（ユーザーフォームを使っているなら不要）、

    With New MSForms.DataObject
        .SetText ActiveCell.Text
        .PutInClipboard 
    End With

参考リンク
クリップボードとデータのやりとりをする：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug

別案追記

DataObjectを使わない方法

Sub CopyToClipBoard()
    SetCB ActiveCell.Text
End Sub

Private Sub SetCB(ByVal str As String)
'クリップボードに文字列を格納
  With CreateObject("Forms.TextBox.1")
    .MultiLine = True
    .Text = str
    .SelStart = 0
    .SelLength = .TextLength
    .Copy
  End With
End Sub

VBA - VBAでクリップボードへのコピー｜teratail

Comments

[nbotnk]

ご回答、ありがとうございます。
ご提案いただいたコードをすべて試してみましたが、結果は同じでした。

「症状を再現できない」とのことですが、hatena19様のPCでは正常に機能する
ということでしょうか？

[hatena19]

はい、正常に動作します。
セルの値がクリップボードに格納されてます。

[nbotnk]

やはり、そうでしたか。
Windowsのアップグレードぐらいしか原因は思いつかないのですが、
昨日までは問題なかったし、他のマクロは異常がないので、何が原因なのか
見当がつかなくて...
ちなみに、ご教示いただいたコードを使って新たにマクロを作成してみましたが、
正常に機能しませんでした。
もう少し、調べてみます。

[hatena19]

下記の過去ログの方法を試してみてはどうでしょうか。

VBAでクリップボードへのコピー
https://teratail.com/questions/203287

[nbotnk]

何度もありがとうございます。申し上げにくいのですが、hatena19様のPCでは普通に動作する
ということをお聞きして、PCを再起動すると、これまで通りに動作するようになりました。
一番先に行うべきことを忘れており、恥ずかしい限りです。ただ、既存のコードに改善の余地が
あることがわかりましたので、ご紹介いただいた方法などを参考に書き換えてみようと思います。
ご協力ありがとうございました。