Filtrere data med avanceret filtrer i excel inde fra word
Denne kode kører jeg inde fra excel.Sub AVfilter()
'
' Avanceretfilter Makro
'
'
Sheets("Data").Select
Range("C3").Select
Range("A1:DW500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets("Filter 1").Range("A1:J500"), CopyToRange:=Sheets("Dataark").Range("A2"), Unique:=False
Range("A2").Select
End Sub
Sådan ser mit excel ark altså ud:
Ark 1 = listeområde "A1:DW500"),
ark 2 = kriterieområde("A1:J500"),
ark 3 = kopier til.
Flg kode bliver afviklet, når et worddokument åbnes.
Sub SetFlet1Kvartal()
'
'
' Test antal rækker i databasen
'
Dim rk As Integer
On Error Resume Next
Set xlapp = GetObject(, "Excel.application")
If Err.Number <> 0 Then
Set xlapp = CreateObject("excel.Application")
End If
xlapp.Workbooks.Open FileName:="K:\Kontrolmappe elektriske maskiner og hjælpemidler.xls"
xlapp.Visible = False
rk = xlapp.ActiveWorkbook.Sheets(1).Range("c65536").End(xlUp).Row
xlapp.ActiveWorkbook.Saved = True
xlapp.ActiveWorkbook.Close
Set xlapp = Nothing
'
' Åbnbrevfletdatabase Makro
'
'
ActiveDocument.MailMerge.OpenDataSource Name:= _
"K:\Kontrolmappe elektriske maskiner og hjælpemidler.xls" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=K:\Kontrolmappe elektriske maskiner og hjælpemidler.xls;Mode=Read;Extended Properties=""HD" _
, SQLStatement:="SELECT * FROM `Dataark$`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess '
' Doctype Makro
'
'
ActiveDocument.MailMerge.MainDocumentType = wdCatalog
'
' Nytdoc Makro
'
'
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = rk - 1
End With
.Execute Pause:=False
End With
'
' LukhovedFletDoc Makro
'
Windows("Seneste notater elektriske maskiner og hjælpemidler, 1. kvartal") _
.Activate
ActiveWindow.Close SaveChanges:=False
End Sub
Jeg vil gerne afvikle excel koden inde fra word sammen med min øvrige kode i en kode. Kan det lade sig gøre?