從Excel中導入Access數據文件在Excel中刪除過濾器

我從Access中導入數據（表格）文件，但我無法刪除過濾器。我得到一個1004錯誤（範圍刪除失敗）。我也無法手工刪除它。從Excel中導入Access數據文件在Excel中刪除過濾器

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

來源

2015-03-02 Helfenstein

請張貼您的代碼。 – Rory 2015-03-02 11:39:56

好評。正如你所看到的，我從一個從Access導出到Excel的Excel文件導入文件。 – Helfenstein 2015-03-02 15:01:09

我假設你試圖從你打開的工作簿中刪除一個過濾器（代碼中沒有任何東西） - 它是格式化爲表還是常規範圍？ – Rory 2015-03-02 15:06:52