所以我编写了一个脚本,使用其目录路径(通过userform文本框中的文本)打开某个工作簿,我希望能够在脚本结束时关闭它。 我的脚本当前使用文件目录打开工作簿,并从该工作簿复制一些内容并将其粘贴到当前工作簿中。我想要添加的唯一内容是工作簿在子结尾处关闭。
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 :(得分:1)
关闭工作簿:
wbk.Close
如果您想事先保存工作簿,请执行以下操作:
wbk.Save
wbk.Close