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

13 3

一、获取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

五、使用excel打开txt 并将打开的文件复制到指定到excel sheet 中

Workbooks.OpenText strLimitFilePath, Space:=True


 Set strSRCWorkBook = Workbooks(strWorkBookName)
 Set strDSTWorkBook = Workbooks(strProWorkBookName)


strSRCWorkBook.Worksheets(strSheetName).UsedRange.Copy  _ strDSTWorkBook.Worksheets("Limit_File").Cells(1, 1)  

 
strSRCWorkBook.Close

六、在指定的workbook 里面插入一张sheet

ThisWorkbook.Sheets.Add(Worksheets("Sheet1")).Name = "name"(插入name的sheet)


作者于2019-05-31 22:40:00修改!
楼主可见

  1. shwnyoo 3#

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

  2. shwnyoo 2#

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

  3. shwnyoo 1#

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