0

私はこのコードを持っています:

Sub MoveFiles()
Dim d As String, ext, x
Dim srcPath As String, destPath As String, srcFile As String
srcPath = "C:\test\"
destPath = "C:\test2\"
ext = Array("*.csv", "*.xls")
For Each x In ext
d = Dir(srcPath & x)
    Do While d <> ""
        srcFile = srcPath & d
        FileCopy srcFile, destPath & d
        Kill srcFile
        d = Dir
    Loop
Next
End Sub

ただし、srcPath 内のすべてのファイルが削除されます。私はactiveworkbook.nameを削除するだけで、すべてを削除する必要はありません。私はこのコードについてかなりの時間考えましたが、ループしないようにする方法と、それがすべきことを行う方法を理解することはできません.

これについての助けに感謝します

4

1 に答える 1

0

特定のファイルを強制終了したいだけなら、その繰り返しですべてのファイルを強制終了するループを使用するのはなぜですか?

特定のファイルを強制終了してループしたい場合は、次のような「if」句を追加する必要があります。

if srcFile = activewindow.name then
    kill
else
    do nothing
end if

それとも私はあなたを誤解しましたか？

于 2013-10-16T07:45:12.143 に答える