用户对问题“如何使用自己的VBA代码移动excel文件？”的回答

相关文章推荐

坏坏的海龟 · VBA) (Property Let ...· 2 月前 ·

帅气的山羊 · With statement (VBA) ...· 5 天前 ·

月球上的镜子 · PSSession 简介 - ...· 8 月前 ·

千年单身的肉夹馍 · Yann Lecun ...· 1 年前 ·

健壮的大熊猫 · java - No ...· 1 年前 ·

鼻子大的柑橘 · WSL 中的高级设置配置 | ...· 1 年前 ·

很拉风的烈酒 · 解决打不开 RSA 密钥容器 ...· 1 年前 ·

腾讯云

备案控制台

开发者社区

TVP

文章/答案/技术大牛

写文章

如何使用自己的VBA代码移动excel文件？

Private Sub btnReview_Click()
Dim FSO
Dim projectNumber As String
Dim fileSource As String
Dim fileDestination As String
projectNumber = Range("AI6").Value
    Set FSO = CreateObject("Scripting.FileSystemObject")
    fileSource = ActiveWorkbook.path & "\" & ActiveWorkbook.Name
    fileDestination = getProjectFolder(projectNumber)
    '        ActiveWorkbook.Close True
    FSO.MoveFile fileSource, fileDestination
End Sub

    Public Sub MoveMeToANewWorld()
        currentName = ThisWorkbook.Name,
        currentPathAndName = ThisWorkbook.FullName 
        currentPath = Replace(currentPathAndName, currentName, "")
        newPath = "NewFolder\"
    With ThisWorkbook
        .SaveAs Filename:= currentPath & newPath & currentName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    End with
'Deleting the OldFile
    With New FileSystemObject

推荐文章

坏坏的海龟 · VBA) (Property Let 語句 | Microsoft Learn

2 月前

帅气的山羊 · With statement (VBA) | Microsoft Learn

5 天前

月球上的镜子 · PSSession 简介 - PowerShell | Microsoft Learn

8 月前

千年单身的肉夹馍 · Yann Lecun 之前不认可大模型，为什么还是推出了 LLaMA？ - 智科帮的回答 - 知乎

1 年前

健壮的大熊猫 · java - No X509TrustManager Implementation available - Stack Overflow

1 年前

鼻子大的柑橘 · WSL 中的高级设置配置 | Microsoft Learn

1 年前

很拉风的烈酒 · 解决打不开 RSA 密钥容器即:加密web.config中的内容-阿里云开发者社区

1 年前

如何使用自己的VBA代码移动excel文件？

2 个回答