تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فتح ملف الاكسس
#1
هذا الكود لفتح ملف الوورد وفيه بيانات الفليكس جريد
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
لكن ارجوكم ان تعدلوا لي الكود بحيث افتح ملف الاكسس وفيه بيانات الفليكس جريد
ارجوكم
الرد }}}}
تم الشكر بواسطة:
#2
اين انتم
الرد }}}}
تم الشكر بواسطة:
#3
كيفية أتمتة Microsoft Excel من Visual Basic
الرد }}}}
تم الشكر بواسطة:
#4
undefined
الرد }}}}
تم الشكر بواسطة:
#5
عدل الكود على اساس افتح الاكسس وفيه بيانات الفليكس حريد
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم