Sub 订单转换()Application.ScreenUpdating = FalseOn Error Resume Next Dim fso, fl, m%, n%, p%, q& Dim wb As Workbook Dim mypath As String Dim brr Sheets.Add after:=Sheets(1)ActiveSheet.Name = "汇总表"brr = Array("序号", "商品国际码", &q…
文件操作: In [34]: import os In [35]: os.rename("hello[复件].py","hello111.py") ###重命名 In [36]: lscopy_file.py hello111.py hello.py langwang.txt langwang[复件].txt In [37]: os.remove("hello111.py") ###删除文件 In [38]:…