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

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

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

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

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

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

dll شماره سريال مدیریت پیامک حفاظت از PDFها حفاظت از فيلم ها حفاظت پاورپوينت
TSN TSMS TDE TVE TPE