vb 遍历sheet名和对数据循环处理并输出到文件

最新推荐文章于 2023-07-20 12:58:35 发布

ouyangyu0105

最新推荐文章于 2023-07-20 12:58:35 发布

阅读量1.9k

点赞数 2

分类专栏： VB 文章标签： vb循环

本文链接：https://blog.csdn.net/ouyangyu0105/article/details/48153191

版权

实现对工作簿中的工作表标签匹配，并对其中的数据进行加工处理，用到了循环遍历，及文件输出

Dim MyPath
Sub ClickThere()
'   得到当前活动工作簿的根目录
    MyPath = ActiveWorkbook.Path & "\"
    Close #1
'   打开文件
    Open MyPath & "test.txt" For Output As #1
'   填充数据
'    Call FillNum("ADS")
'    Call FillNum("SDS")
'    Call FillNum("RDM")
    Dim sh1 As Worksheet
'   匹配工作表名并调用对应sub
    For i = 1 To Workbooks(1).Worksheets.Count
        Workbooks(1).Activate
        Set sh1 = ActiveWorkbook.Worksheets(i)
        sh1.Activate
        sheetName = sh1.Name
        If sheetName = "OPT" Then
            Call OptionSub
        ElseIf sheetName = "FTP" Then
            Call FTPSub
        ElseIf sheetName = "ODS" Then
            Call ODSSub
        ElseIf sheetName = "DDS" Then
            Call DDSSub
        ElseIf sheetName = "ADS" Then
            Call ADSSub
        ElseIf sheetName = "SDS" Then
            Call SDSSub
        ElseIf sheetName = "RDM" Then
            Call RDMSub
        End If
    Next i
    Close #1
End Sub
'遍历工作表中的数据，并输出到文件
Sub OptionSub()
    Dim OPTNum As Integer
'   得到有效数据行
    OPTNum = Sheets("OPT").[B65536].End(xlUp).Row
'   循环控制，读取单元格数据
    For i = 1 To OPTNum
        S = Sheets("OPT").Range("B" & i).Text
        Print #1, S
    Next i
End Sub
Sub FTPSub()
    Dim FTPnum As Integer
    FTPnum = Sheets("FTP").[B65536].End(xlUp).Row
'    taskname,D,10,FTP,,ftpdownload,taskdely
    Print #1, "###FTP层"
    For i = 2 To FTPnum
        taskName = Sheets("FTP").Range("B" & i).

最低0.47元/天解锁文章