Code VBA tự động lưu File Excel theo số IE cho trước (1 người xem)

Người dùng đang xem chủ đề này

vutunam010583

Thành viên mới
Tham gia
21/3/08
Bài viết
28
Được thích
0
Nghề nghiệp
Kế toán
Chào các bạn !
Mình có File Excel kèm theo , Bây giờ mình muốn Lưu File Excel tự động theo số IE trên cột J, Khi Stt trên cột I thay đổi. ( trong Folder cho trước ) , sauđó Copysheet này qua File Excel mới rồi mới Lưulại
Ví dụ : Stt 1 thì số IE là : IE00001111, và Lưu File Excel tênlà : IE00001111 …
Mong các bạn viết giúp mình code VBA này với,
Xin chân thành Cảm ơn !
 
Lần chỉnh sửa cuối:
Chào các bạn
Sau một lúc mày mò và ghi code thì mình đã làm được code nhu sau.
Mình cũng rất vui vị tự mò được,

Sub Auto_Save()
Dim i As Long, SoIE
For i = 1 To Sheet1.Range("J1000").End(3).Row - 1
Range("B1").Value = i
SoIE = Sheet1.Range("I" & i + 1).Offset(, 1).Value
Sheets("Sheet1").Copy
ChDir "C:\Users\giang\Desktop\IE"
ActiveWorkbook.SaveAs Filename:="C:\Users\giang\Desktop\IE\" & SoIE & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook
ActiveWindow.Close
Next i
End Sub

Có gì mong các bạn chỉ giáo ! cảm ơn
 
Upvote 0

Bài viết mới nhất

Back
Top Bottom