Xin các tiền bối giúp đỡ (1 người xem)

[vantron1990]

Mình mới tập học nhưng bài tập đặt ra là:
Làm sao viết đoạn code để coppy sheet " DU LIEU XN" lưu thành 1 file mới mà file đó chỉ chứa dữ liệu sheet " DU LIEU XN" thôi
mình Record macro các kiểu mà không được.
Xin các cao nhân chỉ giáo với
Xin chân thành cảm ơn ạ!

 

[bebo021999]

- tiền bối
- cao nhân
Xin kính chuyển bác VetMini vào chỉ giáo ạ

 

[Ronaldinho7]

Mình mới tập học nhưng bài tập đặt ra là:
Làm sao viết đoạn code để coppy sheet " DU LIEU XN" lưu thành 1 file mới mà file đó chỉ chứa dữ liệu sheet " DU LIEU XN" thôi
mình Record macro các kiểu mà không được.
Xin các cao nhân chỉ giáo với
Xin chân thành cảm ơn ạ!

Ở diễn đàn này, nhiều người không ưa kiểu xưng hô như trên nên bạn chú ý.

Option Explicit
Sub GPE()
    Dim sPath$, Wb As Workbook
    sPath = ThisWorkbook.Path
    Workbooks.Add: Set Wb = ActiveWorkbook
    ThisWorkbook.Sheets("DU LIEU XN").Copy Wb.Sheets("Sheet1")
    Wb.SaveAs Filename:=sPath & "\DU LIEU XN.xlsx"
    Wb.Close True
End Sub

 

[vantron1990]

Ở diễn đàn này, nhiều người không ưa kiểu xưng hô như trên nên bạn chú ý.

Option Explicit
Sub GPE()
    Dim sPath$, Wb As Workbook
    sPath = ThisWorkbook.Path
    Workbooks.Add: Set Wb = ActiveWorkbook
    ThisWorkbook.Sheets("DU LIEU XN").Copy Wb.Sheets("Sheet1")
    Wb.SaveAs Filename:=sPath & "\DU LIEU XN.xlsx"
    Wb.Close True
End Sub

cảm ơn bạn đã nhắc nhở, cảm ơn bạn nhiều mình sẽ rút kinh nghiệm

Bài đã được tự động gộp: 28/4/23

- tiền bối
- cao nhân
Xin kính chuyển bác VetMini vào chỉ giáo ạ

thật sự thì lần đầu tiên mình hỏi nên không biết dùng từ nào cho nó lịch sự nên ghi vậy, chứ không có ý gì hết, nếu bạn nói câu đó thì mình nhận à