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