Q&A

  • 스트링그리드의 내용을 블록으로 잡아 엑셀에 뿌려주기
스트링그리드의 내용을 블록으로 잡아서 엑셀에 뿌려주는 방법좀 갈켜주세여



With Grid do

begin

for i := 0 to ColCount - 1 do

begin

inc(k);

for j := 0 to RowCount -1 do

begin

// 스트링그리드의 내용 엑셀에 뿌려주기

xlBook.WorkSheets[1].Range[chr(k)+ InttoStr(j + 3)].Value := Cells[i, j];

xlBook.WorkSheets[1].Range[chr(k)+ InttoStr(j + 3)].Font.Size := 11;

end; // for



end;

end;



이 방법으로 하니깐 너무 느리더라구여



그래서 블록으로 잡아서 뿌려주려고



빠른 답변 부탁합니다.











0  COMMENTS