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