حذف سطرهای خالی فایل اکسل از محیط وی بی

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

سلام
خب مسیر دیتابیس رو اول تنظیم کن بعد این کد رو بنویس :

adodc1.recordsource="select * from table1 where field1='' or field2='' or field3=''"

adodc1.refresh

with adodc1.recordset

for i=1 to .recordcount

.delete

.movenext

next

End with

اگه با adodb وصل میشی میتونی از این کد استفاده کنی:

Delete * from table1 where field1='' or field2='' or field3=''

نقل قول:

---

نوشته شده توسط محسن 15

سلام
خب مسیر دیتابیس رو اول تنظیم کن بعد این کد رو بنویس :

adodc1.recordsource="select * from table1 where field1='' or field2='' or field3=''"

adodc1.refresh

with adodc1.recordset

for i=1 to .recordcount

.delete

.movenext

next

End with

اگه با adodb وصل میشی میتونی از این کد استفاده کنی:

Delete * from table1 where field1='' or field2='' or field3=''

---

باسلام و تشکر
باعرض پوزش ، ظاهراً در نوشته من سهواً کلمه اکسل را اکسس خوانده اید. آخه این کد برای حذف رکورد های دیتابیس اکسس است نه سطرهای خالی فایل اکسل
با تشکر

خب فرقی نداره که!
اگه از کنترل data استفاده میکنی خاصیت connect رو روی excel 8 تنظیم کن.
واسه adodc هم تو منوی custom گزینه microsoft OLE DB provider for ODBC drivers رو بزن بعد آپشن use connection string رو انتخاب کن، دکمه buid رو بزن machine data source رو بزن بعد رو excel دابل کلیک کن و فایلت رو انتخاب کن.

مابقی کار مثل همون اکسس هست.

نقل قول:

---

نوشته شده توسط SlowCode

سلام
خب مسیر دیتابیس رو اول تنظیم کن بعد این کد رو بنویس :

adodc1.recordsource="select * from table1 where field1='' or field2='' or field3=''"

adodc1.refresh

with adodc1.recordset

for i=1 to .recordcount

.delete

.movenext

next

End with

اگه با adodb وصل میشی میتونی از این کد استفاده کنی:

Delete * from table1 where field1='' or field2='' or field3=''

---

من اینو نوشتم اما کد اصلا سطرهای خالی رو حذف نکرد!

دوست عزیز باید فایل اکسل رو توسط وی بی فراخوانی کنید سپس سطر هارو چک کنید و حذف کنید

روش دوم هم که دوست عزیزمون گفت میتونید از طریق data بخونیدش و مثل یک دیتابیس اکسس باهاش برخورد کنید

فقط برای تکمیل تاپیک !

نقل قول:

---

نوشته شده توسط samiasoft

من اینو نوشتم اما کد اصلا سطرهای خالی رو حذف نکرد!

---

خب معمولا تو فايل اكسل بايد از شيت انتخاب كنيد نه Table يعني به جاي table1 بايد Sheet1 نوشته بشه البته به اين شكل و با فرض اينكه داده ها در شيتي به نام Sheet1 باشن

Select * from [sheet1$]