منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

هذا الكود لفتح ملف الوورد وفيه بيانات الفليكس جريد
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
لكن ارجوكم ان تعدلوا لي الكود بحيث افتح ملف الاكسس وفيه بيانات الفليكس جريد
ارجوكم

اين انتم

undefined

عدل الكود على اساس افتح الاكسس وفيه بيانات الفليكس حريد