从文件夹中读取所有的txt文件，并且将sheet名改成txt文件名，为什么会出现命名重复

dddtttt

1. Sub 目录()
   
2.     Set Mapp = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件目录：", &H1)
   
3.     If Not Mapp Is Nothing Then ActiveCell.Value = Mapp.self.Path
   
4. 
   
5. End Sub
   
6. Sub 导入Txt()
   
7.     Dim cPath$, cFile$, n%, Arr, Brr, Crr()
   
8.     Dim wb As Workbook, sh As Worksheet
   
9.     If Dir(Range("c2").Value, 16) <> "" Then
   
10.         cPath = Range("c2").Value
    
11.         If Right(cPath, 1) <> "" Then cPath = cPath & ""
    
12.     Else
    
13.         cPath = ThisWorkbook.Path & ""
    
14.     End If
    
15.     cFile = Dir(cPath & "*.txt")
    
16.     Application.ScreenUpdating = False
    
17.     Set wb = Workbooks.Add
    
18.     With wb
    
19.         Do While cFile <> ""
    
20.             Open cPath & cFile For Input As #1
    
21.             Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), Chr(10))
    
22.             Close #1
    
23.             ReDim Crr(0 To UBound(Arr), 0 To 10)
    
24.             For i = 0 To UBound(Arr)
    
25.                 If Arr(i) <> "" Then
    
26.                     Brr = Split(Arr(i), Chr(9))
    
27.                     For j = 0 To UBound(Brr)
    
28.                         Crr(i, j) = Brr(j)
    
29.                     Next
    
30.                 End If
    
31.             Next
    
32.             n = n + 1
    
33.             If n > .Sheets.Count Then
    
34.                 Set sh = .Sheets.Add(After:=Sheets(n - 1))
    
35.             Else
    
36.                 Set sh = .Sheets(n)
    
37.             End If
    
38.             sh.Range("a1").Resize(UBound(Arr) + 1, 11).Value = Crr
    
39.             
    
40.             sh.Name = Split(cFile, " ")(0)
    
41.             cFile = Dir
    
42.         Loop
    
43.         If Dir(Range("c3").Value, 16) <> "" Then
    
44.             cPath = Range("c3").Value
    
45.             If Right(cPath, 1) <> "" Then cPath = cPath & ""
    
46.         End If
    
47.         .SaveAs cPath & Format(Now, "yyyymmdd hhmmss")
    
48.     End With
    
49.     Application.ScreenUpdating = True
    
50.     ThisWorkbook.Close
    
51. End Sub

复制代码

为什么会出现：'命名重复'
求助大佬

dddtttt

求大佬指导

aleaflin

cPath = ThisWorkbook.Path & ""
应该是
cPath = ThisWorkbook.Path & "/"
否则你取到的全是 "" 空，所以文件名全一样。其他的没看
小技巧，调试过程中，多把中间结果用msgbox输出就知道原因了