JET 드라이버 시트가있는 Excel 시트 참조가 밑줄로 중복 됨

Question

응용 프로그램이 실패 할 때까지 제대로 작동하는 JET 데이터베이스 드라이버로 Excel 문서를 참조하고 있습니다. 추가 조사를 통해 일부 인스턴스 (실제로 모든 탭)에서 탭이 복제되었음을 발견했습니다. 즉 Tab1 $ 및 Tab1 $ _. 이 문제를 조사한 결과 사용자가 필터를 적용했기 때문에 발생했습니다. 이제 필터가 제거되었으므로 특수 서식, 고정 된 창 또는 인쇄 형식은 없지만 이러한 탭은 복제되었습니다. 일반적으로 저는이 문제를 코드화 하겠지만, 코드가 고정되어 있으므로 Excel 기반 솔루션을 고안해야합니다. 그 미친 강조 표시된 탭 이름/경건을 제거하고 싶습니다. 필요한 경우 파일을 정리하여 사용자에게 다시 보낼 수있는 프로그램을 실행할 수 있지만 먼저 Excel 옵션을 탐색하려고합니다. 생각? 나는 Excel 2010을 가지고 있으며 다른 버전에도 액세스 할 수 있습니다.

Answer 1

밑줄 "시트"는 명명 된 범위입니다. VBA를 실행할 수 있습니까? 그렇다면 :

Dim defName As Name 
''Either 
With ThisWorkbook ''Entire workbook 
    For Each defName In .Names 
    MsgBox defName.Name 
    defName.Delete 
    Next 
End With 
''Or 
With Sheets("Sheet1") ''Scoped to sheet only 
    For Each defName In .Names 
    MsgBox defName.Name 
    defName.Delete 
    Next 
End With