[已解决]有实现代码功能的技巧？

FookYou

Book1.rar (9.74 KB, 下载次数: 9)

2012-3-5 17:56 上传

点击文件名下载附件
Sub aa()
  Dim Ws As Worksheet
  Dim k%
    For Each Ws In ThisWorkbook.Sheets
      k = k + 1
      Ws.Name = Replace(Ws.Name, "Sheet", "") & "日"
      Ws.Cells(2, 1) = VBA.DateSerial(2012, 3, k)
    Next
End Sub

最佳答案

月排行榜 / 总排行榜

faliming7

2012-3-8 09:13

FookYou 发表于 2012-3-7 22:32
不能修改~~~~~~~~？

把原文件保存为网页文件，单网页文件也行，用记事本打开，查找替换，保存修改，再用EXCEL打开这个网页文件，工作表名称已经修改，但文件后缀名是HTM，需要另存为EXCEL文件。

跳转到最佳答案楼层

tkgg93

参考 批量修改工作表名称的技巧 http://www.excelpx.com/thread-104066-1-1.html

FookYou

tkgg93 发表于 2012-3-5 18:31
参考 批量修改工作表名称的技巧 http://www.excelpx.com/thread-104066-1-1.html

谢谢~，晕！没装脚本编辑器~~~

faliming7

没装脚本编辑器可以先把文件保存，用IE打开，在IE的“查看”－“源文件”中进行代码修改，然后保存为EXCEL文件，再打开文件看看修改成功否？

cjainwei

都是高手，来学习了{:361:}

FookYou

faliming7 发表于 2012-3-5 19:01
没装脚本编辑器可以先把文件保存，用IE打开，在IE的“查看”－“源文件”中进行代码修改，然后保存为EXCEL文 ...

不能修改~~~~~~~~？

faliming7

FookYou 发表于 2012-3-7 22:32
不能修改~~~~~~~~？

把原文件保存为网页文件，单网页文件也行，用记事本打开，查找替换，保存修改，再用EXCEL打开这个网页文件，工作表名称已经修改，但文件后缀名是HTM，需要另存为EXCEL文件。

FookYou

faliming7 发表于 2012-3-8 09:13
把原文件保存为网页文件，单网页文件也行，用记事本打开，查找替换，保存修改，再用EXCEL打开这个网页文件 ...