دستور بستن فایل اکسل

[salam20]

سلام برهمه دوستان
من یک تکه از برنامه ام دریافت مقادیری از اکسل و نوشتن در بانک اکسس هست تا اینجا مشکلی نیست مشکل از آنجا شروع میشه که بعد از دریافت و ذخیره کرد ن اطلاعات با روش زیر نمیتونم فایل اکسل را از داخل برنامه ببندم
"b.xls".close
البته نام فایل داخل دابل کوتیشن هست

[Amir_vb.Net]

این سورس به دردت می خوره :لبخندساده:

[mhh_etefagh]

این هم یک کد برای باز و بستن و کار کردن با فایل های اکسکل :
Dim xap As Excel.Application
Dim BOM_WB As Excel.Workbook
Dim BOM As Excel.Worksheet

Set xap = Excel.Application
Set BOM_WB = xap.Workbooks.Open ("d:\b.xls")
Set BOM = BOM_WB.Worksheets(1)

BOM.Cells(2,2)="SALAM"

BOM_WB.Save
BOM_WB.Close False
xap.Quit
Set xap = Nothing

امیدوارم به دردت بخوره

[mohsen_j_1990]

فقط کافیه این تابع رو صدا بزنی
Private Sub close_access()
Dim hSnap As Long, pResult As Long, Process As PROCESSENTRY32
Dim AppName As String, pID As Long, hProcess As Long

hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
Process.dwSize = Len(Process)
pResult = Process32First(hSnap, Process)
Do While pResult <> 0
AppName = Left$(Process.szExeFile, InStr(1, Process.szExeFile, Chr(0)) - 1)
If StrComp(AppName, "MSACCESS.exe", vbTextCompare) = 0 Then 'file name = notepad.exe ?
pID = Process.th32ProcessID
hProcess = OpenProcess(PROCESS_ALL_ACCESS, True, pID)
TerminateProcess hProcess, 0
CloseHandle hProcess
End If
pResult = Process32Next(hSnap, Process)

Loop
CloseHandle hSnap
End Sub