#批量创建txt文件import sys,osa=open("demo.txt")n=0aList=[]for line in a.readlines(): aList.append(str(line.strip('\n')))print aListfor i in aList: os.system('@echo > %s.txt'%i)
Sub 按模板修改Excel文件() Dim MoBanWorkBook As Workbook Set MoBanWorkBook = Application.ActiveWorkbook Dim MoBanSheet As Worksheet Set MoBanSheet = MoBanWorkBook.Worksheets(1) With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = True .Filters.
Public Sub BatchImportTextFiles() AppSettings 'On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>&