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

[RESMAILY]

به نام خدا
با سلام. با پوزش از اساتید. من یک تجربه ای در این زمینه داشتم. اینکه جدول را ارسال کنیم و بعد با کدی شبیه به کد زیر آن را به فرمت دلخواه دربیاوریم. لغات و اشاره گرها 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