Avatar billede peterkornum Nybegynder
03. august 2006 - 09:22 Der er 7 kommentarer

export fra excel til label ark i word

jeg har et excel ark med 2 kolloner
i 1. er der navn, adresse, by postnummer (seperet med komma)
og i 2. kollone er det person navn der skal stå att: xxxx

kan jeg expotere disse data til word?
jeg kan oploade excel og label ark hvis det hjælper?
Avatar billede supertekst Ekspert
03. august 2006 - 09:26 #1
Det skulle nok kunne lade sig gøre via VBA
Er det brevfletning du vil udføre i Word?
God ide at uploade...
Avatar billede mugs Novice
03. august 2006 - 10:24 #2
Prøv at søge i Excel kategorien og brug søgeordet Word, f.eks dette:

http://www.eksperten.dk/spm/608407
Avatar billede supertekst Ekspert
03. august 2006 - 11:05 #3
Var det en ide, at få en stump VBA, der adskiller de enkelte felter i kolonnne 1 - overføre dem til hver sin kolonne i et andet ark (kolonne 2 kommer naturligvis med) -således at du direkte kan anvende dette ark til brevfletning i Word?
Avatar billede peterkornum Nybegynder
03. august 2006 - 12:07 #4
Avatar billede peterkornum Nybegynder
03. august 2006 - 12:09 #5
ups defekt link prøv her http://kornum.info/filer/
Avatar billede supertekst Ekspert
03. august 2006 - 15:11 #6
Følgende kode indsættes i XLS.filen - VBA-vinduet (Alt+F11) - ThisWorkbook:
Ark 1 gennemlæses - felter flyttes til ark 2 med start i række 2, da jeg manuelthar indsat overskrifter. Navn | Adresse | Postnr By | Att. i række 1 - af hensyn til brevfletningen:

Hvis du ønsker det kan hele xls-filen sendes - send en mail til: pb@supertekst-it.dk
====================================================================================

Dim navn, adresse, postnrBy, att
Dim a2Ræk
Sub workbook_activate()
    Sheets(1).Select
   
    sv = MsgBox("Opbyg til etiketter", vbYesNo)
    If sv = 6 Then
        adskilFelter
       
        MsgBox ("Opbygning er afsluttet")
        Sheets(2).Select
        ActiveSheet.Columns.AutoFit
    End If
   
End Sub
Private Sub adskilFelter()
Dim ræk, maxRæk
    With ActiveWorkbook.Sheets(1)
        .Cells(1, 1).Select
        maxrække = ActiveCell.SpecialCells(xlLastCell).Row
       
        For ræk = 1 To maxrække
            felt = .Cells(ræk, 1)
            If Right(felt, 1) <> "," Then
                felt = felt + ","
            End If
       
            navn = hentDelfelt(felt)
            adresse = hentDelfelt(felt)
            postnrBy = hentDelfelt(felt)
            att = .Cells(ræk, 2)
           
            indsætFelter ræk + 1
        Next ræk
    End With
End Sub
Private Function hentDelfelt(felt)
Dim p
    p = InStr(felt, ",")
    If p > 0 Then
        hentDelfelt = Left(felt, p - 1)
        felt = Mid(felt, p + 1)
    End If
End Function
Private Sub indsætFelter(ræk)
    With ActiveWorkbook.Sheets(2)
        .Cells(ræk, 1) = navn
        .Cells(ræk, 2) = adresse
        .Cells(ræk, 3) = postnrBy
       
        If att <> "" Then
            .Cells(ræk, 4) = "Att.: " + att
        End If
    End With
End Sub
Avatar billede supertekst Ekspert
29. november 2007 - 16:49 #7
lukketid?
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
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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