A reference to Microsoft Scripting Runtime (scrrun.dll) must be added in Tools References. Alternatively, either a late binding approach can be used, e.g. Sub Main() Dim fso Set fso = CreateObject("Scripting.FileSystemObject") SourceFile = " C:\MyFile.xls" ' Define source file name. DestinationFile = " C:\MyFile_Copy.xls" ' Define target file name. ' Copy source to target. ret = fso.CopyFile(SourceFile, DestinationFile, True) End Sub Or just use the VBA FileCopy Statement, e.g. Sub Main() SourceFile = " C:\MyFile.xls" ' Define source file name. DestinationFile = " C:\MyFile_Copy.xls" ' Define target file name. FileCopy SourceFile, DestinationFile End Sub
↧