Получить excel ячейки в буфере обмена

Четверг, 25 Июля 2019 г. 14:13 + в цитатник

Научился управлять данными в буфере обмена. Кладем что хочешь, получаем, что кладем. Проблем нет, когда кладем, можно xml положить, можно текст с разделителями. Ты положил, ты взял. А вот если кладет другое приложение, например Excel. То там только разделители строк, а вот разделители столбов 2 пробела. Вот код, как я забираю буфер:

Private Function GetClipboard() As String
On Error GoTo dalse
Dim a As Object
Set a = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
a.GetFromClipboard
GetClipboard = a.GetText(1)
Set a = Nothing
dalse:
End Function