FullName = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".txt"这行就是定名字的,改成这样FullName =ThisWorkbook.Path & "\" & "ABABACAC.txt"
