MS Excel

Zdravim vsechny,
mam problem kdy potrebuju vyber bunek v excelu retezit do jedne textove promene a tu vlozit do clipboardu.
Bohuzel na WIN10 ci office 64b to nefunguje..
Poradi nekdo jak vyresit?

' Dim a As String
' Set MyData = New DataObject
'
' If Selection.Cells.Count > 1 Then
' For Each CurCell In Selection
' If CurCell.Value <> "" Then
' a = CurCell.Value & ";" & a
' End If
' Next CurCell
'
' MyData.SetText Left(a, Len(a) - 1)
' MyData.PutInClipboard
' End If

Zaslat odpověď >

Stalker(4.1.2022 21:40)#051827

https://wordmvp.com/FAQs/MacrosVBA/ManipulateClipboard.htm

Konkrétně:
The DataObject object is a part of the Forms library in VBA. In order to make this code work, you must do one of two things.

1) Have at least one UserForm in your project, or
2) in the VBA editor, go to Tools, References, and set a reference to the "Microsoft Forms 2.0 Object Library"

Objekt DataObject je součástí knihovny Forms v jazyce VBA. Aby tento kód fungoval, musíte udělat jednu ze dvou věcí.

1) mít v projektu alespoň jeden UserForm, nebo
2) v editoru VBA přejít do nabídky Nástroje, Odkazy a nastavit odkaz na "Knihovnu objektů Microsoft Forms 2.0".

U mě zafungoval bod 1, bod 2 nemám v nabídce referencí, office 2019citovat

eLCHa(6.1.2022 7:40)#051835

Dlouhodobě mi bez referencí v excelu i accesu funguje něco takového Dim clipboard As Object
Set clipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

With clipboard
.Clear
.SetText sText
.PutInClipboard
End With 'clipboard

Set clipboard = Nothingcitovat

Merlin99(7.1.2022 9:32)#051842

Děkuji všem za pomoc. Sice sem žádné z řešení nerozběhl ale zjistili jsme že stačí mít zavřené všechny složky průzkumníku a hned začne fungovat původní makro..pscho

citovat

Téma: Copy selection to clipboard

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje