PDA

View Full Version : خواندن یک قسمت از فایل اکسل



فرزاد دلفی باز
شنبه 02 تیر 1386, 08:14 صبح
با سلام

ارسال محتویات یک فایل اکسل به یکStringGrid طبق مثال ارائه شده در صفحه زیر موردی نداره ولی مسله اینجاست که بوسیله این کد تمام سلول های اکسل خوانده شده و سپس تمام سلول ها نشان داده می شود که وقت گیره و نیازی به خواندن تمام سلول ها نیست خواستم بدانم آیا میشه فقط سلول هایی را که در اونها اطلاعات وجود داره را خواند و چطور میشه تشخیص داد که مثلا از سلولA3تا سلول A40داده وجود داره یا نه تا سلول A45 و بقیه خالیه....

http://www.planet-source-code.com/vb...=1346&lngWId=7 (http://www.planet-source-code.com/vb...=1346&lngWId=7)

merced
یک شنبه 10 تیر 1386, 00:56 صبح
فکر کنم با مقدار دان مقدار اولیه حلقه ها و شروط خروج آنها بشه :



var
xls,wb : OleVariant ;
i , j : Integer ;
begin

StringGrid1.RowCount := R ;
StringGrid1.ColCount := C ;

if not OpenDialog1.Execute then Abort ;

xls := CreateOLEObject('Excel.Application') ;
wb := xls.Workbooks.open(OpenDialog1.FileName) ;

for i := 1 to R do
for j := 1 to C do
StringGrid1.Cells[i,j] := ( wb.WorkSheets[1].Cells[i,j]) ;

xls.Visible := CheckBox1.Checked ;

end ;

merced
یک شنبه 10 تیر 1386, 00:58 صبح
آه ببخشید
من سوال شما رو تا آخر نخوندم :(

mojtaba_z
سه شنبه 13 شهریور 1386, 13:18 عصر
توی این کدی که نوشتید :

wb.WorkSheets[1].Cells[i,j]
بقیه Property ها و Method های اون رو از کجا میشه پیدا کرد ؟
مثلا در نوشتن کد ، بعد از یک نقطه (.) اگه CTRL + Space رو بزنیم بقیه Property ها و Method های اون رو نشون میده .

wb.WorkSheets[1].???

vcldeveloper
سه شنبه 13 شهریور 1386, 16:01 عصر
می تونید از MSDN استفاده کنید، یا از کامپوننت های موجود در تب Server که Early-binded هستند و Code Completion روشون کار میکنه.