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
burada excel'in fullscreen (maximize) gelmesini nasıl sağlayabililriz
(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?
(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?
object dosent support this propery or method
hatası geliyor hocam
Kodu nereye eklediniz?
Hata benim dediğim kodda mi çıktı?
(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
appExcel.Visible = True
appExcel.ActiveWindow.WindowState = xlMaximized
Şeklinde dener misiniz