vba 写一个打开工作簿后保存关闭的代码
时间: 2024-03-26 10:39:55 浏览: 28
你可以使用以下 VBA 代码打开一个工作簿并保存关闭它:
```
Sub OpenWorkbookAndSaveClose()
Dim wb As Workbook
Set wb = Workbooks.Open("C:\example\example.xlsx") '替换成你的工作簿路径
'在这里添加你需要执行的代码
wb.Save
wb.Close
End Sub
```
这个代码打开了一个名为 "example.xlsx" 的工作簿,执行了一些代码后保存并关闭了它。你可以将 "C:\example\example.xlsx" 替换成你的工作簿路径,然后在 `wb.Save` 和 `wb.Close` 之间添加你需要执行的代码。
相关问题
一个VBA代码保存在A工作簿,使其能增加一个选择打开B工作簿并在打开的B工作簿运行保存在A工作簿的代码新代码
可以使用下面的VBA代码实现:
```
Sub AddCodeToAnotherWorkbook()
Dim wb As Workbook
Dim codeModule As CodeModule
Dim newProcedure As String
'打开另一个工作簿
Set wb = Workbooks.Open("B工作簿路径")
'在另一个工作簿中添加新代码
Set codeModule = wb.VBProject.VBComponents("A工作簿代码模块").CodeModule
newProcedure = "Sub NewProcedure()" & vbNewLine _
& "'在此处添加新代码" & vbNewLine _
& "End Sub"
With codeModule
.InsertLines .CountOfLines + 1, newProcedure
End With
'关闭另一个工作簿
wb.Close SaveChanges:=True
End Sub
```
这段代码会打开B工作簿,然后在B工作簿中添加保存在A工作簿的新代码,最后关闭B工作簿。注意替换代码中的路径和新代码的内容为实际的值。
一个VBA代码保存在A工作簿,先需要增加一个代码使其选择打开B工作簿并在打开的B工作簿运行保存在A工作簿的代码
可以使用下面的VBA代码实现:
```
Sub RunCodeInAnotherWorkbook()
Dim wb As Workbook
Dim codeModule As CodeModule
'打开另一个工作簿
Set wb = Workbooks.Open("B工作簿路径")
'在另一个工作簿中运行代码
Set codeModule = wb.VBProject.VBComponents("A工作簿代码模块").CodeModule
codeModule.Run "保存在A工作簿的代码名称"
'关闭另一个工作簿
wb.Close SaveChanges:=True
End Sub
```
这段代码会打开B工作簿,然后在B工作簿中运行保存在A工作簿的指定代码,最后关闭B工作簿。注意替换代码中的路径和代码名称为实际的值。
相关推荐
![](https://img-home.csdnimg.cn/images/20210720083646.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)