(19/01/2020, 15:54)feraz yazdı: Kod yazmıştım belki lazım olur


Private Sub Komut0_Click()

  Call excelAcKapat


'    myWorkbook.Close False  buradaki tek tırnak kalkarsa kapanır excel

Kod:

Option Compare Database

Sub excelAcKapat()

    Dim yol As String
    Dim appExcel As Object
    Dim myWorkbook As Object
    yol = CurrentProject.Path & "\Bilgiler.xlsx"
   
    Set appExcel = CreateObject("Excel.Application")
    Set myWorkbook = appExcel.Workbooks.Open(yol)
   
    appExcel.Visible = True
'    myWorkbook.Close False
   
    Set appExcel = Nothing
    Set myWorkbook = Nothing


End Sub

Hocam bu da çok makbule geçti çok çok teşekkür ederim