如何使文件夹基于行的值

问题描述 投票:0回答:3

首先,我想编写一个宏来遍历每一行,所以如果项目的值超过10,则根据该行的值创建一个文件夹。另外没有重复的文件夹!例如,如果有item20,则创建一个名为20_NT25153_29.9的文件夹,然后创建另一行

我想添加这句话,我知道我的代码很简单,但我是VBA的新手,因此需要更多的帮助:)

 Sub loopthrough()

    With Worksheets("Output_" & Date)
      fName5 = .Range("d").Value
      fName1 = .Range("B").Value
      fName2 = .Range("c").Value
      fName4 = "_"
      BrowseForFolder = CurDir()
    End With

    For Each cell In ActiveWorkbook.Worksheets
      If cell.Range("B").Value > "10" Then
          BrowseForFolder1 = BrowseForFolder & "\" & fName1 & fName2 & fName5
          MkDir BrowseForFolder1
      End If
    Next cell

   End Sub
excel vba
3个回答
2
投票

你可以使用这段代码:

Sub Macro1()

Dim lLastRow As Long
Dim sPath As String, sNewFolder As String

sPath = CurDir()
lLastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To lLastRow
    If Range("B" & i).Value > 10 Then
        sNewFolder = Range("B" & i).Value & "_" & Range("C" & i).Value & "_" & Range("D" & i).Value
        If Dir(sPath & "\" & sNewFolder, vbDirectory) = "" Then
            MkDir (sPath & "\" & sNewFolder)
        End If
    End If
    sNewFolder = vbNullString
Next

End Sub

Fisrt我检查基于A列的最后一行索引,而不是遍历整个工作表。在一个循环中,我使用了一个带有vbDirectory参数的Dir()函数,该函数在文件夹不存在时返回空字符串,在这种情况下它会创建一个文件夹。


0
投票

这就是你要追求的吗?

文件夹名称是列B值_列C值_列D值?

Sub loopthrough()

Dim cell As Range, fName4

BrowseForFolder = CurDir()
fName4 = "_"

With Worksheets("Output_" & Date)
    For Each cell In .Range("B1", .Range("B" & Rows.Count).End(xlUp))
        If cell.Value > 10 Then
            BrowseForFolder1 = BrowseForFolder & "\" & cell.Value & fName4 & cell.Offset(, 1).Value & fName4 & cell.Offset(, 2).Value
            MkDir BrowseForFolder1
        End If
    Next cell
End With

End Sub

0
投票

它适用于需要和我一样的人

 Sub Macro1()

Dim lLastRow As Long
Dim sPath As String, sNewFolder As String

sPath = CurDir()
lLastRow =        workbooks(sFilename).Sheets(1).Range("A:A").SpecialCells(xlCellTypeLastCell).Row

Workbooks(sFilename).Sheets(1).Activate

For i = 2 To lLastRow
If Workbooks(sFilename).Sheets(1).Cells(i, 2).Value >= 10 Then
    sNewFolder = ActiveSheet.Range("B" & i).Value & "_" & ActiveSheet.Range("C" & 
               i ).Value & "_" & ActiveSheet.Range("D" & i).Value
     If Dir(sPath & "\" & sNewFolder, vbDirectory) = "" Then
        MkDir (sPath & "\" & sNewFolder)
    End If
  End If
  sNewFolder = vbNullString
 Next

 End Sub
© www.soinside.com 2019 - 2024. All rights reserved.