19. januar 2010 - 11:32Der er
13 kommentarer og 1 løsning
Data fra Excel med VBA
Hej,
Jeg skal se om jeg kan forklarer mig, jeg har lavet en generator der laver en journalnotat alt efter hvad der er skrevet tidligere i skemaet, dette fungere også fint, men når hele journalnotatet er lavet står det i én celle som jeg så ønsker at kopiere over i et andet program (KMD-sag), men når jeg gør dette kommer teksten til at stå i en kasse, og jeg ved ikke hvordan jeg skal få den til at lade være.
Min kode ser således ud: Sub JournalNotat()
Dim Journal As String Dim Periode As String Dim Modtaget As Date 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
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
Hvad mener du med "kasse", og hvor optræder din kasse henne?
Hvor er det du indsætter dit data henne (excel eller) - din kode viser kun hvordan du sammensætter dit journalnummer, sætter det ind i C21, og kopiere det..
Teksten er i en kasse, ligesom når man sætter en tabel med tekst ind. Programmet jeg overfører til er KMD sag, det er et værktøj hos københavns kommune. Men det er sådan set heller ikke vigtigt at den selv overfører til programmet, da jeg ikke tror det kan lade sig gøre.
Det skal blot være muligt at bruge Ctrl+v og så få teksten uden tabel omkring.
Og nej jeg har ikke skrevet det i koden da jeg ikke ved hvad jeg skal skrive, er stadig en smule grøn i VBA.
Den kode du har skrevet kopierer cellens indhold til udklipsholderen.
Hvis der kommer en kase rundt om når du paster i et andet program, må det være det andet program der sætter kassen ind. Prøv at paste det ind i notepad, og se om det ikke virker.
Har du prøvet at sætte data ind i KMD, der er kopieret fra et andet sted? Er du SIKKER på, at det ikke bare er KMD programmet, der ALTID putter en kasse omkring det man paster?
Ellers skulle der være en paste special, hvor du kun sætter værdier ind (ligesom excel)
Ellers skal du skrive direkte til udklipsholderen fra Excel-koden - det kan garanteret gøres. Prøv at søg på "VBA Excel Clipboard" på f.eks. google. Så slipper du for at kopiere en celle, hvorfra den "kasse" du omtaler måske stammer...
Dim Journal As String Dim Periode As String Dim Modtaget As Date 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 cbObj As DataObject Set cbObj = New DataObject
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.
