|
ｿｽ@ｿｽｿｽVariantｿｽzｿｽｿｽｿｽExcelｿｽﾌ罫ｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾉは？
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
Ta 2009/03/19(ｿｽｿｽ) 00:03:48
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽSｿｽﾒでゑｿｽｿｽBｿｽｿｽｿｽｿｽDelPhiｿｽｿｽｿｽｿｽSQLｿｽﾌテｿｽ[ｿｽuｿｽｿｽｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽｿｽﾇみ搾ｿｽｿｽﾝ、Excelｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
DelphiｿｽｿｽServersｿｽ^ｿｽuｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾍ使ｿｽずｿｽAOLEｿｽIｿｽ[ｿｽgｿｽｿｽｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽExcelｿｽ操作しｿｽﾄゑｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾉ抵ｿｽｿｽﾗてｿｽｿｽRｿｽ[ｿｽhｿｽｿｽVariantｿｽzｿｽｿｽｿｽgｿｽｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽrｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽ骼橸ｿｽﾌ配ｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽiｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽZｿｽｿｽｿｽﾉ会ｿｽｿｽrｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽBｿｽj
var
ｿｽ@ｿｽ@ RCnt,FCnt: integer;
OleArray: OleVariant;
StartRow: Integer;
StartRowStr,EndRowStr: String;
OleArray: OleVariant;
ｿｽ@*
*
begin
(ｿｽﾈ会ｿｽSQLｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽoｿｽｿｽｿｽRｿｽ[ｿｽh)
*
*
With Qry do begin
Open;
RCnt :=RecordCount;
FCnt :=FieldCount;
StartRow :=6;
StartRowStr :='A'+IntToStr(StartRow);
EndRowStr :='G'+IntToStr(StartRow+RCnt-1);
for j:=0 to 2 do begin
OleArray:=VarArrayCreate([0,RCnt-1,0,FCnt-1],VarVariant);
for i:=0 to RCnt-1 do begin
OleArray[i,0]:=FieldValues['@@@'];
*
*
Next;
end;
end;
WorkBook.Range[StartRowStr,EndRowStr].Value:=OleArray;
ｿｽﾌようｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅｿｽｿｽRｿｽ[ｿｽhｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
WorkSheet.Range['','']Borders[xlEdgeBottom].LineStyle :=xlContinuous;
WorkSheet.Range['','']Borders[xlEdgeBottom].Weight := xlHairLine;
ｿｽﾌようｿｽﾈ罫ｿｽｿｽｿｽｿｽzｿｽｿｽﾉゑｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽｿｽｿｽﾍ配ｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽﾅ茨ｿｽsｿｽｿｽｿｽﾂ罫ｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽExcelｿｽﾖの表ｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽﾄ搾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
Mr.XRAY 2009/03/19(ｿｽｿｽ) 14:05:37
Mr.XRAYｿｽﾆ申ｿｽｿｽｿｽﾜゑｿｽｿｽD
>VariantｿｽzｿｽｿｽｿｽExcelｿｽﾌ罫ｿｽｿｽｿｽｿｽ`ｿｽｿｽｿｽﾉは？
Variantｿｽzｿｽｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍわかｿｽｿｽﾜゑｿｽｿｽが，
ｿｽｿｽｿｽｿｽﾍ囲の罫ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜとめて，ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽｿｽCｿｽﾈ会ｿｽｿｽｿｽｿｽQｿｽlｿｽﾉなゑｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
http://mrxray.on.coocan.jp/Delphi/plSamples/400_Excel_CreateObject.htm#List01
ｿｽｿｽ Button12Click ｿｽﾌコｿｽ[ｿｽh
Delphiｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽCOSｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽCｿｽGｿｽNｿｽZｿｽｿｽｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽ
ｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽCｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾌ難ｿｽｿｽｿｽmｿｽFｿｽﾍ，ｿｽyｿｽ[ｿｽWｿｽﾌ茨ｿｽﾔ擾ｿｽﾌ包ｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽｿｽｿｽｿｽﾈ外ｿｽﾅの難ｿｽｿｽｿｽﾍわかｿｽｿｽﾜゑｿｽｿｽｿｽD
ｿｽﾜゑｿｽｿｽCｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈるかｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽD
VBAｿｽﾌコｿｽ[ｿｽhｿｽﾅエｿｽNｿｽZｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾍ，ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽｿｽｿｽｿｽﾍ，ｿｽGｿｽNｿｽZｿｽｿｽｿｽﾌマｿｽNｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽCDelphiｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽ
ｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽ竄ｪｿｽuVariantｿｽzｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽﾌで，ｿｽﾓ図ｿｽｿｽｿｽ驍ｱｿｽﾆと茨ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽ
ｿｽSｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽD
ｿｽEｿｽHｿｽｿｽｿｽX 2009/03/19(ｿｽｿｽ) 14:22:57
EXCEL VBAｿｽﾅ重ｿｽｿｽｿｽｿｽｿｽﾂ会ｿｽﾊ更ｿｽVｿｽｿｽｿｽpｿｽﾉに起ｿｽｿｽｿｽ髀茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽ
ｿｽﾈ会ｿｽｿｽﾌようｿｽﾉ会ｿｽﾊ更ｿｽVｿｽｿｽ}ｿｽｿｽｿｽｿｽｿｽｿｽﾆ格ｿｽiｿｽﾉ托ｿｽｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽB
Application.ScreenUpdating = False
ｿｽEｿｽEｿｽEｿｽdｿｽｿｽｿｽｿｽｿｽｿｽ
Application.ScreenUpdating = True
ｿｽOｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽSｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽ
Mr.XRAY 2009/03/19(ｿｽｿｽ) 15:14:05
>Application.ScreenUpdating = False
ｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽD
ｿｽｿｽｿｽｿｽﾍ必ｿｽvｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽDｿｽｿｽｿｽ黷ｪｿｽﾈゑｿｽｿｽﾆ，ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ鯉ｿｽｿｽ¥ｿｽ`ｿｽｿｽｿｽcｿｽLｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
Ta 2009/03/20(ｿｽｿｽ) 08:17:01
>Mr.XRAYｿｽｿｽｿｽｿｽAｿｽEｿｽHｿｽｿｽｿｽXｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝ、ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾂ具ｿｽｿｽｿｽWindowsXP(SP3) + Delphi7 Pro + SQLServer2000 + Excel2000ｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
Mr.XRAYｿｽｿｽｿｽが具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽAｿｽQｿｽlｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾏゑｿｽrｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽﾍ趣ｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBMr.XRAYｿｽｿｽｿｽがゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾊゑｿｽAVBAｿｽﾌコｿｽ[ｿｽhｿｽﾅは趣ｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽBVariantｿｽzｿｽｿｽﾅｿｽｿｽRｿｽ[ｿｽhｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ髀茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈり速ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで、ｿｽrｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾅ配ｿｽｿｽﾅ描ｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ(ｿｽｿｽ)ｿｽB
ｿｽEｿｽHｿｽｿｽｿｽXｿｽｿｽｿｽｿｽAMr.XRAYｿｽｿｽｿｽが具ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ黷ｽScreenUpdatingｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽAｿｽ蝠ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽBExcelｿｽﾌ擾ｿｽｿｽｿｽｿｽﾉはゑｿｽｿｽｿｽｿｽﾆ必ｿｽ{(?)ｿｽﾌコｿｽ[ｿｽhｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽﾋ。ｿｽﾆてゑｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽFｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Ta 2009/03/20(ｿｽｿｽ) 08:18:10
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾌチｿｽFｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽYｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Mr.XRAY 2009/03/20(ｿｽｿｽ) 12:28:30
ｿｽGｿｽNｿｽZｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽ速ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ，
ｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾞを利用ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
http://homepage3.nifty.com/m-and-i/tips/tipspage.htm#component
ｿｽﾉゑｿｽｿｽｿｽ XBIFF
http://www.adv.co.jp/products.htm
ｿｽｿｽ ExcelCreator 2007
Ta 2009/03/23(ｿｽｿｽ) 10:33:55
>Mr.XRAYｿｽｿｽｿｽｿｽ
ｿｽﾔ信ｿｽxｿｽｿｽﾄ本ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽﾐ介さｿｽ黷ｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽAｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽﾈ前ｿｽﾉ費ｿｽﾗて搾ｿｽｿｽﾍゑｿｽｿｽぜん速度ｿｽ痰｢ｿｽﾜゑｿｽｿｽIｿｽOｿｽﾍｿｽｿｽRｿｽ[ｿｽhｿｽﾌ全ｿｽｿｽｿｽ¥ｿｽｿｽｿｽ○十ｿｽbｿｽ|ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌで（ｿｽｿｽｿｽjｿｽB
ｿｽFｿｽXｿｽﾆ具ｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Mr.XRAY 2009/03/23(ｿｽｿｽ) 16:01:04
>ｿｽﾐ介さｿｽ黷ｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽAｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
XBIFFｿｽﾌ包ｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽCｿｽﾈ会ｿｽｿｽﾌ記ｿｽｿｽｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽD
ｿｽ謫ｪｿｽｿｽ0ｿｽｿｽｿｽﾌ趣ｿｽｿｽﾉ，ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ格ｿｽ[ｿｽｿｽｿｽ驍ｽｿｽﾟの修ｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾌ参ｿｽlｿｽﾅゑｿｽｿｽD
http://mrxray.on.coocan.jp/bbs/DelphiBBS/mrxray_delphifan_coffe.cgi?tree=s1676
