[已解决]怎样将文档信息加载到2007版页面下边？

hannanrenjie

我想把文档信息（单位，作者，日期等）加载到EXCEL2007页面的下边?
像图片这样。请问怎么设置?

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-2 15:12

1. Sub 文档信息()
   
2.     On Error Resume Next
   
3.     Dim str$
   
4.     With ThisWorkbook.BuiltinDocumentProperties
   
5.         str = "使用单位：" & .item("company") & Space(6)
   
6.         str = str & "当前操作员：" & .item("author") & Space(6)
   
7.         str = str & Format(Now(), "yyyy年m月d日")
   
8.     End With
   
9.     Application.StatusBar = str
   
10. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

用application.statusbar

云影

hwc2ycy 发表于 2013-2-2 13:10
用application.statusbar

老师具体怎样用呀

hwc2ycy

1. Sub 文档信息()
   
2.     On Error Resume Next
   
3.     Dim str$
   
4.     With ThisWorkbook.BuiltinDocumentProperties
   
5.         str = "使用单位：" & .item("company") & Space(6)
   
6.         str = str & "当前操作员：" & .item("author") & Space(6)
   
7.         str = str & Format(Now(), "yyyy年m月d日")
   
8.     End With
   
9.     Application.StatusBar = str
   
10. End Sub

复制代码