Có thể đặt tên workbook mới tạo bằng giá trị của 1 ô hay không?

[ngocnenad]

Xin chào các bác, các anh/chị!
Em đang muốn thêm 1 Workbook mới và đặt tên workbook mới đó theo tên của 1 ô trong workbook cũ
code như sau:
Workbooks.add
Workbooks.add.saveas Filiename:= " C:\SCT & ......xlsx" ( chỗ ... em muốn lấy giá trị của một ô range vào đó có được không?)
mong mọi người chỉ giúp.
vô cùng cảm ơn!

 

[be_09]

Xin chào các bác, các anh/chị!
Em đang muốn thêm 1 Workbook mới và đặt tên workbook mới đó theo tên của 1 ô trong workbook cũ
code như sau:
Workbooks.add
Workbooks.add.saveas Filiename:= " C:\SCT & ......xlsx" ( chỗ ... em muốn lấy giá trị của một ô range vào đó có được không?)
mong mọi người chỉ giúp.
vô cùng cảm ơn!

Thử sử dụng code sau:
- DIEN_2018: Là tên Folder chứa File cần lưu ở ổ D.
- A1: Nội dung chứa tên File cần lưu.

Sub LuuTenFile_VoiTenCell()
    Dim strFilename As String
    Dim strpath As String
    Application.DisplayAlerts = False
   
    strpath = "D:\DIEN_2018\"
    strFilename = Range("A1").Value & ".xlsx"
    ActiveWorkbook.SaveAs strpath & strFilename, xlOpenXMLWorkbook
    Application.DisplayAlerts = True
End Sub

 

[ngocnenad]

Thử sử dụng code sau:
- DIEN_2018: Tên Folder chứa File lưu ổ D.
- A1: Nội dung chứa tên File cần lưu.

Sub LuuTenFile_VoiTenCell()
    Dim strFilename As String
    Dim strpath As String
    Application.DisplayAlerts = False
   
    strpath = "D:\DIEN_2018\"
    strFilename = Range("A1").Value & ".xlsx"
    ActiveWorkbook.SaveAs strpath & strFilename, xlOpenXMLWorkbook
    Application.DisplayAlerts = True
End Sub

Bác ơi:
Với ý em là muốn tạo một workbook mới xong gắn tên cho nó theo 1 giá trị tại 1 ô trong Workbook cũ.
thanks bác!

 

[be_09]

Bác ơi:View attachment 211488
Với ý em là muốn tạo một workbook mới xong gắn tên cho nó theo 1 giá trị tại 1 ô trong Workbook cũ.
Cảm ơn bác!

Bác ơi:View attachment 211488
Với ý em là muốn tạo một workbook mới xong gắn tên cho nó theo 1 giá trị tại 1 ô trong Workbook cũ.
Cảm ơn bác!

Bài 2 tôi nêu cụ thể rồi còn gì nữa "DIEN_2018 Là tên Folder chứa File cần lưu ở ổ D".
Bạn xem lại trong ổ D của bạn có Folder nào tên là DIEN_2018 không mà đỗ thừa bị lỗi.

Nấu cơm rồi dọn sẳn cho dùng mà không biết dùng thì chẳng biết nói làm sao nữa.

 

[snow25]

Bác ơi:View attachment 211488
Với ý em là muốn tạo một workbook mới xong gắn tên cho nó theo 1 giá trị tại 1 ô trong Workbook cũ.
Cảm ơn bác!

Tốt nhất là bạn nên hiểu lưu thế nào.Hoặc record macro cũng được.

 

[ngocnenad]

Bài 2 tôi nêu cụ thể rồi còn gì nữa "DIEN_2018 Là tên Folder chứa File cần lưu ở ổ D".
Bạn xem lại trong ổ D của bạn có Folder nào tên là DIEN_2018 không mà đỗ thừa bị lỗi.

Nấu cơm rồi dọn sẳn cho dùng mà không biết dùng thì chẳng biết nói làm sao nữa.

em làm được rồi thanks bác nhé! em em mượn cái sườn của bác rồi thêm theo ý của em