Olen kerännyt tietoja leikepöydälle seuraavalla tavalla. Tähän asti se on toiminut, mutta nyt Excel on päättänyt tuottaa leikepöydälle pelkkää älämölöä. Excelissä tämä näkyy ruutuina ja notepad ssa mustalla pohjalla näkyvinä "xEF"-merkkeinä. Mistähän tämä mahtaa kiikastaa? Koneessa on W10 ja Office on 2016. Uuden Officen jälkeen on ollut selittämättömiä ongelmia.
Dim s As String
Set MyData = New DataObject
MyData.SetText (s) ' muuttujan s sisällöllä ei ole väliä, aina sama juttu
MyData.PutInClipboard
Dim s As String
Set MyData = New DataObject
MyData.SetText (s) ' muuttujan s sisällöllä ei ole väliä, aina sama juttu
MyData.PutInClipboard
Vastaukset 5
Vanhimmat
Kokeile+vaihtaa+muuttujatyyppi+Dim+s+As+Variant
En tehnyt muutoksia, mutta nyt se yllättäen taas toimii. Samanlainen vika oli joskus aiemminkin. On tämä kanssa...
Toimii, ei toimi, toimii... Taas on toimimaton.
win 10 päivittelee...
Microsoftin bugi, mutta löytyi kiertotie:
https://msdn.microsoft.com/en-us/library/office/ff192913.aspx