Question

也许有人可以帮助我。

我正在寻找一个vba代码，该代码在文件夹中搜索文件名的关键词，然后将找到的这些文件移动到anthor文件夹中。

关键字存储在excel的A列中。

我使用了以下代码，并且部分起作用。问题在于，在以下代码中，列A必须包含确切的文件名。我希望vba搜索关键字。另一件事是文件必须被移动而不是被复制。如果文件已移动，则在B列中有检入。

Sub Test()

Dim R As Range, r1 As Range
Dim SourcePath As String, DestPath As String, FName As String

SourcePath = "C:\Downloads\"
DestPath = "C:\Downloads\New folder\"
Set r1 = Range("A1", Range("A" & Rows.Count).End(xlUp))

For Each R In r1
FName = Dir(SourcePath & R)

 Do While FName <> ""

   If Application.CountIf(r1, FName) Then
      FileCopy SourcePath & FName, DestPath & FName

     R.Offset(0, 1).Value = FName

  Else

     MsgBox "Bad file: " & FName & " ==>" & FName & "<== "

  End If

   FName = Dir()
 Loop
Next
End Sub

Answer 1

如果您的范围仅包含文件的关键字，则可以在public void getImages(String size) { for (int i = 1; i <= 10; i++) { LinearLayout.LayoutParams lp = new LinearLayout.LayoutParams(LinearLayout.LayoutParams.MATCH_PARENT, LinearLayout.LayoutParams.MATCH_PARENT); SimpleDraweeView draweeView = new SimpleDraweeView(this); draweeView.setLayoutParams(lp); draweeView.setMinimumWidth(150); draweeView.setMinimumHeight(1500); // Adds the view to the layout linearLayout.addView(draweeView); Uri uri = Uri.parse("https://desolate-beach-17272.herokuapp.com/downloadFile/" + size + "mb" + i + ".jpg"); draweeView.setImageURI(uri); } }函数中使用通配符。像这样：

Dir

然后它将处理使用该关键字的所有文件。

使用VBA搜索并将文件移动到另一个文件夹

1 个答案: