SourceFile="模æ¿æ件夹\模æ¿1æ件"
DestinationFile ="åæ¡£æ件夹\" & "æ¥è¯¢ç¼å·çæ°å" & "åç¼(.xlsæ.xlsxï¼ä¸åæ件çåç¼ç¸å)
FileCopy SourceFile, DestinationFile ' å°æºæ件çå
容å¤å¶å°ç®çæ件ä¸
å¦ææ件æå¼ï¼å¤å¶åºéã
追é®ä¸è¡å
追çSub å¤å¶æ件()
Dim SourceFile As String, DestinationFile As String
SourceFile = "E:\å·¥ä½\2012计å.xlsx"
DestinationFile = "C:\Users\User\Desktop\å
¨å±çå¾\" & "æ¥è¯¢ç¼å·çæ°å" & ".xlsx"
FileCopy SourceFile, DestinationFile ' å°æºæ件çå
容å¤å¶å°ç®çæ件ä¸
End Sub
å¨èªå·±çµèä¸æµè¯å¯ä»¥ï¼

å¤å¶è¿æ¥äºï¼å¹¶ä¸ä¹æ¹åäº
çæ¬ï¼Office2010ï¼Win10