excel中使用vba给页面设置添加页尾

1、首先我们打开一个工作样表作为例子。

2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Private Sub Workbook_Open()

Application.WindowState = xlMaximized

    ActiveWindow.WindowState = xlMaximized

ActiveSheet.PageSetup.RightFooter = ActiveWorkbook.FullName

End Sub

3、这里我们需要时在thisworkbook工作薄下进行输入，并对其进行声明，定义其是在打开时自动运行这个过程。

4、ActiveSheet.PageSetup.RightFooter语句是先激活工作表，然后在pagesetup页面设置属性中选择Rightfooter也就是右下角区域进行设置。

5、ActiveWorkbook.FullName是指的当前工作薄的包含路径在内的名称，这里是绝对路径和工作薄名称。

6、同理我们可以将其赋值修改为其他文本字符串，用双引号引用起来，比如这里我们写xx有限公司的字样。

7、先写到这里了，谢谢大家的观看。

祝大家生活愉快。

小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。

看不清楚图片的可以点击放大再看哦。