小编Nid*_*enK的帖子

我正在尝试创建代码来检查名称列。我想将文件分类为三类（名称分别在AG，HP，QZ之间）。

在保存文件之前，我想出了一个案例说明是正确的方法，但是不确定是否需要利用instr函数或类似的东西。

这是我目前如何设置的一个粗略示例（注释了case语句）。

        Dim BASEPATH_1 As String, BASEPATH_2 As String, BASEPATH_3 As String


        BASEPATH_1 = "C:\Users\A-G\"
        BASEPATH_2 = "C:\Users\H-P\"
        BASEPATH_3 = "C:\Users\Q-Z\"


        Select Case wb.Cells(i, 8)
        'Case i.value is betwen "A-G"
            wb.SaveCopyAs BASEPATH_1 & _
            ValidFileName(Login & "_" & Last & "_PrePlanning File.xlsx")
        'Case i.value is betwen "H-P"
            wb.SaveCopyAs BASEPATH_2 & _
            ValidFileName(Login & "_" & Last & "_PrePlanning File.xlsx")
        'Case i.value is betwen "Q-Z"
            wb.SaveCopyAs BASEPATH_3 & _
            ValidFileName(Login & "_" & Last & "_PrePlanning File.xlsx")
        Case …