エクセルVBAでセル範囲のデータをクリップボードに

質問

• エクセルVBAを使用して、セル範囲のデータをテキストとしてクリップボードに取り込む方法について解説します。
• 具体的なコード例として、セル範囲A1:B3をクリップボードに貼る方法を紹介します。
• より広い範囲のデータを取り込む場合には、複数のセル範囲の値を連結し、テキストとしてクリップボードにセットすることができます。

回答No.5

end-u · ベストアンサー

横いりすみません。

必要範囲をCoryしたら、
DataObjectのGetFromClipboardメソッドを使ってクリップボードデータを取得します。
そこからさらにDataObjectのGetTextメソッドを使うとテキスト文字列だけ取り出せます。
その後、DataObjectをClearして
あらためて取り出したテキスト文字列をSetTextすれば良いです。
各メソッドについては、DataObjectのヘルプを見て下さい。

ただし、OutlookならCtrl+VまでVBAでやれば良い気がしますが。
http://outlooklab.wordpress.com/
この辺りを参考にしてみると良いかと。
Sub try()
　　Const olFolderInbox As Long = 6
　　Const olMailItem As Long = 0
　　Dim obj As Object
　　Dim ins As Object
　　Dim m　 As Object
　　Dim tmp As String

　　If TypeName(Selection) <> "Range" Then Exit Sub

　　Selection.Copy
　　With New DataObject
　　　　.GetFromClipboard
　　　　tmp = .GetText
　　　　.Clear
　　End With
　　Application.CutCopyMode = False

　　On Error Resume Next
　　Set obj = GetObject(, "Outlook.Application")
　　On Error GoTo 0
　　If obj Is Nothing Then
　　　　Set obj = CreateObject("Outlook.Application")
　　　　obj.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Display
　　End If

　　For Each ins In obj.Inspectors
　　　　With ins.CurrentItem
　　　　　　If .MessageClass = "IPM.Note" Then
　　　　　　　　If Not .Sent Then
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　End If
　　　　End With
　　Next

　　If ins Is Nothing Then
　　　　Set m = obj.CreateItem(olMailItem)
　　Else
　　　　Set m = ins.CurrentItem
　　　　Set ins = Nothing
　　End If

　　m.body = tmp
　　m.Display

　　Set m = Nothing
　　Set obj = Nothing
End Sub

お礼

ほんとうにお世話になりました。
ありがとうございます。