دانلود و استفاده کنيد، در صورت رضايت از عملکرد نرم افزار، کد فعالسازي تهيه کنيد.

contact دانلود و استفاده کنيد
استفاده از VBA برای خواندن متن از یک فایل

TPE

http://bayanbox.ir/view/263405954590585756/2mobile.png

Tavvafi@gmail.com


≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub ReadAsciiFile()

    Dim sFileName As String
    Dim iFileNum As Integer
    Dim sBuf As String

    ' edit this:
    sFileName = "C:\temp\test.txt"

    ' does the file exist?  simpleminded test:
    If Len(Dir$(sFileName)) = 0 Then
        Exit Sub
    End If

    iFileNum = FreeFile()
    Open sFileName For Input As iFileNum

    Do While Not EOF(iFileNum)
        Line Input #iFileNum, sBuf
        ' now you have the next line of the file in sBuf
        ' do something useful:
        Debug.Print sBuf
    Loop

    ' close the file
    Close iFileNum

End Sub

powerpoint

پاورپوینت

پاورپوینت powerpoint

نمايش متن DOS تبديل متن DOS تبديل متن Win تبديل متن Excel ارسال پيامک انبوه مديريت زمان تحليل نمرات کارنامه توصیفی کارنامه ماهانه
TA TC TA TXLSx TSMS TLC TANALIZE Mahtos MAHKAR

رفع مشکلات Access با نصب AccessRuntime

حفاظت از کدهاي برنامه نويسي شده در محيط VBA-Access

تغيير تصوير بک گراند صفحه ورود به Windows 7

بروزآوري آيکن هاي ويندوز Refresh Desktop Icons

dll شماره سريال چاپ فرم ارزشيابي حفاظت از PDFها حفاظت از فيلم ها حفاظت پاورپوينت
TSN Asessment TDE TVE TPE