• Trang chủ click to expand contents 

  • VBA Access: điều khiển lệnh Excel, Access khác

  • RE: VBA Access: điều khiển lệnh Excel, Access khác

    vodainhan > 19-07-17, 12:13 PM

    Mã PHP:
    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 

    bị lỗi dòng    .Orientation = xlLandscape   

    không rõ do sai chỗ nào hoặc thiếu Reference nào?

    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?


    Xem link này: Tự động tạo CSDL Access bằng VBA


    link bạn maidinhdan cho là tạo file Access. Mình chưa biết sửa tạo file excel.