[求助]怎么用宏修改页眉页脚？－已解决

lionheart_w · 发表于 2008-9-23 17:10

cS7YIG6a.rar (7.78 KB, 下载次数: 55)

录了一个宏来自动添加页眉页脚，但是部分信息还是要手动修改。

求助能不能通过提示框来自动修改页眉页脚，有其它的方法也可以。

多谢！

[此贴子已经被作者于2008-9-24 16:08:16编辑过]

lionheart_w · 发表于 2008-9-24 11:21

可能我没有把我的目的说清楚。

我想要通过宏来把客户名称自动添加到页眉里面。目前为止我能想到的办法是通过提示框手动输入，或者从文件名里面提取，但是个人水平太差都实现不了。

求教各位，只要有一个办法能行就可以了！

lionheart_w · 发表于 2008-9-24 13:32

找到这样一个宏，可以把文件路径给替换掉，但是还是有后缀".xls"，能不能把路径跟后缀一起替换掉？

    With ActiveSheet.PageSetup
        .LeftHeader = Replace(ThisWorkbook.FullName, "C:\Documents and Settings\username\Desktop\", "")
    End With

lionheart_w · 发表于 2008-9-24 16:08

找到解决办法了

    With ActiveSheet.PageSetup
        .LeftHeader = Replace(ThisWorkbook.Name, ".xls", "")
    End With

8847753 · 发表于 2021-6-13 17:23

这个怎么用啊。。。老兄？

		自动登录	找回密码
密码			免费注册

[已解决] [求助]怎么用宏修改页眉页脚？ － 已解决