استدعاء بيانات من ملف اكسل ووضعها بلست فيو في فيجوال بيسك

اخي العزيز اان وجدت الكود التالي بالانترنت اتمنى ان يساعدك شكرا لاهتمامك

 Public Sub ExportText()

Dim fso
Dim aArray As Variant

Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoText = fso.CreateTextFile("C:\Test.txt", True)

vCol = Left(Columns(Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column).Address(0, 0), 2 + (Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column < 27))

For i = 2 To Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

ReDim aArray(1 To 1, 1 To Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column)

aArray = Range("A" & i & ":" & vCol & i).Value

For x = 1 To Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

If vString = "" Then
vString = Chr(34) & aArray(1, x) & Chr(34)
Else
vString = vString & " , " & Chr(34) & aArray(1, x) & Chr(34)
End If

Next x

fsoText.WriteLine (vString)
vString = ""

Next i

MsgBox ("TEXT EXPORT COMPLETE")
fsoText.Close

Set fso = nothing
set aArray = nothing

End Sub

لايعمل اختي الكريمة

شكرا الك اخي حماده انا تعبتك معي انا نفسي تعبت وزهقت شكله المهتمين بالمساعده قليليين شكرا للي حاول يساعدني متاسفه اني ازعجتكم

:( :( :( :(

ولا يهميك اختي

ولما اجد حل ابقا ارد عليكي