• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Gegevens op clipboard plaatsen

  • Onderwerp starter Onderwerp starter EfBe
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
E

EfBe

Gebruiker
Lid geworden
15 dec 2008
Berichten
45
Goede avond,
Ik wil gegevens op het clipboard zetten en deze gegevens dan plakken op www om aan te melden.

Code: 
Sub KopieAanmelden()
Dim Clipboard As MSForms.DataObject
Set Clipboard = New MSForms.DataObject
Dim Kopie As New MSForms.DataObject
Set Kopie = New MSForms.DataObject
    
    Kopie.SetText "EfBe"
    Kopie.PutInClipboard

End Sub
 
Dit is voldoende:
Code: 
Sub KopieAanmelden()
    With New MSForms.DataObject
        .SetText "EfBe"
        .PutInClipboard
    End With
End Sub

Wel eerst even dit doen:
In de VBA editor: Menu > Extra > Verwijzingen...
Aanvinken: "Microsoft Forms 2.0 Object Library"

Plakken kan dan met Ctrl-V
 
Laatst bewerkt:
Edmoor, bedankt voor uw reactie maar het resultaat is dit (CtrlV) ￿￿
Zie schermafdruk
 

Bijlagen

  • Clipboard.jpg
    Clipboard.jpg
    28,5 KB · Weergaven: 60
Werkt hier prima, waarom bij jou dan niet weet ik niet.
De code is goed.

Plak het eens in een kladblok bestand.
Ook niet goed?
 
In kladblok Ctrl V geeft niets.
Ik heb nu het volgende gedaan:
Excel afgesloten en terug opgestart - blijft identiek
Alles afgesloten en pc 'Opnieuw opstarten'
Excel en routine starten en nu werkt het, ook met de (langere) code die ik had.
Nu ga ik verder zoeken om ook het bijhorende wachtwoord te kopiëren.

Misschien kan u een tip geven

Bedankt voor de hulp
 
Wat ik plaatste is echt voldoende.
 
Volgens mij bug in Windows10 (bij sommige gebruikers)
je kunt dit omzeilen met een API oplossing of jouw tekst "Efbe" in een cel te plaatsen en deze cel kopiëren
 
Ik heb ook nu en dan een probleem met harde schijf op mijn netwerk.
Ik krijg dan een foutmelding "Kan de verbinding met NAS .. niet maken, te weinig geheugen."
Opnieuw opstarten en dat werkt terug.
Vandaar dat ik het ook probeerde met deze code.
@Edmoor ik gebruik uw code.
@Evr Als het probleem frequent gaat voorkomen schakel ik over naar uw voorstel.
@ beide bedankt voor uw hulp
 
Kan ook zo:

Code: 
Sub M_snb_in_klembord_zetten()
  With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    SetText "snb"
    .PutInClipboard
  End With
End Sub
 
Het probleem wordt veroorzaakt door Windows 10 en is op te lossen door alle vensters van Windows Verkenner (Explorer) te sluiten.
 
@jkpieterse, ik gebruik Google Chrome. Enkel opnieuw opstarten helpt.
@Edmoor, snb en E v R, alle aangereikte oplossingen werken perfect, maar niet lang.
Alleen de waarde in een cel zetten en kopiëren blijft werken.
 
Ik heb het niet over een browser maar over windows verkenner, Explorer
 
EfBe zei:
@Edmoor, snb en E v R, alle aangereikte oplossingen werken perfect, maar niet lang.
Alleen de waarde in een cel zetten en kopiëren blijft werken.
Klik om te vergroten...
Dat heeft niets te maken met het door VBA laten plaatsen van een stuk tekst op het Clipboard.
Uiteraard kan dat door een andere actie weer overschreven worden.
 
Laatst bewerkt:
@jkpieterse Als ik verkenner open bv 'Downloads' werkt de macro niet meer, gewoon naar 'Deze PC' of verkenner afsluiten ==>alles terug OK, een andere map kiezen werkt niet meer.
 
Dat is precies wat ik bedoel, verkenner open hebben zorgt ervoor dat het dataobject in vba niet werkt.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan