Đổi tên các tập tin bằng macro

Cách thức tiến hành như sau .

1. Tạo tập tin Excel có cấu trúc như sau:

2. Bấm Alt_F11, cửa sổ Microsoft Visual Basic mở ra , bấm menu Insert > Module .

Dán những nội dung dưới đây

Sub reNameFile()
Dim nof As Integer
Dim i As Integer
Dim fn1, fn2 As String
nof = Range("b3").Value
Dim OldName, NewName
For i = 6 To nof + 5
fn1 = "A" & i
fn2 = "B" & i
OldName = Range("b1").Value & "\" & Range(fn1).Value & Range("b2").Value
NewName = Range("b1").Value & "\" & Range(fn2).Value & Range("b2").Value ' Define file names.
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(OldName) Then
Name OldName As NewName
End If
Next i
End Sub

3. Quay trở lại Excel.

4. Bấm menu Tool>Macro>Macro, bạn sẽ chọn reNameFile và bấm Run

5. Lưu ý:

- Các phần tử trong danh sách tên mới không được trùng nhau

- Công thức tại ô B3 là =COUNTA(A6:A3000)

Nguồn: Sưu tầm 

Các bài liên quan

Tạo danh sách tên tập tinh bằng lệnh MS-Dos
Nhân bản trang tính
Giới thiệu về Macro
Forms ComboBox
ActiveX ComBoBox
Định dạng tên la tinh
Nối nhiều sheet thành một sheet
Tạo mục lục tự động trong Excel
Nối nhiều File Excel thành một
Cách hiện tất cả trang tính đã ẩn
Tạo công thức đọc số tiền thành chữ