26. oktober 2001 - 12:49Der er
23 kommentarer og 3 løsninger
hent data fra exel til word...
Jeg har et dok i exel med mange ark i og herfra skal jeg ha kopieret nogle celler som er ens i alle ark. Det er nogle ark med forskellige data i og det er kun nogle enkelte celler som skal kopieres fra hvert ark. Disse celler skal jeg ha kopieret over i word som \"ikke formateret tekst\". Hvordan kan dette lade sig gøre.
Det nemmeste er at at kopiere i Excel og derefter placere dig i word-tabellen. Her vælger du indsæt speciel, uformatteret tekst. Medmindre det skal foregå automatisk *S*
I excel kan man også indsætte speciel og hvis du holder shift nede inden du klikker på \"rediger\" så får man flere muligheder - fx funktionen picturelink hvor man kan have en opdaterende miniudgave at noget i et andet ark eller fil. Word er også intergreret med disse funktioner
hvis jeg starter i exel og prøver at markere alle ark og markerer de celler som skal kopieres kommer der en fejlmeddelse...??? Denne kommande kan ikke udføres for flere ark på en gang
For at gøre det nemmere at forstå er det en masse ipadr som står i ark nummeret fra 1-100 som skal kopieres over i et worddok uden tabeller. Og de skal stå under hinanden.
Det vil sige.... det er der jo nok, men så skal du i gang med noget makroprogrammering. Og det vil nok tage længere tid, end lave den manuelle kopiering, hvis du kan skal gøre det en gang
har du prøvet at åbne regnearket fra Word? Det kan gøre tricket, har jeg lige opdaget. Den medtager ganske vist alle kolonner, men dem kan du jo bare slette efterfølgende.
Dette virkede i hvert fald på et lille eksempel, jeg lavede. Men jeg ved ikke, hvordan det går med et stort regneark
Ked af at komme for sent. denne makro indsættes i et nyt regneark. filen med 100 ark skal være åben samtidig med. Ret makroen til med korrekte celleområde og filnavn. Makroen finder nu samme celleomr i alle ark og kopier disse til det nye regneark. Derter er det bare at importere til word. Sub test() \'******************** Set asht = ThisWorkbook Set wb = Workbooks(\"Navn på filen med 100 ark\") \'******************** wb.Activate For Each sheet In wb.Worksheets sheet.Range(\"e3:e7\").Copy \'indsæt celleområde her asht.Activate Range(\"A65536\").End(xlUp).Select Selection.Offset(1, 0).Select ActiveSheet.Paste wb.Activate Next End Sub
Synes godt om
Ny brugerNybegynder
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.