Excle در بیسیک

[سعید قدیری مقدم]

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

http://www.experts-exchange.com/Programming/Q_20947824.html


اما من 2 تا سوال دارم که نتونستم جوابشو پیدا کنم اول اینکه چطور میتونم اطلاعاتی موحود تو یک فایل که قبلا ایجاد شده رو بخونم و دوم اینکه چطور می تونم بفهمم فایل مود نظر من چند تا ردیف و چند تا ستون داره؟

اگه راهنماییم کنید ممنون میشم :) [/u]

[سعید قدیری مقدم]

کسی به داد من نمیرسه (:D)

[روح اله معینی زاده]

با سلام خدمت دوست گرامی


Dim obj As Object
Set obj = CreateObject("Excel.Application")
obj.Workbooks.Open ("c:\t.xls")
Print obj.Cells(1, 1).Value
obj.Workbooks.Close
Set obj = Nothing


این هم روش باز کردن فایلی که از قبل ایجاد شده است. در خصوص تعداد ردیف و ستون هم باید مقداری تحقیق کرد.

شما می تونید با کمی بالا و پایین کردن کدها به خیلی چیزها برسید. مثلا برای فهمیدن همین قضیه من در قسمت ارجاع از منوی Project گزینه مربوط به اکسل رو فراخوانی کردم و دیدم که در قسمت Workbooks می توان یک فایل را باز کرد و آزمایش کردم و دیدم که بدون مشکل باز شد.
قسمت بعدی رو شما پیدا کنید و ما منتظریم :oops:

با احترام- خدانگهدار

[روح اله معینی زاده]

با سلام خدمت دوست گرامی

این هم تعداد ردیف های آن. می تونی اون رو در بعد از دستور چاپ مثال قبل وارد کنی و ...


With Range(Selection, Selection.End(xlDown)).Select
MsgBox "Rows: " & Selection.Rows.Count
End With

خسته نباشی.

با احترام- خدانگهدار

[lizbazar]

بدون VBA لطفا یکی کمک کنه !!!

[MMR_1344]

دوست عزیز این فرامین در رابطه با VBA نبود و درون ویژوال بیسیک از این دستورات استفاده میشه

در ارتباط با بهتر دیدن نحوه اجرای دستورات هم میتونید از وی بی درون اکسل اسفاده کنید البته تعدادی از دستورات اون در وی بی وجود نداره که شما برای اونه میتونید خودتون اون کار رو انجام بدید

[samiraamiri]

txtname=obj.cells(1,2).value یا
txtname=obj.Range("A1").value

[Mbt925]

http://barnamenevis.org/forum/showpost.php?p=415235&postcount=60