macro đặt tên file khi xuất ra

[thanhkham]

Em kính nhờ các anh chị chỉ giúp em cách đặt tên file theo một ô dữ liệu có sẵn khi sử dụng macro để xuất file ra ạ!
Em có 1 file dữ liệu cần xuất 1 sheet sang file mới trong đó em muốn khi xuất ra tên file sẽ được đặt sẵn theo 1 cell trong sheet đó.
VD: tên file em muốn đặt là A 07_05_20.xls (trong đó có 1 ô sẽ chứa tên file: A 07_05_20)
Em xin cảm ơn ạ!

 

[PacificPR]

Em kính nhờ các anh chị chỉ giúp em cách đặt tên file theo một ô dữ liệu có sẵn khi sử dụng macro để xuất file ra ạ!
Em có 1 file dữ liệu cần xuất 1 sheet sang file mới trong đó em muốn khi xuất ra tên file sẽ được đặt sẵn theo 1 cell trong sheet đó.
VD: tên file em muốn đặt là A 07_05_20.xls (trong đó có 1 ô sẽ chứa tên file: A 07_05_20)
Em xin cảm ơn ạ!

Bạn thử như vầy xem: đường dẫn & "\" & Range("ô chứa tên") & ".xlsx"

 

[chiendich]

Em kính nhờ các anh chị chỉ giúp em cách đặt tên file theo một ô dữ liệu có sẵn khi sử dụng macro để xuất file ra ạ!
Em có 1 file dữ liệu cần xuất 1 sheet sang file mới trong đó em muốn khi xuất ra tên file sẽ được đặt sẵn theo 1 cell trong sheet đó.
VD: tên file em muốn đặt là A 07_05_20.xls (trong đó có 1 ô sẽ chứa tên file: A 07_05_20)
Em xin cảm ơn ạ!

Bạn thử chép code này xem sao nhé.
Bạn chép vào Thisworkbook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.DisplayAlerts = False
  With ThisWorkbook
    .ChangeFileAccess xlReadOnly
    Name (.FullName) As (.Path & "\" & [A1] & ".xls")
    .Save
  End With
End Sub

A1: là chứa tên file bạn cần đặt. bạn có thể thay đổi nơi khác bạn muốn

 

[kenvinams]

Em kính nhờ các anh chị chỉ giúp em cách đặt tên file theo một ô dữ liệu có sẵn khi sử dụng macro để xuất file ra ạ!
Em có 1 file dữ liệu cần xuất 1 sheet sang file mới trong đó em muốn khi xuất ra tên file sẽ được đặt sẵn theo 1 cell trong sheet đó.
VD: tên file em muốn đặt là A 07_05_20.xls (trong đó có 1 ô sẽ chứa tên file: A 07_05_20)
Em xin cảm ơn ạ!

Thử code này nhé bạn.
Sửa lại phần tên file theo cell bạn cần.
Option Explicit Sub Xuat_File() Dim ws1 As Worksheet, ws2 As Worksheet Dim wkb1 As Workbook, wkb2 As Workbook Set wkb1 = ThisWorkbook Dim ten_sheet As String, ten_file As String ten_sheet = InputBox("Dien chinh xac ten sheet can xuat ra :") Set ws1 = wkb1.Sheets(ten_sheet) ten_file = ws1.Cells(2, 2) & ".xls" 'Sua lai theo cell ban can Set wkb2 = Workbooks.Add Application.DisplayAlerts = False ws1.Copy wkb2.Sheets(1) wkb2.Sheets(2).Delete Application.DisplayAlerts = True wkb2.SaveAs wkb1.Path & "\" & ten_file End Sub

 

[thanhkham]

Bạn thử như vầy xem: đường dẫn & "\" & Range("ô chứa tên") & ".xlsx"

Cảm ơn bạn rất nhiều!
Cách này đơn giản và mình thực hiện được

Bài đã được tự động gộp: 7/5/20

Thử code này nhé bạn.
Sửa lại phần tên file theo cell bạn cần.
Option Explicit Sub Xuat_File() Dim ws1 As Worksheet, ws2 As Worksheet Dim wkb1 As Workbook, wkb2 As Workbook Set wkb1 = ThisWorkbook Dim ten_sheet As String, ten_file As String ten_sheet = InputBox("Dien chinh xac ten sheet can xuat ra :") Set ws1 = wkb1.Sheets(ten_sheet) ten_file = ws1.Cells(2, 2) & ".xls" 'Sua lai theo cell ban can Set wkb2 = Workbooks.Add Application.DisplayAlerts = False ws1.Copy wkb2.Sheets(1) wkb2.Sheets(2).Delete Application.DisplayAlerts = True wkb2.SaveAs wkb1.Path & "\" & ten_file End Sub

Cảm ơn bạn nha!

Bài đã được tự động gộp: 7/5/20

Bạn thử chép code này xem sao nhé.
Bạn chép vào Thisworkbook.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.DisplayAlerts = False
  With ThisWorkbook
    .ChangeFileAccess xlReadOnly
    Name (.FullName) As (.Path & "\" & [A1] & ".xls")
    .Save
  End With
End Sub

A1: là chứa tên file bạn cần đặt. bạn có thể thay đổi nơi khác bạn muốn

Cảm ơn bạn!