[已解决]复制文件为何不能成功？

ligh1298

求助：复制文件为何不能成功？弹出提示

Sub 复制()'以下复制的代码是一行，是论坛原因分成两行了。
FileCopy "C:\Documents and  Settings\Administrator\Application  Data\Microsoft\Excel\XLSTART\PERSONAL.XLSB", "D:\PERSONAL.XLSB"
End Sub

最佳答案

月排行榜 / 总排行榜

妞叫七七

2013-7-10 09:43

文件在打开时,无法复制的,你这个在启动文件夹的文件,打开EXCEL就会打开的

跳转到最佳答案楼层

妞叫七七

文件在打开时,无法复制的,你这个在启动文件夹的文件,打开EXCEL就会打开的

ligh1298

妞叫七七 发表于 2013-7-10 09:43
文件在打开时,无法复制的,你这个在启动文件夹的文件,打开EXCEL就会打开的

明白了，谢谢哈！不愧为“大佬”级人物！

爱疯

http://support.microsoft.com/kb/207703/zh-cn
照上面的方法，我试了可以复制（已打开的文件）



Option Explicit
Declare Function apiCopyFile Lib "kernel32" Alias "CopyFileA" _
                             (ByVal lpExistingFileName As String, _
                              ByVal lpNewFileName As String, _
                              ByVal bFailIfExists As Long) As Long

Sub CopyFile(SourceFile As String, DestFile As String)
'---------------------------------------------------------------
' PURPOSE: Copy a file on disk from one location to another.
' ACCEPTS: The name of the source file and destination file.
' RETURNS: Nothing
'---------------------------------------------------------------
    Dim Result As Long
    If Dir(SourceFile) = "" Then
        MsgBox Chr(34) & SourceFile & Chr(34) & _
             " is not valid file name."
    Else
        Result = apiCopyFile(SourceFile, DestFile, False)
    End If
End Sub
Sub 复制2()
    CopyFile "C:\Documents and Settings\Administrator\Application Data\Microsoft\AddIns\宏病毒免疫工具v5.0.xla", "D:\宏病毒免疫工具v5.0.xla"
End Sub

旧书重读

妞叫七七 发表于 2013-7-10 09:43
文件在打开时,无法复制的,你这个在启动文件夹的文件,打开EXCEL就会打开的

原来如此