Underlig Paste resultat fra VBA script
HejJeg sidder med noget eksternt måleudstyr jeg fjernbetjerner vha Excel og VBA. Jeg skal bruge nogle data fra udstyret, jeg kopiere og indsætter i regnearket. Hvis jeg gør det manuelt, dvs at jeg går over i programmet og klikker Kopi, går over i Excel og klikker Indsæt, så er der ikke noget i vejen. Hvis jeg vha mit vba script:
PULSEApplication.Project.DisplayOrganiser.DisplayGroups("Function Group").Displays("Output Response(Laser) - Magnitude").Copy
Range("A1").Select
ActiveSheet.Paste
hvor første linie er fra måleudstyret, så får jeg et forkert resultat. Så er det igang med at debugge!
Programmet lægger data ind i clipboarded som en tekst fil, og hvis man kigger på denne, så ser en linie ud som følger:
1 1,0000000000e+002 1,25215e-005
og det er rigtigte data. Hvis jeg efter en manuel Kopi Indsætter i en teksteditor, så får jeg det rigtige resultat, ligesom det også er rigtigt i regnearket. Hvis jeg sætter et breakpoint ind efter PULSE.Copy-tingen og før Paste, og kigger på hvad der ligger i clipboarded i en teksteditor, så er det også rigtigt, og hvis jeg Indsætter i regnearket, så er det også rigtigt. Hvis jeg stepper forbi Paste og kigger på regnearket, så skriver den:
1 1,00E+12 1,25E+00
i tre rubrikker selvfølgelig. Nu er tallene blot blevet en anelse større, og ved et nærmere kig, så passer det med decimalerne fra det rigtige resultat, dvs at 100 er blevet 1E10 større og 12,5µ er blevet 1E5 større. Er der nogen der kan gennemskue hvad der går galt? Jeg har prøvet med indsæt speciel, med samme uheld.
Kelvin :-)
