وارد کردن 200 سطر آخر فایل تکست بوسیله vb

**Javid Mokhtari** · 2014/08/21, 18:36

با سلام.
آیا این امکان برای شما وجود ندارد که پس از وارد کردن اطلاعات ، سطر های اضافی رو پاک کنید ...؟

**amin.t** · 2014/08/21, 18:37

نوشته اصلی توسط amin.t

سلام بر همه دوستان عزیز
من ی فایل اکسل دارم که می خوام فایلهای text که خروجی یک نرم افزار است رو بوسیله get external data وارد اون بکنم
تونستم ی یوزر فرم ایجاد کنم که با اون اینکارو برای من انجام بده
مشکل من اینه که :
یعضی از فایلهای تکست بیش از 5000 سطر دارد و من تنها 200 سطر آخر اونرو می خوام وارد بکنم.و چون تعداد سطر ها در هر فایل تکست متفاوته نمی تونم برای

کد:

.TextFileStartRow = 80

یک عدد خاصی رو تعریف کنم

حالا میشه با فرمول براش تعریف کرد که بیاد 200 سط آخر رو وارد کنه؟

ی نکته یادم رفت بگم
علت استفاده از یوزر فرم اینه که برای من تمام خروجی های نرم افزاری که فایل text ایجاد می کنه مهم نیستن و در هر بازه از زمان باتوجه به نیازی که دارم میام یک یا چند مورد از اون فایلها رو وارد اکسل می کنم و چون خروجی های تکست در هر لحظه آپ دیت می شن با رفرش فایل اکسل اون 200 عدد آخر وارد شیت مورد نظرم میشه.

**amin.t** · 2014/08/21, 19:56

نوشته اصلی توسط jansiz hayat

با سلام.
آیا این امکان برای شما وجود ندارد که پس از وارد کردن اطلاعات ، سطر های اضافی رو پاک کنید ...؟

نه
این امکان برای حذف سطر های اضافی برای من وجود ندارد چون خود نرم افزار مادر فایلها رو با تعداد ردیف های متفاوت تولید می کنه
دوست عزیز آیا راهی وجود دارد که بوسیله vb تعداد سطر های فایل تکستی که می خوام وارد کنم رو برام مشخص کنه؟

چون با دونستن تعداد ردیف های فایل تکست می شه با یه فرمول ساده 200 ردیف آخر رو وارد فایل اکسل کنم.

**Javid Mokhtari** · 2014/08/21, 21:51

بعد از وارد نمودن داده ها ، کد زیر 200 سطر آخر را نگه داشته و بقیه سطر ها را حذف می کند.
البته با این فرض که داده ها از ردیف 3 شروع شود

کد PHP:


Dim a, b As Integer
 
a = 3
b = Cells(1, 1).SpecialCells(xlLastCell).Row

If b > 202 Then
    Rows(a & ":" & b - 200).Delete
Else
    MsgBox "تعداد سطر ها کمتر یا مساوی 200 مورد می باشد"
End If

**amin.t** · 2014/09/01, 06:08

نوشته اصلی توسط jansiz hayat

بعد از وارد نمودن داده ها ، کد زیر 200 سطر آخر را نگه داشته و بقیه سطر ها را حذف می کند.
البته با این فرض که داده ها از ردیف 3 شروع شود

کد PHP:


Dim a, b As Integer
 
a = 3
b = Cells(1, 1).SpecialCells(xlLastCell).Row

If b > 202 Then
    Rows(a & ":" & b - 200).Delete
Else
    MsgBox "تعداد سطر ها کمتر یا مساوی 200 مورد می باشد"
End If

دوست عزیز ممنون از راهنمایی که کردید.