Excel DataObj.PutInClipboard, mister formateringen
HejJeg har en tekst der skal kopieres fra Excel ind i et andet program, og det hele virker bortset fra en lille ting, når jeg skriver et beløb i tilskudsberettigetBeløb f.eks. 20022,75 laver den det om til 20023 når jeg indsætter det. Og det er uanset hvilket program jeg indsætter det i. Håber at der er nogen der kan hjælpe.
Den tekst der bliver kopieret ind i udklipsholderen er nedenstående:
Dim Journal As String
Dim Periode As String
Dim Modtaget As String
Dim Sygedage As Integer
Dim Tilskudsgrad As String
Dim TilskudsberettigetBeløb As Long
Dim FradragSygdom As Long
Dim Udbetaling As Long
Dim Navn As String
Dim DataObj As New MSForms.DataObject
Periode = ActiveSheet.Range("D17")
Modtaget = ActiveSheet.Range("D18")
Sygedage = ActiveSheet.Range("D10")
Tilskudsgrad = ActiveSheet.Range("D8")
TilskudsberettigetBeløb = ActiveSheet.Range("D7")
FradragSygdom = ActiveSheet.Range("D13")
Udbetaling = ActiveSheet.Range("D14")
Navn = ActiveSheet.Range("D16")
Journal = "Refusion : " & Periode & " (" & Modtaget & ")." & " " & Sygedage & " sygedage i perioden. Tilskud " & Tilskudsgrad & " x " & TilskudsberettigetBeløb & " - " & Sygedage & " sygedage kr. " & FradragSygdom & " = kr. " & Udbetaling & ". Anvist via KMD d.d i.h.t LAB §71." & " " & Navn & " BIF/Løntilskud"
DataObj.SetText Journal
DataObj.PutInClipboard