VBAでクリップボードへ文字列を送信・取得する3つの方法
VBAでデータをクリップボードに送信したり取得したり、そういう要望は結構多くあります。
このVBAでクリップボードを扱う方法を3通り紹介します。
ただし、データといってもここではあくまで文字列データ（テキストデータ）だけを扱います。
今回はVBAでクリップボードを扱う方法だけに焦点をあてて、そのVBAの3つの方法についての紹介記事となります。
それぞれのVBAは決して目新しいものでも、私が特段の創意工夫をしたものでもありません。
あくまで、3つの方法のまとめ記事になります。
VBAの3つの方法について
2. TextBox を使う方法
3. Win32 API を使う方法
しかしこの方法では、環境によっては上手く動かないとか文字化けが発生するとかの報告があるようです。
なぜTextBoxなのかと、ちょっと不思議な感じですが、要はクリップボードに対応したメソッドが装備されているコントロールを使うという事ですね。
VBAコードはコピーで使えるので長さは気にしなくても良いとはいえ、もうちょっと簡単なコードなら良かったのですが・・・
クリップボードへ文字列を送信するSubを、
SetClipboard
クリップボードの文字列を取得するFunctionを、
GetClipboard
このように共通の命名にしています。
使い方はそのまま普通に使ってもらえれば良いです。
Sub test()
Call SetClipboard(Range("A1"))
Range("A2") = GetClipboard
End Sub
1. DataObjectを使うVBA
'クリップボードへ文字列を送信
Public Sub SetClipboard(ByVal aText As String)
With New DataObject
.SetText aText
.PutInClipboard
End With
End Sub
'クリップボードの文字列を取得
Public Function GetClipboard() As String
On Error Resume Next
With New DataObject
.GetFromClipboard
GetClipboard = .GetText
End With
End Function
参照設定：Microsoft Forms 2.0 Object Library
挿入でユーザーフォームを作成すると自動的に参照設定されます。
CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
2. TextBox を使うVBA
'クリップボードへ文字列を送信
Private Sub SetClipboard(ByVal aText As String)
With CreateObject("Forms.TextBox.1")
.MultiLine = True
.Text = aText
.SelStart = 0
.SelLength = .TextLength
.Copy
End With
End Sub
'クリップボードの文字列を取得
Private Function GetClipboard() As String
With CreateObject("Forms.TextBox.1")
.MultiLine = True
If .CanPaste = True Then .Paste
GetClipboard = .Text
End With
End Function
この方法については、以下のブログが古くから紹介している方法です。
[VBA]DataObjectを使ったクリップボード操作が上手くいかない場合の対処法
3. Win32 API を使うVBA
'Win32 API 宣言
Private Declare PtrSafe Function OpenClipboard Lib "user32.dll" (ByVal hWnd As LongPtr) As LongPtr
Private Declare PtrSafe Function EmptyClipboard Lib "user32.dll" () As LongPtr
Private Declare PtrSafe Function CloseClipboard Lib "user32.dll" () As LongPtr
Private Declare PtrSafe Function IsClipboardFormatAvailable Lib "user32.dll" (ByVal wFormat As LongPtr) As LongPtr
Private Declare PtrSafe Function GetClipboardData Lib "user32.dll" (ByVal wFormat As LongPtr) As LongPtr
Private Declare PtrSafe Function SetClipboardData Lib "user32.dll" (ByVal wFormat As LongPtr, ByVal hMem As LongPtr) As LongPtr
Private Declare PtrSafe Function GlobalAlloc Lib "kernel32.dll" (ByVal wFlags As LongPtr, ByVal dwBytes As LongPtr) As LongPtr
Private Declare PtrSafe Function GlobalLock Lib "kernel32.dll" (ByVal hMem As LongPtr) As LongPtr
Private Declare PtrSafe Function GlobalUnlock Lib "kernel32.dll" (ByVal hMem As LongPtr) As LongPtr
Private Declare PtrSafe Function GlobalSize Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr
Private Declare PtrSafe Function lstrcpy Lib "kernel32.dll" Alias "lstrcpyW" (ByVal lpString1 As LongPtr, ByVal lpString2 As LongPtr) As LongPtr
'クリップボードへ文字列を送信
Public Sub SetClipboard(ByVal aText As String)
Dim iStrPtr As LongPtr
Dim iLen As LongPtr
Dim iLock As LongPtr
Const GMEM_MOVEABLE As LongPtr = &H2
Const GMEM_ZEROINIT As LongPtr = &H40
Const CF_UNICODETEXT As LongPtr = &HD
OpenClipboard 0&
EmptyClipboard
iLen = LenB(aText) + 2&
iStrPtr = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, iLen)
iLock = GlobalLock(iStrPtr)
lstrcpy iLock, StrPtr(aText)
GlobalUnlock iStrPtr
SetClipboardData CF_UNICODETEXT, iStrPtr
CloseClipboard
End Sub
'クリップボードの文字列を取得
Public Function GetClipboard() As String
Dim iStrPtr As LongPtr
Dim iLen As LongPtr
Dim iLock As LongPtr
Dim sUniText As String
Const CF_UNICODETEXT As LongPtr = 13&
OpenClipboard 0&
If IsClipboardFormatAvailable(CF_UNICODETEXT) Then
iStrPtr = GetClipboardData(CF_UNICODETEXT)
If iStrPtr Then
iLock = GlobalLock(iStrPtr)
iLen = GlobalSize(iStrPtr)
sUniText = String$(CLng(iLen \ 2& - 1&), vbNullChar)
lstrcpy StrPtr(sUniText), iLock
GlobalUnlock iStrPtr
End If
GetClipboard = sUniText
End If
CloseClipboard
End Function
上記のVBAは、
Docs / Office VBA リファレンス / Access / 概念 / Windows API /
クリップボードに情報を送信する
https://docs.microsoft.com/ja-jp/office/vba/access/concepts/windows-api/send-information-to-the-clipboard
ここに掲載されているものを、64bitで使えるように変更したものです。
同じテーマ「マクロVBA技術解説」の記事
RangeオブジェクトのFor EachとAreasについて
画像が行列削除についてこない場合の対処
新関数SORTBYをVBAで利用するラップ関数を作成
LAMBDA以降の新関数はVBAで使えるか
数字（1～50）を丸付き数字に変換するVBA
文字列のプロパティ名でオブジェクトを操作する方法
OneDrive使用時のThisWorkbook.Pathの扱い方
セル個数を返すRange.CountLargeプロパティとは
画像「セルに配置」のVBAについて（365の新機能）
VBAでクリップボードへ文字列を送信・取得する3つの方法
テキストの内容によって図形を削除する
新着記事NEW ・・・新着記事一覧を見る
TRIMRANGE関数（セル範囲をトリム：端の空白セルを除外）｜エクセル入門(2024-08-30)
正規表現関数（REGEXTEST,REGEXREPLACE,REGEXEXTRACT）｜エクセル入門(2024-07-02)
エクセルが起動しない、Excelが立ち上がらない｜エクセル雑感(2024-04-11)
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.繰り返し処理（For Next)｜VBA入門
5.RangeとCellsの使い方｜VBA入門
6.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
7.セルのクリア（Clear,ClearContents）｜VBA入門
8.メッセージボックス(MsgBox関数)｜VBA入門
9.条件分岐（Select Case）｜VBA入門
10.マクロとは？VBAとは？VBAでできること｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBA技術解説
- VBAでクリップボードへ文字列を送信・取得する3つの方法
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。