从Excel中导入Access数据文件在Excel中删除过滤器

Question

我从Access中导入数据（表格）文件，但我无法删除过滤器。我得到一个1004错误（范围删除失败）。我也无法手工删除它。

Sub Openaccessdatafile() 

'Niet blad updaten 
Application.ScreenUpdating = False 

Sheets.Add.Name = "Gegevens alginaten" 
    Set sh = ThisWorkbook.Sheets("Gegevens alginaten") 
LR = sh.Cells(Rows.Count, "A").End(xlUp).Row 
Filename = Application.GetOpenFilename("Excel files (*.xls*), *.xls*") 
MsgBox Filename 
If Filename <> False Then 
    Workbooks.Open (Filename) 
    ActiveSheet.UsedRange.Copy sh.Range("A" & LR) 
    ActiveWorkbook.Close 
Sheets("Start").Cells(2, 5).Value = "Ok" 
Else 
MsgBox "Geen bestand aangeklikt." 
Application.DisplayAlerts = False 
Sheets("Gegevens alginaten").Delete 
Application.DisplayAlerts = True 
End If 

'Wel blad updaten 
Application.ScreenUpdating = True 
Sheets("Start").Select 
End Sub 

Answer 1

显然用Access通过VBA宏按钮导出会更好。比我可以删除该行，因为过滤器不是在导出的文件中添加的。