(21/12/2019, 14:57)berduş yazdı:

(21/12/2019, 14:48)zaferlacin yazdı: Dim XL As excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
  Set appExcel = CreateObject("Excel.Application")
  Set myWorkbook = appExcel.Workbooks.Open(CurrentProject.Path & "\Kontrat1.xlsx")

appExcel.Visible = True

' AppActivate appExcel.Windows(1).Caption '<==eklendi
myWorkbook.Activate '<==silindi

myWorkbook .DoCmd.RunCommand acCmdAppMaximize kodunu ekler misiniz?

Dim XL As excel.Application
Dim appExcel As excel.Application
Dim myWorkbook As excel.Workbook
myWorkbook .DoCmd.RunCommand acCmdAppMaximize -----------buraya yazdığımda not set hatası geliyor
  Set appExcel = CreateObject("Excel.Application")

  Set myWorkbook = appExcel.Workbooks.Open(CurrentProject.Path & "\Kontrat1.xlsx")
myWorkbook .DoCmd.RunCommand acCmdAppMaximize ---------buraya yazdığımda yazdığım hatayı veriyor
appExcel.Visible = True

' AppActivate appExcel.Windows(1).Caption '<==eklendi
myWorkbook.Activate '<==silindi