Excel VBA 移动文件和文件夹

之前有博主的方法,然后觉得可以1和2结合一下,所以试试看。

先放上Excel VBA 移动文件和文件夹的方法。等我研究一下再放新方法。学习学习~

1、移动指定文件:

Public Sub 移动文件()
    Dim myFile As String
    Dim myNewFilePath As String
    Dim fso As Scripting.FileSystemObject
    myFile = ThisWorkbook.Path & "\test.txt"    '要移动的文件
    myNewFilePath = ThisWorkbook.Path & "\hhh\"    '要移动的位置
    Set fso = New Scripting.FileSystemObject
    If fso.FileExists(myFile) Then
        fso.MoveFile myFile, myNewFilePath
        MsgBox "已经将文件 " & myFile & " 移到了文件夹 " & myNewFilePath
    Else
        MsgBox "要移动的文件不存在"
    End If
    Set fso = Nothing
End Sub


  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18

2、移动文件夹:

Public Sub 移动文件夹()
    Dim myFolder As String
    Dim myNewFilePath As String
    Dim fso As Scripting.FileSystemObject
    myFolder = ThisWorkbook.Path & "\myfolder"    '要移动的文件夹
    myNewFilePath = ThisWorkbook.Path & "\testfile\"    '要移动的位置
    Set fso = New Scripting.FileSystemObject
    If fso.FolderExists(myFolder) Then
        fso.MoveFolder myFolder, myNewFilePath
        MsgBox "已经将文件夹 " & myFolder & " 移到了文件夹 " & myNewFilePath
    Else
        MsgBox "要移动的文件夹不存在"
    End If
    Set fso = Nothing
End Sub

你可能感兴趣的:(Excel)