VBA script - oprava

Místo pro dotazy a rady ohledně programovacích jazyků (C++, C#, PHP, ASP, Javascript, VBS..) a tvorby webových stránek

Moderátor: Mods_senior

Uživatelský avatar
Grander
Level 4.5
Level 4.5
Příspěvky: 1895
Registrován: leden 12
Pohlaví: Muž

VBA script - oprava

Příspěvekod Grander » 04 led 2023 18:45

Ahoj mám tu VBA script, který něco dělá v PowerPointu (2019), a výsledkem je, že vygeneruje řetězec, a tento řetězec (tedy v příkladu 999999) zapíše do schránky. Ta první část s vygenerováním funguje (MsgBox správně zobrazí těch 99999), ale ten zápis do schránky nějak ne - když dám Ctrl+V třeba v poznámkovém bloku, tak se nic nestane.
Mohli byste prosím říct, v čem je problém a případně opravit? Děkuji.

Kód: Vybrat vše

Sub hexString()
Dim hexString As String
    hexString = 999999
    Dim data As New DataObject
    data.SetText (hexString)
    data.PutInClipboard
    MsgBox hexString
End Sub


Reklama
Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3224
Registrován: říjen 08
Pohlaví: Muž

Re: VBA script - oprava

Příspěvekod atari » 04 led 2023 21:54

Máš tohle zaškrtnuto: VBA > TOOLS > REFERENCES > "Microsoft Forms 2.0 Object LIbrary" ?
Naposledy upravil(a) atari dne 05 led 2023 09:55, celkem upraveno 1 x.

Uživatelský avatar
Grander
Level 4.5
Level 4.5
Příspěvky: 1895
Registrován: leden 12
Pohlaví: Muž

Re: VBA script - oprava

Příspěvekod Grander » 04 led 2023 22:41

Jj, to mám.

Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3224
Registrován: říjen 08
Pohlaví: Muž

Re: VBA script - oprava

Příspěvekod atari » 05 led 2023 09:37

V kodu problém není. Mně ten kod funguje a do schránky to vloží, to co má.

Hledal bych problém ve WIN. Existují různé programy, které pracují se schránkou. Tak možná to třeba nějak blokují. Nic jiného mě nenapadá.

Dodatečně přidáno po 8 minutách 25 vteřinách:
Ještě mě napadlo zkus to napsat v klasickém VB nebo PowerShellu, a uvidíš jestli to bude fungovat. To by mohla být nápověda, kde je chyba.

Uživatelský avatar
Grander
Level 4.5
Level 4.5
Příspěvky: 1895
Registrován: leden 12
Pohlaví: Muž

Re: VBA script - oprava

Příspěvekod Grander » 12 led 2023 13:48

Děkuji!
Proč to nešlo, jsem nezjistil, nicméně nakonec jsem ten script celkově poupravil, udělal z něj samostatně fungující VBS a do schránky to zapisuji přes shell:

Kód: Vybrat vše

Set objShell = CreateObject("WScript.Shell")
objShell.Run "cmd /c echo " & hexString & "| clip", 0, True


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Win 10 - Automatická oprava
    od prochy7b » 29 bře 2024 16:19 » v Windows 11, 10, 8...
    12
    3058
    od zeus
    31 bře 2024 11:07
  • Oprava TV Blaupunkt B50A148TC
    od Tvrbar » 17 pro 2023 19:37 » v Problémy s hardwarem
    6
    1000
    od Tvrbar
    18 pro 2023 19:40
  • Oprava telefonu, co vše bude potřeba - Xiaomi Redmi Note 11
    od HelFix » 05 úno 2024 07:55 » v Mobily, tablety a jiná přenosná zařízení
    10
    2718
    od Serg01
    07 bře 2024 02:35

Zpět na “Programování a tvorba webu”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů