< návrat zpět

MS Excel


Téma: Copy selection to clipboard rss

Zaslal/a 4.1.2022 13:26

Merlin99Zdravim 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? 7 8

' 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ěď >

#051827
Stalker
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
icon #051835
eLCHa
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 = Nothing
citovat
#051842
Merlin99
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
5 9citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Makro na upozornění události

elninoslov • 21.5. 2:38

Sloučení dat dvou sešitů

Scraper • 20.5. 7:55

Sloučení dat dvou sešitů

Stalker • 19.5. 23:06

Makro na upozornění události

parkovec • 19.5. 21:07

plynulá pomalá změna barvy

PavDD • 19.5. 13:47

plynulá pomalá změna barvy

veny • 19.5. 13:23

plynulá pomalá změna barvy

r13 • 19.5. 12:37