周一至周五 : 08:30 - 17:30 客服专员电话/微信:17301649371 QQ:2627049059
微信咨询

扫码微信咨询

关注公众号

关注微信公众号

电话: 021 5161 9370
获取报价
个人中心
我的收藏
私信列表
消息中心
搜索全站

扫码关注微信公众号

微信咨询客服
返回顶部
将全部工作表名称写到A列
susan
显示全部楼层 倒序浏览 发表日期 2014-02-13 11:53:01 1818次阅读 0次回复
阅读排行
返回列表 发新帖
快表软件 › Excel表格教程及交流 › ExcelVBA开发 将全部工作表名称写到A列
楼主
susan
2014-2-13 11:53:01
显示全部楼层
Sub 将全部表名称写到A列()
    k = 1
    For Each sht In Sheets
        Cells(k + 1, 1) = sht.Name       '指定写入的行和列
        k = k + 1
    Next
End Sub
回复

举报

发布主题
返回列表
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则  允许回帖邮件提醒楼主

快表软件是国内较早研究表格类软件开发平台的团队之一，迄今已有十多年的行业经验.致力于为企事业单位提供实用可靠的数字化平台。

  • 微信公众号

  • 微信小商店

  • 微信客服

  • Powered by Discuz! X3.4 | Copyright © 2022-2024, XiRong Soft. | 快表软件
  • 沪ICP备13033196号 | 营业执照 |上海西戎软件科技有限公司|沪公网安备31011502002146号|沪ICP备13033196号 |