Avatar billede tvc Seniormester
06. februar 2006 - 23:37 Der er 10 kommentarer og
1 løsning

VBA test af om der er data indsættelse i hukommelsen

Hej

Jeg har en VBA hvor jeg indsætter nogle data fra et andet program. Data er kopieret med Ctrl. + C og indsættes i Excel med ActiveSheet.Paste.


Hvis der ikke er kopieret nogle data (der er ikke noget i udklipsbeholderen) så crasher min VBA.

Er der en der har en løsning så jeg evt. kan give brugeren en besked om at der ikke er kopieret noget og derpå give brugeren mulighed for at stoppe programmet?

Med venlig hilsen

TVC
Avatar billede kabbak Professor
07. februar 2006 - 00:25 #1
denne registrerer hvis der er tekst, men ikke hvis det er celler der er kopieret.

Dim MyData As DataObject

Public Sub test()
    Set MyData = New DataObject
    On Error GoTo Intet
    MyData.GetFromClipboard
    A = MyData.GetText(1)
    Exit Sub
Intet:
    MsgBox " Ingen data kopieret"
End Sub
Avatar billede tvc Seniormester
08. februar 2006 - 23:11 #2
Hej kabbak

Jeg prøver det lige i morgen aften, da jeg desværre har lidt for mange projekter igang til at prøve det nu :-)

Jeg vender lige tilbage når jeg har leget med det.

TVC
Avatar billede tvc Seniormester
10. februar 2006 - 23:46 #3
Synes ikke rigtig jeg kan få den til at fungere. Den stopper allerede ved

Dim MyData As DataObject

TVC
Avatar billede bak Forsker
11. februar 2006 - 00:11 #4
Det virker kun hvis du bruger det fra en form.
Avatar billede bak Forsker
11. februar 2006 - 00:36 #5
prøv det her måske

Sub test()

  If UBound(Application.ClipboardFormats()) > 1 Then MsgBox "Der er noget på clipboarded"

End Sub
Avatar billede bak Forsker
11. februar 2006 - 00:53 #6
eller

Public Declare Function CountClipboardFormats  Lib "user32" ()  As Long

Function IsClipboardEmpty() As Boolean
    IsClipboardEmpty = (CountClipboardFormats() = 0)
End Function
Avatar billede tvc Seniormester
04. marts 2006 - 22:53 #7
Jeg har ikke lige haft tid til at teste det nærmere, da mit program lige p.t. er gået i stykker ;-(

Jeg vender lige tilbage når jeg har fået det genoprettet.

TVC
Avatar billede tvc Seniormester
04. april 2006 - 17:26 #8
Har ikke glemt jer, men har ikke haft tid til at se på det endnu.

TVC
Avatar billede tvc Seniormester
01. maj 2006 - 16:49 #9
Hej Bak

Det virker perfekt! - Tak for hjælpen.

TVC
Avatar billede tvc Seniormester
01. maj 2006 - 16:49 #10
P.S. Smider du et svar?
Avatar billede bak Forsker
01. maj 2006 - 16:52 #11
ok :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester