如何用VBA宏程序将excel中的内容批量复制到word文档中去

Posted 2023-05-16

抱歉，没有实际调试代码
DIR函数只返回文件名，不包含完整路径
所以请重新修改为以下代码：
Sub abc()
Dim App, WrdDoc, MyPath, MyFile, BM, Str
Mypath = "文件实际路径" \'请修改实际储存路径！
Set App = CreateObject("Word.Application") \'用Set关键字创建Word应用成序对象！
MyFile = Dir(Mypath & "\\*.doc") \' 获得第一个WORD文档
do while MyFile <> "" \' 遍历Mypath下面的所有WORD文档
App.Visible = True
Set WrdDoc = App.Documents.Open(Mypath & "\\" & MyFile) \'打开这个Word文件！
for each BM in WrdDoc.Bookmarks \' 遍历文档中的所有书签
Str = BM.Range \' 读取书签内容
next BM
WrdDoc.Close \' 关闭文件
MyFile = Dir \' 下一个WORD文档
Loop
Set App = Nothing
End Sub 参考技术A 找我 6 。，、9,，、59,822，、39

如何用宏给EXCEL文件加密码

我想就是用一个宏来给文件加密码，就是说刚开始不需要密码，等运行这个宏后，就有密码了，每次打开了需要输入密码。
就是需要宏，我想它到了一定日期就自动保护起来

给Excel工作簿加密码是对工作簿保护的最基本操作，简单易学易上手。

参考技术A

1.启动Excel，执行“工具→宏→Visual Basic 编辑器”命令，进入VBA编辑状态(如图1)。进入VBA编辑状态。

2.在左侧的“工程资源管理器”窗口中，选中“VBAproject(PERSONAL.XLS)”(个人宏工作簿)选项。

3.执行“插入→模块”命令，插入一个模块(模块1)。

4.将下述代码输入到右侧的代码编辑窗口中：
　　Sub Auto_close()
　　ActiveWorkbook.Password = "123456"
　　ActiveWorkbook.Save
　　End Sub
　　退出VBA编辑状态。
　　注意：这是一个退出Excel时自动运行的宏，其宏名称(Auto_close)不能修改。

5.以后在退出Excel时，软件自动为当前工作簿添加上密码(123456，可以根据需要修改)，并保存文档。

参考技术B

WBE中的工具功能中的VBAproject属性来处理完成

Excel版本参考：2010

1、ALT+F11组合键，调出VBE对话框

2、点工具-VBAproject属性

3、点击保护-勾选查看时锁定工程，输入密码，点击确定

4、保存后，关闭，重新打开

4、点击模块1，查看效果（未输入密码不可查看代码）

参考技术C 设置打开密码只有以下两句就好了
ActiveWorkbook.Password = "tt"
ActiveWorkbook.WritePassword = "yy"

对于保护密码设置可以参考如下内容。

对Excel工作表实现口令保护利用VBA调用Worksheet对象的Protect方法对工作表进行保护。
Protect带有以下参量：Password 用于保护工作表的口令。Drawingobjects 若为True，则对工作表中的Drawingobjects对象进行保护,缺省值为True。Contents 若为True，则对单元格内容进行保护，缺省值为True。下面程序代码完成对工作表“基础数据表”的保护：

Sub 保护工作表（）
Worksheets（〃基础数据表〃）.Protect Password:="1234"
End sub

对工作表实现隐藏保护，使他人无法看到工作表：利用VBA设置Worksheet对象的Visible属性来隐藏工作表；Visible属性的值为以下三个值中的一个：

True 工作表为显示状态。
False 工作表为隐藏状态。
XlVerHidden 工作表为隐藏状态，且用户不能通过“取消隐藏”对话框将其改为显示状态。当Visible的值为XlVerHidden时，只能利用VBA将其重新设置为True。

Sub 隐藏工作表（）
Worksheets("基础数据表").Visible=False
End sub本回答被提问者采纳 参考技术D 可以不用宏这么麻烦，EXCEL自身可以设置密码，分打开密码，和改写密码

选定EXCEL表格，然后另存为，另存为对话框右上角有个“工具（L）”，下拉选“常规选项”就可以设置密码了