Avatar billede Falentin Seniormester
04. april 2019 - 23:53 Der er 1 løsning

PasteSpeical for klassen Range mislykkedes i VBA

Jeg kopier sætninger over fra Word, hvor gang der optræder et : til Excel.

Jeg har tidligere brugt denne kodestump, men jeg er begyndt at få fejlen en fejl ved Pastespecial. Kan nogen hjælpe?

Run-time error ´1004´:
Metoden PasteSpeical for klassen Range mislykkedes

Del af scriptet er:

' Finder og kopier i word

Dim orng As Range
    Set orng = ActiveDocument.Range
    With orng.Find
        Do While .Execute(FindText:=":")
            orng.Sentences(1).Select
            orng.Collapse 0
        Selection.Copy
     
         
  ' Indsætter i excel
   
    Worksheets("CSV").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
         
            Loop
        End With
lbl_Exit:
    Set orng = Nothing
Avatar billede Falentin Seniormester
28. april 2019 - 00:15 #1
det hjalp at indsætte

Application.Wait (Now + TimeValue("0:00:01"))

før den indsætter i excel.
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

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