21. januar 2015 - 21:34 Der er 3 kommentarer

Word vba

Jeg har et word dokument, som ser ud som nedenstående:
Initialer - indtastningsfelt
Cpr.nr. - felt
afdeling - felt
Jeg vil gerne ved hjælp af et exceldokument slå op, sådan at når jeg udfylder i initialer, så slår word op i en excelfil og returene cpr.nr og afdelingen i felterne nedenunder initialer - nogen bud :-) ?
Avatar billede EMEK Nybegynder
22. januar 2015 - 10:05 #1
Dette er egentlig også mit spørgsmål, så vi er i hvert fald 2 der meget gerne ville bede om lidt hjælp til dette... :)
Avatar billede supertekst Ekspert
22. januar 2015 - 10:58 #2
Er observeret - vender tilbage senere p.g.a. kundeopgaver..
Avatar billede supertekst Ekspert
22. januar 2015 - 15:01 #3
En model er klar - VBA koden i Word ser således ud:
Hvis i sender en mail - så returnerer jeg begge filer.
@-adresse under min profil.

Rem Reference til Microsoft Excel skal sættes via Alt+F9 / Tools / References

Const xlsFilNavn = "Datakilde.xlsx"
Dim xls As Object
Dim sti As String
Dim cprnr As String, afd As String
Private Sub Cb_ok_Click()
    sti = ActiveDocument.Path & "\"
   
    Set xls = CreateObject("Excel.Application")
    With xls
        .Workbooks.Open sti & xlsFilNavn
        .Visible = Visible
    End With
   
    findData Me.Tb_Id, Tb_cpr, Tb_Afd
   
    xls.ActiveWorkbook.Close
    Set xls = Nothing
   
    ActiveDocument.Activate
End Sub
Private Sub findData(id, cprnr, afd)
Dim antalRækker As Integer
   
    Application.ScreenUpdating = False
   
    With xls.ActiveWorkbook.Sheets(1)
        xls.ActiveSheet.Activate
        antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
       
        For ræk = 2 To antalRækker
            If LCase(.Range("A" & ræk)) = id Then
                cprnr = .Range("B" & ræk)
                afd = .Range("C" & ræk)
                Exit Sub
            End If
        Next ræk
    End With
    cprnr = "???"
    afd = "???"
End Sub
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

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