Получают доступ другое учебное пособие из текущего учебного пособия, которое содержит макрос

Мне написали код для, каждый превосходит лист в форме Макроса В этом макросе, я произвожу копию текущего учебного пособия к различному местоположению. Теперь, я должен получить доступ, скопированный превосходит учебное пособие, чтобы удалить некоторые его Рабочие листы от макроса. кто-либо может сказать мне, как получить доступ к недавно скопированному листу от тока, превосходят листовой макрос?

0
nl ja de

1 ответы

Следующий код позволит вам редактировать копию своего учебного пособия:

Sub test()
    Dim wb As Workbook
    Dim strName as String

    strName = "" & ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs Filename:=strName
    Set wb = Workbooks.Open(strName)

    Application.DisplayAlerts = False 'Prevents that user is asked when sheets are deleted
    wb.Worksheets("Sheet1").Delete
    Application.DisplayAlerts = True

    wb.Close SaveChanges:=True
End Sub
0
добавлено
Ах, я вижу - жаль! Как вы создаете копию рабочего листа?
добавлено автор Peter Albert, источник
Посмотрите, работает ли новый код?!
добавлено автор Peter Albert, источник
Я просто изменил его, чтобы, конечно, использовать то же самое имя, пожалуйста, проверьте, работает ли это. Если нет: это действительно сохраняет учебное пособие? Это уже открыто?
добавлено автор Peter Albert, источник
Довольный это работало. Пожалуйста, не забывайте отмечать это как ответ и upvote, если он помог!:-)
добавлено автор Peter Albert, источник
Привет Питер, Спасибо за такой быстрый ответ. Но я думаю, что не получил то, что вы пытаетесь сказать. Я должен получить доступ к другому учебному пособию из своего текущего учебного пособия (позади которого макрос написан). вы могли, пожалуйста, сказать мне, как это может быть сделано с методом, который вы предложили? Ошибка I' m входящий в попытку этого предложенного кода связан с несоответствием типов.
добавлено автор Kaushik Datye, источник
использование этой линии - ActiveWorkbook. SaveCopyAs FileName: = "" & ActiveWorkbook. Имя
добавлено автор Kaushik Datye, источник
хорошо, я использовал ту же самую линию, чтобы открыть скопированное учебное пособие. Это isn' t работа. Я передаю filepath и имя файла с it' s протяженность workbook.open; тот же самый путь, поскольку вы сделали. Получая ошибку 1004 определенные применения или объект определили ошибку.
добавлено автор Kaushik Datye, источник
Спасибо за ответ. Я получил намек из того кода. Я сохранял копию с именем то же самое как activesheet.name. Однако, когда я поменял имя кроме activesheet.name не предоставление любой ошибки. Спасибо за ваш PROMT отвечает... теперь, что я проверю, если дальнейшие вещи будут хорошо работать.
добавлено автор Kaushik Datye, источник