首页->【软件工具包使用(SW/Software Tools Usage)】

7 2

一、获取workbook的name
1.strWorkBookName = ThisWorkbook.Name

2.获取所有激活Sheet的名称
        For i = 1 To ActiveWorkbook.Worksheets.Count
            Set varSh = ActiveWorkbook.Worksheets(i)

            strSheetName = varSh.Name

        next i

二、对指定的sheet(如Job)进行激活以及操作:
Dim varSh As Variant

图片.png

三、读取Cells 里面的公式
图片.png

调试结果如下:
图片.png

Cells(1,1)内容如下:
图片.png

四、将字母对应的列转化为数字col
图片.png

作者于2019-05-17 23:20:08修改!
楼主可见

  1. shwnyoo 2#

    ***此内容已隐藏,只有楼主可见***

  2. shwnyoo 1#

    ***此内容已隐藏,只有楼主可见***