|
ｿｽ@ｿｽｿｽEXCELｿｽﾅのシｿｽ[ｿｽgｿｽﾌ追会ｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ[ｿｽﾉ追会ｿｽｿｽｿｽｿｽｿｽﾉは？
|
ｿｽ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
ｿｽｿｽｿｽ黷｢ｿｽｿｽ 2004/12/09(ｿｽｿｽ) 05:21:44
ｿｽﾂ具ｿｽｿｽｿｽDelphi6 + EXCEL2000ｿｽﾅゑｿｽｿｽB
WorkSheets.Addｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾆ先頭ｿｽﾉシｿｽ[ｿｽgｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
WebｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽADelphiｿｽﾅの記ｿｽqｿｽ@ｿｽﾍなゑｿｽｿｽAｿｽrｿｽｿｽｿｽﾉ包ｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽVｿｽ[ｿｽgｿｽﾌ移難ｿｽｿｽｿｽ除ｿｽｿｽDelphiｿｽﾅの記ｿｽqｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽAｿｽｿｽmｿｽbｿｽｿｽﾝゑｿｽｿｽﾄは抵ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
HOta 2004/12/09(ｿｽｿｽ) 08:07:12
ExcelｿｽｿｽOLEｿｽﾅ使ｿｽｿｽｿｽ鼾ｿｽﾍ、ExcelｿｽｿｽVBAｿｽﾌ記ｿｽqｿｽﾉ奇ｿｽﾃゑｿｽｿｽﾜゑｿｽｿｽﾌで、
ｿｽﾜゑｿｽｿｽAExcelｿｽｿｽｿｽﾅ記ｿｽqｿｽｿｽｿｽﾄみて、ｿｽｿｽｿｽｿｽｿｽPascelｿｽｿｽｿｽﾉ移ゑｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽApplicationｿｽﾅ出ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆは出ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
Mr.XRAY 2004/12/09(ｿｽｿｽ) 08:33:02
Excel2000 ｿｽｿｽVBAｿｽﾌヘｿｽｿｽｿｽvｿｽｿｽWorkSheetsｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽRｿｽｿｽｿｽNｿｽVｿｽｿｽｿｽｿｽｿｽｿｽAdd
ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽﾝゑｿｽﾆ，ｿｽCｿｽﾓの位置ｿｽﾉ追会ｿｽｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽD
ｿｽｿｽｿｽ黷｢ｿｽｿｽ 2004/12/09(ｿｽｿｽ) 14:09:48
ｿｽｿｽｿｽｿｽｿｽusesｿｽｿｽComObjｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾄ、ｿｽRｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
>>HOtaｿｽｿｽｿｽｿｽ
Webｿｽｿｽ調べゑｿｽWorksheets.Add(After:=Worksheets("Sheet2"))ｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾍ費ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽFｿｽXｿｽｿｽｿｽｿｽｿｽﾄゑｿｽGｿｽｿｽｿｽ[ｿｽﾅ弾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽcｿｽB
Mr.XRAYｿｽｿｽｿｽｿｽﾌサｿｽCｿｽgｿｽｿｽｿｽｿｽVBAｿｽﾌヘｿｽｿｽｿｽvｿｽﾌ場所ｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
expression.Add(Before, After, Count, Type)
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽuVariantｿｽ^ｿｽﾌ値ｿｽｿｽgｿｽpｿｽｿｽｿｽﾜゑｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽcｿｽB
Basser 2004/12/09(ｿｽｿｽ) 16:29:36
ｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽwｿｽ閧ｷｿｽｿｽﾌは厄ｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾌ記ｿｽqｿｽｿｽｿｽｿｽAfterｿｽﾌ指ｿｽ閧ｪｿｽﾂ能ｿｽﾅゑｿｽｿｽB
Worksheets.Add(EmptyParam, Worksheets[Worksheets.Count]);
Mr.XRAY 2004/12/09(ｿｽｿｽ) 21:02:43
>expression.Add(Before, After, Count, Type)
>ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽuVariantｿｽ^ｿｽﾌ値ｿｽｿｽgｿｽpｿｽｿｽｿｽﾜゑｿｽｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ`ｿｽｿｽCVBAｿｽﾌヘｿｽｿｽｿｽvｿｽﾍ，ｿｽｿｽｿｽｿｽｿｽｿｽﾆわかｿｽﾉゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ．
CreateOleObject('Excel.Application');
ｿｽﾅ作成ｿｽｿｽｿｽｿｽExcelｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾉ対ゑｿｽｿｽｿｽBasserｿｽｿｽｿｽからレｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽC
2ｿｽﾔ目の茨ｿｽｿｽｿｽｿｽｿｽｿｽCｿｽﾇのシｿｽ[ｿｽgｿｽﾌ鯉ｿｽｿｽﾉ追会ｿｽｿｽｿｽｿｽ驍ｩｿｽCｿｽﾆゑｿｽｿｽｿｽｿｽwｿｽｿｽﾅゑｿｽｿｽD
Basserｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾅは，ｿｽｿｽｿｽﾝのシｿｽ[ｿｽgｿｽｿｽｿｽﾔ目のシｿｽ[ｿｽgｿｽｿｽwｿｽ閧ｵｿｽﾄゑｿｽｿｽﾜゑｿｽ
ｿｽｿｽｿｽｿｽCｿｽﾅ鯉ｿｽﾆなゑｿｽけｿｽﾅゑｿｽｿｽDVariantｿｽ^ｿｽﾅとゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽC
var
ASheet : Variant;
ｿｽﾆ抵ｿｽ`ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾄ，
ASheet:=Worksheets[Worksheets.Count];
ｿｽﾆゑｿｽｿｽﾄ，ASheetｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽgｿｽｿｽｿｽﾜゑｿｽｿｽDｿｽQｿｽlｿｽﾜでに，ComObjｿｽﾅは，
CoExcelApplication.Create
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽExcelｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽﾌ撰ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽDｿｽｿｽｿｽﾜゑｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽ...
HOta 2004/12/10(ｿｽｿｽ) 11:29:38
ｿｽｿｽｿｽ黷｢ｿｽﾔゑｿｽｿｽｿｽ
Pascalｿｽﾅは配ｿｽｿｽｿｽ[]ｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽ黷ｪVBｿｽﾌ場合ｿｽﾆ茨ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾖ撰ｿｽｿｽﾌ茨ｿｽｿｽｿｽｿｽﾍ、()ｿｽﾅゑｿｽｿｽBｿｽCｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ黷｢ｿｽｿｽ 2004/12/10(ｿｽｿｽ) 14:42:02
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽI
BasserｿｽAMr.XRAYｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽせｿｽﾄゑｿｽｿｽｿｽﾄみゑｿｽｿｽﾆゑｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽﾉ最終ｿｽyｿｽ[ｿｽWｿｽﾉ追会ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
HOtaｿｽｿｽｿｽｿｽAMr.XRAYｿｽｿｽｿｽｿｽABasserｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
