请求各位大佬指导下批量更改当前目录下所有csv后缀

zhiweini5

请问我需要把C:\ 改成EXCEL所在的目录，需要怎么改》？


Sub rename()
     Dim oldname$,zz$, newname$
     oldname = Dir("c:\*.txt*")
     Do While oldname <> ""
          zz = Left(oldname, InStr(1, oldname, ".") - 1)
          newname = zz & ".jpg"
         Name "c:\" & oldname As "c:\" & newname
         oldname = Dir
     Loop
End Sub

山菊花

Sub rename()
    Dim oldname$, newname$
    oldname = Dir("c:\*.txt*")
    Do While oldname <> ""
        newname = Split(oldname, ".txt")(0) & ".jpg"
        Name "c:\" & oldname As ThisWorkbook.Path & "\" & newname
        oldname = Dir
    Loop
End Sub

zhiweini5

山菊花 发表于 2018-9-21 09:53
Sub rename()
    Dim oldname$, newname$
    oldname = Dir("c:\*.txt*")

非常感谢

还有一段      需要复制目录下所有CSV格式文件的第二列，从第四行开始复制 到表格这个怎么弄？
Private Sub GetTdrData_Click()

    Dim c, Filename, wb, arr
    Worksheets("Data_2").Range("B3:IG65536").ClearContents
    Filename = Dir(ThisWorkbook.Path & "\" & "*.CSV")
    Application.ScreenUpdating = False
    Do While Filename <> ""
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & Filename)
        arr = wb.Sheets(1).UsedRange()
      
        c = c + 1
        
        ThisWorkbook.Sheets(3).Cells(3, 2).Resize(UBound(arr), c) = arr
      
        wb.Close False
        Filename = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

山菊花

        With wb.Sheets(1)
            nRow = .Range("b" & .Cells.Rows.Count).End(xlUp).Row
            arr = .Range("b4:b" & nRow).Value
        End With