Tạo Macro lưu File thành nhiêu File

[phuyen89]

Chào các bạn thành viên.Mình có ghi một Macro cho nó lưu thành 20 File khác nhau.Ví dụ như là vidu; vidu(1); vidu(2) như thế.Nhưng mà mình không biết biến đồi làm sao.Do đó khi nhấn nút nó cứ báo trùng do File đó đã có rồi.Bầy giờ phải sửa thêm cái gì nữa.

Sub W()
Dim i As Integer
For i = 1 To 20
    ChDir "D:\Bna"
    ActiveWorkbook.SaveAs Filename:="D:\Bna\vidu.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        Next
End Sub

 

[ndu96081631]

Chào các bạn thành viên.Mình có ghi một Macro cho nó lưu thành 20 File khác nhau.Ví dụ như là vidu; vidu(1); vidu(2) như thế.Nhưng mà mình không biết biến đồi làm sao.Do đó khi nhấn nút nó cứ báo trùng do File đó đã có rồi.Bầy giờ phải sửa thêm cái gì nữa.

Sub W()
Dim i As Integer
For i = 1 To 20
    ChDir "D:\Bna"
    ActiveWorkbook.SaveAs Filename:="D:\Bna\vidu.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        Next
End Sub

Vầy thôi:

Sub W()
  Dim i As Long
  For i = 1 To 20
    ThisWorkbook.SaveCopyAs "D:\Bna\vidu(" & i & ").xls"
  Next
End Sub