Tweet
با درود فراوان
برای اینکه وقتی در یک صفحه اکسل اطلاعاتی را وارد کنیم در آدرس مورد نظر ما یک فایل تکس ایجاد شده و
اطلاعات صفحه اکسل به آن فایل انتقال پیدا کند چگونه عمل می کینم.
چرا اینکار را می کینم ؟
برای اینکار ممکن است دلیل خاصی پیدا نکنیم و همچنین در صورت نیاز با یک کپی کردن و پیست کردن در یک فایل تکس
کار انجام شده و نیاز به ماکرو و کد نویسی نیست (خیلی راحت)
اما...
با این وجود ممکن است برای بعضی ها بسته به نوع کارشان نیازهای متفاوتی به این کار داشته باشند
1 - به فرض اینکه در شرکتی کار می کنیم که در یک صفحه اکسل اطلاعات مختلفی از کار کنان آن شرکت را در آن وارد کرده و روزانه آن را به روز می کنیم .
یکی از این اطلاعات تاریخ و ساعت پرواز بلیتی است که شرکت برای کارکنان تهیه می کند . نیاز است که اطلاعات را در شبکه قرار
دهیم تا کارکنان از وضعیت تائید شدن بلیت خود با خبر شوند.
با این کدی که می نویسیم فقط اطلاعات خاصی از صفحه اکسل که ما مشخص می کنیم در صفحه تکس قرار می گیرد و چنانچه کسی آن
فایل تکس را حذف کرده باشد بصورت خودکار آن فایل دوباره ایجاد شده و اطلاعات نیز به روز نگه میدارد و همچنین با چنین کاری
فایلی که در شبکه قرارا داده ایم کم حجم بوده و اطلاعات اضافی نیز در آن قرار ندارد.
و هربار که ماکرو را اجرا کنید مطالب فایل تکست به روز می شود
2- اگر با اکسل برنامه نویسی می کنیم و نیاز به ایجاد فایل تکس داریم نیازی نیست کار بر آن را ایجاد کند و بصورت خودکار ایجاد می شود.
و استفاده ها ی دیگری که دوستان بهتر می دانند.
* در کد زیر i2 تعداد ستونی از صفحه است که قرار است به فایل تکست انتقال داده شود
* کد:نام و آدرسی که فایل تکست در آن ایجاد می شود (c:\File man.txt) قرار داده ایم که قایل تغییر است
Sub FileText()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\File man.txt", True)
n = 0
n1 = 0
For Each c In Range("A:A")
If c <> "" Then
n = n + 1
End If
Next
For i = 0 To n + n1
For i2 = 0 To 5
tex = tex & " " & Sheet1.Range("A1").Offset(i, i2)
Next i2
a.WriteLine tex
tex = ""
Next i
End Sub
بدرود:blush:
فایل نمونه:
متاسفانه هرکاری کردم ضمیمه نشد
بدرود:blush:
برای اینکه وقتی در یک صفحه اکسل اطلاعاتی را وارد کنیم در آدرس مورد نظر ما یک فایل تکس ایجاد شده و
اطلاعات صفحه اکسل به آن فایل انتقال پیدا کند چگونه عمل می کینم.
چرا اینکار را می کینم ؟
برای اینکار ممکن است دلیل خاصی پیدا نکنیم و همچنین در صورت نیاز با یک کپی کردن و پیست کردن در یک فایل تکس
کار انجام شده و نیاز به ماکرو و کد نویسی نیست (خیلی راحت)
اما...
با این وجود ممکن است برای بعضی ها بسته به نوع کارشان نیازهای متفاوتی به این کار داشته باشند
1 - به فرض اینکه در شرکتی کار می کنیم که در یک صفحه اکسل اطلاعات مختلفی از کار کنان آن شرکت را در آن وارد کرده و روزانه آن را به روز می کنیم .
یکی از این اطلاعات تاریخ و ساعت پرواز بلیتی است که شرکت برای کارکنان تهیه می کند . نیاز است که اطلاعات را در شبکه قرار
دهیم تا کارکنان از وضعیت تائید شدن بلیت خود با خبر شوند.
با این کدی که می نویسیم فقط اطلاعات خاصی از صفحه اکسل که ما مشخص می کنیم در صفحه تکس قرار می گیرد و چنانچه کسی آن
فایل تکس را حذف کرده باشد بصورت خودکار آن فایل دوباره ایجاد شده و اطلاعات نیز به روز نگه میدارد و همچنین با چنین کاری
فایلی که در شبکه قرارا داده ایم کم حجم بوده و اطلاعات اضافی نیز در آن قرار ندارد.
و هربار که ماکرو را اجرا کنید مطالب فایل تکست به روز می شود
2- اگر با اکسل برنامه نویسی می کنیم و نیاز به ایجاد فایل تکس داریم نیازی نیست کار بر آن را ایجاد کند و بصورت خودکار ایجاد می شود.
و استفاده ها ی دیگری که دوستان بهتر می دانند.
* در کد زیر i2 تعداد ستونی از صفحه است که قرار است به فایل تکست انتقال داده شود
* کد:نام و آدرسی که فایل تکست در آن ایجاد می شود (c:\File man.txt) قرار داده ایم که قایل تغییر است
Sub FileText()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\File man.txt", True)
n = 0
n1 = 0
For Each c In Range("A:A")
If c <> "" Then
n = n + 1
End If
Next
For i = 0 To n + n1
For i2 = 0 To 5
tex = tex & " " & Sheet1.Range("A1").Offset(i, i2)
Next i2
a.WriteLine tex
tex = ""
Next i
End Sub
بدرود:blush:
فایل نمونه:
متاسفانه هرکاری کردم ضمیمه نشد
بدرود:blush:
کامنت