所以我编写了一个脚本,使用其目录路径(通过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
忍受我,我是一个超级新手 .
1 回答
要关闭工作簿:
如果要预先保存工作簿,请执行以下操作: