گزارش سازی با اکسل در اکسس

[moustafa]

با سلام
برای ساخت گزارشهای پیچیده با دیزاین متفاوت و محاسبات زیاد از اکسل استفاده می کنیم بعد از طراحی گزارش فایل اکسل باز و اطلاعات از اکسس وارد میشه وبعدش به شکل pdf در یه یک WebBrowserبه نمایش میاد . فایل پی دی اف و اکسل در مسیر ونام از پیش تعیین شده ذخبره میشه . در این مثال پنج تا sheetکه هریک حاوی یک گزارش می باشد طی ارایه ای بطور یکجا در یک فایل پی دی اف اوره میشه که تقریبا در گزارش سازی خود اکسس غیر ممکنه و شما به سختی میتونی مولتی ریپورت در قالب یه فایل پی دی اف بگیری



Dim xlapp As New Excel.Application
DoCmd.OpenForm "frmpdf"

Set wrk = xlapp.Workbooks.Open("F:\Access\Projects\ReportExcel.xlsx")

xlapp.Application.Visible = True '


X = Shamsi() & "-" & Hour(Now()) & "-" & Minute(Now()) & "-" & Second(Now())
namxl = "Jameh#" & X & "#" & ".xlsx"
nampdf =CurrentProject.Path & "\Backup\" & X & ".pdf"


wrk.Sheets(Array("dp", "sh", "tk", "ha", "xv")).Select


ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
fileName:=nampdf, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
From:=1, _
To:=25, _
OpenAfterPublish:=False



Forms!frmpdf!WebBrowserpdf.Navigate (nampdf)
wrk.SaveAs CurrentProject.Path & "\Backup\" & namxl
'wrk.Save
wrk.Close False
xlapp.Workbooks.Close
xlapp.Application.Quit
Set wrk = Nothing
End Sub
فقط یکم زمان میبره برای کانکت شدن به اکسل وبعضا ارور میده که بعد جند بار کاکنکت میشه . دوستان اگه تجربه ای در این مورد دارند لطفا ارائه بفرمایند

[moustafa]

مورد مهم بعدی اینکه قبلش باید فایل مورد نظر بسته باشه وگرنه اطلاعات آپدیت نمیشه یا برنامه به مشکل میخوره برای همین با تابع زیر باز یا بسته بودن فایل چک میشه

Function IsWorkBookOpen(fileName As String)
Dim ff As Long, ErrNo As Long

On Error Resume Next
ff = FreeFile()
Open fileName For Input Lock Read As #ff
Close ff
ErrNo = err
On Error GoTo 0

Select Case ErrNo
Case 0: IsWorkBookOpen = False
Case 70: IsWorkBookOpen = True
Case Else: Error ErrNo
End Select
End Function

[moustafa]

تابعی که هر چی فایل اکسل باز هست رو ببنده دوستان لطف کنند

[mazoolagh]

سلام و روز خوش
البته خوب متوجه نشدم - ولی فکر نکنم لازم باشه که فایل های اکسل رو باز نگه دارین

[moustafa]

سلام و روز خوش
البته خوب متوجه نشدم - ولی فکر نکنم لازم باشه که فایل های اکسل رو باز نگه دارین
ممنون از شما . باز نه بسته . وقتی فایل اکسلی بازه ارور میده یا کانکت نمیشه یا نمیدونم چرا از اون فایل باز غیر، پی دی اف میسازه در حالیکه در کد نوشتیم چه شیتهایی رو سلکت و اکتیو کنه !!!! برا همین یه تابع میخوائیم که هر چه فایل اکسل چه بطور مخفی و چه آشکار باز باشه رو ببنده. با تشکر

[mazoolagh]

متوجه هستم که نباید باز باشه!
شما مستقیم از اکسل بخونین.

2 تاپیک زیر رو یک نگاه بندازین:

روش ایمپورت محدودی خاص فایل های اکسل در اکسس (https://barnamenevis.org/showthread.php?560186)

مشکل در استخراج رکوردهای خاص (https://barnamenevis.org/showthread.php?564739)

[mazoolagh]

یه تابع میخوائیم که هر چه فایل اکسل چه بطور مخفی و چه آشکار باز باشه رو ببنده
فکر نکنم force close کردن اپلیکیشنی که به هر دلیل busy هست کار خوبی باشه،
ولی شاید بتونین یک اسکریپت powershell بنویسین و اون رو اجرا کنین.