vba关闭另一个excel(vba关闭另一个工作簿)

1. vba关闭另一个工作簿

其实不用VBA就可以实现保护工作簿--结构--确定即可如果一定要用VBA的话，代码如下：ActiveWorkbook.Protect Structure:=True, Windows:=False

2. vba不保存关闭指定工作簿

右键点工作表标签处，可选择删除该表格，请教如何用代码屏蔽某个工作表内的“删除”项使该表删除不了，并提示“本表不能删除！”（只是其中一个工作表，不是全部工作表），有劳大侠指点，谢谢！

3. vba关闭另一个工作簿的快捷键

不打开工作表取数据：

Sub a()Dim wb As WorkbookDim str, xstr = "D:\d\123.xlsx"Set wb = GetObject(str) '取得123这个文件x = wb.Sheets(1).range("a1:c10000") '取得123文件a1:c10000的值Sheets(1).Range("b1") = x '把值取出来放到新的工作表End Sub

4. vba关闭其他工作簿

直接用一句代码实现——Unload me关于VBA中Unload的相关知识： Unload语句在vba状态下使用。其功能是从内存中卸载窗体或控件。 Unload语法：Unload object object所在处是要卸载的Form对象或控件数据元素的名称。 说明： 当所占内存另有它用，或需要重新设置窗体、控件的属性为初始值时，就有必要卸载窗体或控件。

5. vba如何关闭并保存某个打开的工作簿

Subsave_data()

Dimnew_BookAsWorkbook

Setnew_Book=Workbooks.Add'新建一个EXCEL文件

ThisWorkbook.Sheets("指定工作表").Copybefore:=new_Book.Sheets(1)'将“指定工作表”复制到新文件中

new_Book.Activate'切换到新文件

Cells.Select'全选单元格

Selection.Copy'复制并选择性粘贴为数值，去除公式

Selection.PasteSpecialPaste:=xlPasteValues,Operation:=xlNone,SkipBlanks_

:=False,Transpose:=False

new_Book.SaveAs"D:\"&Range("D16")&".xls"'以D16中的内容为文件名，保存至D盘根目录下

EndSub

6. vba删除指定工作簿

可以先打开指定的工作簿，然后将要保存的的公式的单元格用复制或者剪裁方式进行操作，在指定工作簿的工作表的指定位置用选择性粘贴，然后保存指定的工作簿并关闭。将源工作簿的单元格设为空即可。你要用的关键字：rang().select(选择）

;select.copy（拷贝）;rang().PasteSpecial（选择性粘贴）;

顶一下

(0)

0%

踩一下

(0)

0%