vodainhan > 19-07-17, 12:13 PM
Function PageSetupExcel()
Dim appExcel As Object 'Excel Object
Dim wbkNew As Object 'Workbook Object
Dim wksNew As Object 'Sheet Object
Set appExcel = CreateObject("Excel.Application")
Set wbkNew = appExcel.Workbooks.Open("D:\Ex.xlsx") ' Duong dan file Excel 2010 cua ban
Set wksNew = appExcel.Worksheets("Sheet1") 'Ten Sheet can dinh dang
appExcel.Visible = False 'Khong mo file Excel khi thi hanh lenh, muon mo xem thi cho bang True
With wksNew.PageSetup
.Orientation = xlLandscape
.Zoom = 90
End With
appExcel.ActiveWorkbook.Save ' Luu len file Goc
'appExcel.ActiveWorkbook.SaveAs "D:\Ex2.xlsx" ' Luu thanh file Ex2 va giu nguyen file Goc
' Dong Excel va giai phong bo nho
wbkNew.Close
Set wbkExcel = Nothing
Set appExcel = Nothing
End Function
Trích dẫn:*Về Code VBA Access nào để kiểm tra 1 file (vd: D:\abc.xlsx) có tồn tại không, nếu không có thì tạo tên file đó, còn có thì thôi?