[sameerhesen]

هذا الكود لفتح ملف الوورد وفيه بيانات الفليكس جريد
Private Sub Command2_Click()
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oRange As Word.Range
Dim row As Integer
Dim Col As Integer
Dim i As Integer
Dim n As Integer
Dim sTemp As String
Dim arr() As String
ReDim arr(MSFlexGrid1.Rows - 1, MSFlexGrid1.Cols - 1)
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Set oDoc = oWord.Documents.Add
For row = 0 To MSFlexGrid1.Rows - 1
n = 0
For Col = 0 To MSFlexGrid1.Cols - 1
arr(i, n) = MSFlexGrid1.TextMatrix(row, Col)
n = n + 1
Next
i = i + 1
Next
For i = LBound(arr, 1) To UBound(arr, 1)
For n = LBound(arr, 2) To UBound(arr, 2)
sTemp = sTemp & arr(i, n)
If n = UBound(arr, 2) Then
sTemp = sTemp & vbCrLf
Else
sTemp = sTemp & vbTab
End If
Next
Next
Set oRange = oDoc.Bookmarks("\EndOfDoc").Range
oRange.Text = sTemp
oRange.ConvertToTable vbTab, Format:=wdTableFormatApplyAutoFit
Set oRange = Nothing

End Sub
لكن ارجوكم ان تعدلوا لي الكود بحيث افتح ملف الاكسس وفيه بيانات الفليكس جريد
ارجوكم