إخوانى الأعزاء
أقوم دائما بوضع إمكانية تصدير محتويات الفليكس جريد MsFlexGrid - MsHFlexGrid
لصورة ورقة أكسل لإعطاء المستخدم إمكانيات ومرونة أوسع فى التعامل مع البيانات واستخراج تقارير أكثر من التى أعطيها له من البرنامج
من خلال الكود التالى
Sub ToExcel(Frm As Form, Flex As MSHFlexGrid)
On Error GoTo ErrFound
Dim xlApp As Excel.Application
Dim XLWorkBook As Excel.Workbook
Dim I As Long, H As Long
Frm.MousePointer = vbHourglass
Set xlApp = CreateObject("Excel.application")
Set XLWorkBook = xlApp.Workbooks.Add
With Flex
For I = 0 To .Rows - 1
DoEvents
For H = 0 To .Cols - 1
xlApp.Cells(I + 1, H + 1).Value = .TextMatrix(I, H)
Next H
Next I
End With
Beep
For I = 0 To Flex.FixedRows - 1
xlApp.Rows(I + 1).Font.Bold = True
Next I
xlApp.Cells.Select
xlApp.Columns.AutoFit
xlApp.Cells(1, 1).Select
xlApp.Application.Visible = True
ErrFound:
Set xlApp = Nothing
Set XLWorkBook = Nothing
Frm.MousePointer = vbDefault
End Subوضعته فى مديول وأنادى عليه ويكون الموضوع بمنتهى السهولة
سؤالى هو
هذا الكود يفتح برنامج إكسل فى كل مرة أعنى WorkBook
ولكنى أريده أن يتأكد إن كان إكسل مفتوح فقط يضيف ورقة جديدة
أى أريد أن أحصل على طريقة تعرفنى أن إكسل مفتوح قبل إضافة ورقة جديدة
وبارك الله فيكم من قبل ومن بعد