خواندن فایل تکست و تبدیل آن به فایل اکسل

سلام دوستان
دار م یه برنامه مینویسم که :
1. ابتدا فایل تکست را توسط CommandButton بصورت Browse دریافت کنه
2. اون فایل تکست دریافتی را به یک فایل اکسل تبدیل کنه
حالا من، تونستم قسمت شماره 2 را بصورت کامل انجام بدم منتهی توی این کدی که نوشتم، آدرس فایل تکست ثابته که من میخوام هر فایل تکست دلخواهی را Browse کنم و تبدیل به یه فایل اکسل بشه.

هیشکی نبود کمک کنه

:n37:

سلام.../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
************
کد ها رو به شکل زیر تغییر بدید../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
*******************

کد:

---



Const ForReading = 1


Dim strFileName As String


Private Sub Command1_Click()


    CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*"
    CommonDialog1.DefaultExt = "txt"
    CommonDialog1.DialogTitle = "Select File"
    CommonDialog1.ShowOpen


    strFileName = CommonDialog1.FileName
   
    If (strFileName = "") Then Call Command1_Click


End Sub


Private Sub Command2_Click()


    Dim objUser, strExcelPath, objExcel, objSheet, _
    objFSO, objFile, aline, aLines, irow, icol


    Set objFSO = CreateObject("Scripting.FileSystemObject")
   
    If (strFileName = "") Then Call Command1_Click
   
    Set objFile = objFSO.OpenTextFile(strFileName, _
    ForReading)
   
    strExcelPath = "C:\testing.xls"


    ' Bind to Excel object.
    'On Error Resume Next
    Set objExcel = CreateObject("Excel.Application")
   
    If (Err.Number <> 0) Then
        On Error GoTo 0
        Wscript.Echo "Excel application not found."
        Wscript.Quit
    End If
   
    On Error GoTo 0


    objExcel.Visible = True
    objExcel.Workbooks.Add


    Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
   
    objSheet.Name = "testing"


    aLines = Split(objFile.ReadAll, vbNewLine)
   
    For irow = 1 To UBound(aLines) + 1
       
        aline = Split(aLines(irow - 1), ",")
       
        For icol = 1 To UBound(aline) + 1
           
            objSheet.Cells(irow, icol).Value = aline(icol - 1)
       
        Next ' icol
    Next ' irow


End Sub

---

******************
تو زیربرنامه Command1_Click از شئ objFile استفاده کردید در حالی که داخل این زیربرنامه تعریف نشدست و مشکلات دیگه ای هم هست که تو برنامه وجود داره ولی مشکلی که بهش اشاره کرده بودید حل شده../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

داداش حرف نداری:n16:

خیلی ماهی

کارم راه افتاد
:n19:
دکمه تشکر کجاست؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

داداش حرف نداری

:n16:

خیلی ماهی

کارم راه افتاد

:n19:

دکمه تشکر کجاست؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟