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
å¨èªå·±çµèä¸æµè¯å¯ä»¥ï¼
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/9e3df8dcd100baa141fc5d6b4e10b912c9fc2e09?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
å¤å¶è¿æ¥äºï¼å¹¶ä¸ä¹æ¹åäº
çæ¬ï¼Office2010ï¼Win10