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

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 TPad TA TXLSx TCE ASES MAHNAZ Mahtos MAHKAR

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

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

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

فلوچارت و الگوریتم Flowgorithm

تکنیک‌های ماکرونویسی در Powerpoint

تبدیل آنلاین فایل دفترچه تلفن اندروید به جدول متن

حفاظت‌از Autoplay حفاظت‌از Setup حفاظت‌از MMB حفاظت از فيلم حفاظت پاورپوينت
AE se mmbe TVP TPE