2013-11-22 3 views
1

Я не знаю, почему мой выбор для диапазона не работает в этой строке. Это правильный синтаксис для диапазона.Excel 2007 ActiveWorkbook.Sheets («Feuil1»). Диапазон («A1»). Выберите

ActiveWorkbook.Sheets("Report M-1").Select 
ActiveSheet.Rows("1:1").Find("Operational Categorization Tier 1").Activate 
ActiveSheet.Rows("1:1").AutoFilter field:=5, Criteria1:="SECURITY TROUBLE" 
ActiveSheet.Range("A1").CurrentRegion.Copy 

If FeuilleExiste("Feuil1") = False Then 
    ActiveWorkbook.Sheets.Add 
End If 

****ActiveWorkbook.Sheets("Feuil1").Range("A1:").Select**** 
Selection.PasteSpecial xlPasteAll 
ActiveWorkbook.Save 

'suppression filtre 
Workbooks("Monthly security report May.xls").Activate 
ActiveSheet.Rows("1:1").AutoFilter 

ответ

2

*** ActiveWorkbook.Sheets ("Feuil1") Range ("A1:").. Выберите ****

Вы в диапазоне дополнительный :.

Это должно быть

ActiveWorkbook.Sheets("Feuil1").Range("A1").Select 

BTW вы должны избегать использования .Select. Возможно, вы захотите увидеть THIS LINK

+1

Вы можете просто создать комментарий для этого изменения. – Makah

+0

@Makah: Я мог бы и я сделал это в прошлом, но комментарии временные :) И, следовательно, хорошо оставить ответ. Не стесняйтесь понижать его, если вы не согласны ... –

+0

thx для подсказки – user1918315

Смежные вопросы