Lỗi code không lưu được file (1 người xem)

[ttvh]

Public Sub GPE()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Arr, Ws As Worksheet, Wb As Workbook
Dim Fname As String
Arr = Array(Sheet2.Name, Sheet3.Name, Sheet5.Name)
Fname = Sheets("Mau").[B2].Value
Sheets(Arr).Copy
Set Wb = ActiveWorkbook
For Each Ws In Wb.Worksheets
Ws.Range("A1:A" & Ws.Range("B65000").End(3).Row).Resize(, 11).Value _
= Ws.Range("A1:A" & Ws.Range("B65000").End(3).Row).Resize(, 11).Value
Ws.PageSetup.PrintArea = Ws.Range("A1:A" & Ws.Range("B65000").End(3).Row).Resize(, 11).Address
Ws.PageSetup.Orientation = xlPortrait 'chay toi hang nay bi loi
Ws.PageSetup.PaperSize = xlPaperA4
Next Ws
Wb.Close True, "E:\NGUYEN HAN\DU LIEU\PTT\" & Fname & ".xlsx"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Bài đã được tự động gộp: 9/6/18

đã sửa xong