+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : فتح ملف الاكسس (/showthread.php?tid=1928)
فتح ملف الاكسس - sameerhesen - 15-02-14
هذا الكود لفتح ملف الوورد وفيه بيانات الفليكس جريد
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
لكن ارجوكم ان تعدلوا لي الكود بحيث افتح ملف الاكسس وفيه بيانات الفليكس جريد
ارجوكم
RE: فتح ملف الاكسس - sameerhesen - 16-02-14
اين انتم
RE: فتح ملف الاكسس - vbnet - 16-02-14
كيفية أتمتة Microsoft Excel من Visual Basic
RE: فتح ملف الاكسس - sameerhesen - 16-02-14
undefined
RE: فتح ملف الاكسس - sameerhesen - 16-02-14
عدل الكود على اساس افتح الاكسس وفيه بيانات الفليكس حريد