|
- Public Sub PickFolder()
- '** 使用FileDialog对象来选择文件夹
- Dim fd As FileDialog
- Dim strPath As String
-
- Set fd = Application.FileDialog(msoFileDialogFolderPicker)
-
- '** 显示选择文件夹对话框
- If fd.Show = -1 Then '** 用户选择了文件夹
- strPath = fd.SelectedItems(1)
- Else
- strPath = ""
- End If
- [B1] = strPath
- Set fd = Nothing
- End Sub
- Sub ReName()
- Dim arr, e
- On Error Resume Next
- For i = 4 To [A65536].End(xlUp).Row
- If Cells(i, 3) <> "" Then
- Name [B1] & "" & Cells(i, 1) & Cells(i, 2) As [B1] & "" & Cells(i, 3) & Cells(i, 2)
- End If
-
- Next
- MsgBox "重命名成功!"
- End Sub
- Sub 获取目录()
- Dim fs, f, f1, s, sf
- Dim r As Range
- Set fs = CreateObject("Scripting.FileSystemObject")
- Set f = fs.GetFolder([B1])
- Set sf = f.Files
- [A4:A65536] = ""
- For Each f1 In sf
- s = f1.Name
- Set r = [A65536].End(xlUp).Offset(1)
- n = InStrRev(s, ".")
- r = Left(s, n - 1) '文件名
- r.Offset(0, 1) = Mid(s, n) '后缀
- Next
-
- End Sub
复制代码
代码有点糙啊,你不是只为了打广告吧。
这标题和这代码不是一个等级,哈哈哈哈哈哈哈哈
|
评分
-
3
查看全部评分
-
|