这段程序要实现的是：
把“电话回访记录_临时”表中的“退单”“发门锁单”所在行的一些信息，
写入“电话回访记录_所有”表中。
一直调试不通，报错：运行时错误‘9’，下标越界
Sub TuiDaMenSuoDan()
    Dim dateFaShengRiQi As Date
    Dim strYongHuDiZhi As String
    Dim strYongHuDianHua As String
    Dim strZhuangTai As String
    Dim strYuanGong As String
    Dim strFanYingRen As String
    Dim i As Integer
    Dim strGongZuoBiaoMing As String
    Dim wb As Workbook
    Dim intMuBiaoBiaoZuiHouYiHang As Integer
    Dim intGongZuoBiaoChangDu As Integer
'**********************************************
    Workbooks.Open Filename:="d:\Documents\电话回访记录_20210305\电话回访记录_所有.xlsx"
    strGongZuoBiaoMing = InputBox("请输入工作表名：")
    intGongZuoBiaoChangDu = Worksheets(strGongZuoBiaoMing).Range("A65536").End(xlUp).Row
    For i = 1 To intGongZuoBiaoChangDu
        If Trim(Sheets(strGongZuoBiaoMing).Cells(i, "C")) = "退单" Then
            dateFaShengRiQi = Sheets(strGongZuoBiaoMing).Cells(i, "D")
            strYongHuDiZhi = Sheets(strGongZuoBiaoMing).Cells(i, "I")
            strYongHuDianHua = Sheets(strGongZuoBiaoMing).Cells(i, "J")
            strZhuangTai = Sheets(strGongZuoBiaoMing).Cells(i, "C")
            If Sheets(strGongZuoBiaoMing).Cells(i, "N") = "" Then
                strYuanGong = ""
            Else
                strYuanGong = Sheets(strGongZuoBiaoMing).Cells(i, "N")
            End If
            strFanYingRen = Sheets(strGongZuoBiaoMing).Cells(i, "H")
            MsgBox (strFanYingRen)
'***********************************************
            intMuBiaoBiaoZuiHouYiHang = Worksheets(Trim("2021-03")).Range("A65536").End(xlUp).Row
            Sheets("2021-03").Cells(intMuBiaoBiaoZuiHouYiHang + 1, "A") = dateFaShengRiQi
            Sheets("2021-03").Cells(intMuBiaoBiaoZuiHouYiHang + 1, "B") = strYongHuDiZhi
            Sheets("2021-03").Cells(intMuBiaoBiaoZuiHouYiHang + 1, "C") = strYongHuDianHua
            Sheets("2021-03").Cells(intMuBiaoBiaoZuiHouYiHang + 1, "D") = strZhuangTai
            Sheets("2021-03").Cells(intMuBiaoBiaoZuiHouYiHang + 1, "E") = strYuanGong
            Sheets("2021-03").Cells(intMuBiaoBiaoZuiHouYiHang + 1, "H") = strFanYingRen
        End If
    Next i
'**********************************************
    For i = 1 To intGongZuoBiaoChangDu
        If Trim(Sheets(strGongZuoBiaoMing).Cells(i, "L")) = "发门锁单" Then
            dateFaShengRiQi = Sheets(strGongZuoBiaoMing).Cells(i, "D")
            strYongHuDiZhi = Sheets(strGongZuoBiaoMing).Cells(i, "I")
            strYongHuDianHua = Sheets(strGongZuoBiaoMing).Cells(i, "J")
            strZhuangTai = Sheets(strGongZuoBiaoMing).Cells(i, "L")
            If Sheets(strGongZuoBiaoMing).Cells(i, "N") = "" Then
                strYuanGong = ""
            Else
                strYuanGong = Sheets(strGongZuoBiaoMing).Cells(i, "N")
            End If
            strFanYingRen = Sheets(strGongZuoBiaoMing).Cells(i, "H")
            MsgBox (strFanYingRen)
'***********************************************
            intMuBiaoBiaoZuiHouYiHang = Worksheets(Trim("2021-03")).Range("A65536").End(xlUp).Row
            Sheets("2021-03").Cells(intMuBiaoBiaoZuiHouYiHang + 1, "A") = dateFaShengRiQi
            Sheets("2021-03").Cells(intMuBiaoBiaoZuiHouYiHang + 1, "B") = strYongHuDiZhi
            Sheets("2021-03").Cells(intMuBiaoBiaoZuiHouYiHang + 1, "C") = strYongHuDianHua
            Sheets("2021-03").Cells(intMuBiaoBiaoZuiHouYiHang + 1, "D") = strZhuangTai
            Sheets("2021-03").Cells(intMuBiaoBiaoZuiHouYiHang + 1, "E") = strYuanGong
            Sheets("2021-03").Cells(intMuBiaoBiaoZuiHouYiHang + 1, "H") = strFanYingRen
        End If
    Next i
End Sub
weixin_37711232

取出所给时间段内的月份

5条回答

为你推荐
