ارسال جدول اکسس به اکسل با حفظ فرمت

با سلام و احترام خدمت دوستان و اساتید عزیز
سئوالی دارم در مورد نحوه ارسال اطلاعات جدول اکسس به اکسل به اینصورت که طبق نمونه پیوست میخواهم جدول درخواست عینا به اکسل انتقال یابد یعنی به همین صورت گروپ در اکسل هم منعکس گردد
با تشکر از حسن توجه شما

با سلام خدمت اساتید و دوستان محترم
کسی از دوستان نظری ندارد برام خیلی مهمه لطفا در صورت امکان راهنمایی بفرمایید

وقتی بین جداول رابطه هست باید به روش دیگه ای اونها رو به اکسل منتقل کنین:

از منوی data گزینه from access رو انتخاب میکنین و بعد از تعیین دیتابیس زمانی که پنجره انتخاب جدول باز میشه تیک multi select رو روشن و دو جدول مرتبط رو انتخاب کنین.
نوع view هم pivot table و تمام

حالا بسته به نیاز تنظیمات این pivot table رو انجام بدین

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

Public Function Cov2Exel(strPath As String) As Integer



    'strPath = "C:\Users\mod1.ASR\Desktop\List1396-03-06.xls"

     

     Dim Xl As Excel.Application

     Dim xlBook As Excel.Workbook

     Dim xlSheet As Excel.Worksheet

     

     Set Xl = CreateObject("Excel.Application")

      

     ' Xl.Visible = True

      

      Set xlBook = Xl.Workbooks.Open(strPath, , False)

      Set xlSheet = xlBook.Worksheets(1)



      With xlSheet

            

          .DisplayRightToLeft = True

          .Cells.Font.Name = "Arial"

          .Cells.Font.Color = 0

          .Cells.HorizontalAlignment = xlVAlignCenter

          .Cells.VerticalAlignment = xlVAlignCenter

          .Range("A1:H1").Interior.Color = vbGreen

          .Range("A1:H1").Borders.Color = 0

          .Range("A1:H1").RowHeight = 30

          .Range("A1:H1").Font.Bold = True

          .Range("E:E").NumberFormat = "#,##0"



          

        '  .Range("A1").Value = "˜Ï"

        '  .Range("A1").Font.Bold = True

        

       End With



 xlBook.Close True

 Xl.Quit

 End Function

مشابه این کد پیشتر هم در تاپیک های دیگه آمده بود ولی مشکل استارتر تاپیک این نبوده.
منظور ایشون از "فرمت" قابلیت expand/collapse در جداول مرتبط هست و نه تغییر استایل.