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

[abas1388]

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

[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=''

[abas1388]

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

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=''
باسلام و تشکر
باعرض پوزش ، ظاهراً در نوشته من سهواً کلمه اکسل را اکسس خوانده اید. آخه این کد برای حذف رکورد های دیتابیس اکسس است نه سطرهای خالی فایل اکسل
با تشکر

[SlowCode]

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

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

[samiasoft]

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

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=''

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

[alibehroozi]

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

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

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

[vbhamed]

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

خب معمولا تو فايل اكسل بايد از شيت انتخاب كنيد نه Table يعني به جاي table1 بايد Sheet1 نوشته بشه البته به اين شكل و با فرض اينكه داده ها در شيتي به نام Sheet1 باشن
Select * from [sheet1$]