|
|
| Тема |
 ActiveSheet.ShowAllData помощ |
|
| Автор |
angala () |
|
| Публикувано | 08.07.10 13:34 |
|
|
|
Направих макрос, който отваря файла bazaBP, избира шит 1 и го копира във файла Edos в шит 1. Така макроса работи без проблем, но шит 1 от файла bazaBP се ползва от много хора и се използва филтър. За да ми копира цялата информация сложих "ActiveSheet.ShowAllData", но пък ми се появи проблем, че когато в шит1 на файла bazaBP, не е използван филтър на този ред дава грешка. Моля посъветвайте ме какво да добавя, за да може да се копира цялата информация и в двата случая, когато има и когато няма избран филтър и макроса да работи.
А ето икода на макроса:
Sub Macro2()
Workbooks.Open Filename:= _
"\\.................\bazaBP.xls", Password:=".....", ReadOnly:=True, UpdateLinks:= _
0
Sheets("1").Select
ActiveSheet.ShowAllData
Cells.Select
Selection.Copy
Windows("Edos.xls").Activate
Sheets("1").Select
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("bazaBP.xls").Activate
ActiveWindow.Close SaveChanges:=False
End Sub
Благодаря предварително на отзовалите се.
| |
| |
| 
|
|
