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 :-) ?
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
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.