如何根据行值创建文件夹
如何根据行值创建文件夹
提问于 2019-03-01 20:05:01
首先，我想写一个宏来遍历每一行，所以如果项目的有效值大于10，就根据rows.in加法的值创建一个文件夹，而不是重复的文件夹！例如，如果存在行，则使用此名称创建一个文件夹20_NT25153_29.9，然后创建另一个item20
我想添加这句话，我知道我的代码很简单，但我是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 SubStack Overflow用户
发布于 2019-03-01 22:28:01
它适用于和我一样需要的人
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/54944317
复制相关文章
相似问题
腾讯云开发者
