Excelのセルコピー余分な”” ダブルクォーテーション問題【VBA】

2024-03-09

ExcelでHTMLを作成しセルをコピーすると余分な　”” ダブルクォーテーションがついてしまう。

余分な”” 無しでコピーする Excel VBA

ご案内
ご案内

Excelでそのままコピペしたいだけなのに、不要な “ダブルクォーテーション”が入るのをVBAで時短!

エクセルのコピー時にダイレクトにクリップボード操作するマクロ

この方法はVBEditorを開いて、ツールの参照設定にある　Microsoft Forms 2.0 Object Library　を使えるようにする必要があります。

私の場合は初期で入って無くて参照できませんでした。

https://windll.com/ja/dll/microsoft-corporation/fm20
windll.com

上記のサイトから Fm20.dll バージョン 32bitをDL

C:\Windows\System32 のフォルダにDLした　FM20.DLL ファイルを入れる

参照設定の右の参照ボタンからC:\Windows\System32のフォルダ内にあるFm20.dll を選択して
ライブラリ内にあるMicrosoft Forms 2.0 Object Libraryを選択する

VBAのコードは下記を使います。



Sub Copy()
    Dim buf As String, buf2 As String, CB As New DataObject
    
    ' A1セルを選択コピーしたいセルを選択

　  '任意のセルを選択したい場合は　Range("A1").Select　を消したらOK
    Range("A1").Select
    
    buf = ActiveCell
    With CB
        .SetText buf       
        .PutInClipboard     
        .GetFromClipboard   
        buf2 = .GetText   
    End With
    
  ' メッセージボックスに表示

 　'コピー内容の確認なので　 MsgBox buf2　は無くてもOK
    MsgBox buf2
    
End Sub

“” が無い状態でコピーが出来ます。

タイトルとURLをコピーしました