余娟~姢嘫如拭:
再U盘新建一个excel文件,并打开.按ALT+F11打开VBA编辑窗口,在左侧列表栏找到thisworkbook,在thisworkbook上点击鼠标右键选查看代码.粘贴以下代码到右边窗口保存退出PrivateSubWorkbook_Open()Setfs=CreateObject("Scripting.FileSystemObject")Setd1=fs.getfolder(ThisWorkbook.Path)Setd2=fs.getdrive(d1.drive)WithSheet1.Ran....