2014-01-14 6 views
0

Таким образом, я написал сценарий, который открывает определенную книгу, используя ее путь к каталогу (через текст из текстового поля userform), и я хочу иметь возможность закрыть его в конце скрипта. В настоящее время мой скрипт открывает книгу с использованием каталога файлов и копирует что-то из этой книги и вставляет ее в текущую книгу. Единственное, что я хочу добавить, это то, что закрытие книги заканчивается в конце суб.Как я могу закодировать, чтобы закрыть открытую книгу, используя ее путь к каталогу вместо имени, используя vba в excel?

Sub A() 

    Dim wbk As Workbook 
    strFirstFile = Userform1.Command.Text 
    Set wbk = Workbooks.Open(strFirstFile) 
    With wbk.Sheets("Sheet1") 
    Range("A1").Select 
     Range(Selection, Selection.End(xlDown)).Select 
     Range(Selection, Selection.End(xlToRight)).Select 
     Selection.Copy 
    End With 
    Set wbk = ThisWorkbook 
    wbk.Sheets("dog").Range("A1").Insert 

End Sub 

Медведь со мной Я супер новичок.

+0

Не используйте ту же переменную, 'wbk', для обеих книг. Затем вы можете закрыть 'wbk', как в ответе armsthb. –

+0

спасибо, что имеет большой смысл! – SRoy

ответ

1

Чтобы закрыть Workbook:

wbk.Close 

Если вы хотите сохранить книгу заранее, сделайте следующее:

wbk.Save 
wbk.Close 
Смежные вопросы