|
ｿｽ@ｿｽｿｽExcelｿｽﾌ難ｿｽｿｽｿｽﾌセｿｽｿｽｿｽ他の場所ｿｽﾉコｿｽsｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ
|
ｿｽ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
ｿｽｿｽｿｽ 2005/08/01(ｿｽｿｽ) 13:02:11
Delphi4.ProｿｽｿｽExcel2002ｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌセｿｽｿｽｿｽﾌフｿｽHｿｽｿｽｿｽgｿｽｿｽｿｽｿｽAｿｽrｿｽｿｽ/ｿｽFｿｽｿｽｿｽﾌ全ｿｽﾄの擾ｿｽｿｽ他の場所ｿｽﾉコｿｽsｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ謔ｭｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
OSｿｽｿｽXPｿｽﾅゑｿｽｿｽB
usesｿｽ@Comobj;
procedure TForm1.PrintClick(Sender: TObject);
var
E_Excel : Variant;
E_Application : Variant;
E_WorkBook : Variant;
E_WorkSheet : Variant;
begin
// Excel ｿｽｿｽIｿｽ[ｿｽvｿｽｿｽ
try
E_Excel := CreateOleObject('Excel.Application');
E_Application := E_Excel.Application;
except
on EOleSysError do begin
//ｿｽNｿｽｿｽｿｽｿｽｿｽs
ShowMessage('ExcelｿｽｿｽｿｽNｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽ');
E_Excel := Null;
Exit;
end;
end;
E_Application.Visible := True;
E_Application.WorkBooks.Open('C:¥A_C¥MyData.xls'); //ｿｽｿｽｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽwｿｽｿｽ
E_WorkBook := E_Application.ActiveWorkbook;
E_WorkSheet := E_Application.ActiveSheet;
// ｿｽｿｽｿｽｿｽｿｽﾅセｿｽｿｽｿｽg12ｿｽｿｽｿｽｿｽh13ｿｽﾌ擾ｿｽｿｽｿｽZｿｽｿｽｿｽ`10ｿｽｿｽｿｽｿｽa11ｿｽﾉコｿｽsｿｽ[ｿｽｿｽｿｽｿｽ
//ｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽ
// ｿｽfｿｽ[ｿｽ^ｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ E_WorkSheet.Cells(11,2).Value := '1234'; //ｿｽZｿｽｿｽｿｽa11ｿｽﾉデｿｽ[ｿｽ^ｿｽZｿｽbｿｽg
// WorkBookｿｽﾌ難ｿｽeｿｽｿｽﾛ托ｿｽｿｽｿｽｿｽｿｽExcelｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ
E_WorkBook.Saved := FALSE;
E_Application.WorkBooks.Close;
E_Excel.Quit;
E_Excel := unAssigned;
E_WorkBook := Unassigned; //ｿｽﾏ撰ｿｽｿｽﾌクｿｽｿｽｿｽA
E_WorkSheet := Unassigned; //ｿｽﾏ撰ｿｽｿｽﾌクｿｽｿｽｿｽA
end;
HOta 2005/08/01(ｿｽｿｽ) 13:16:34
ｿｽｿｽｿｽｿｽｿｽﾜででゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌに、ｿｽｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾅゑｿｽoｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽﾌまゑｿｽﾜでゑｿｽｿｽB
E_WorkSheet.Cells(11,2).Value :=
E_WorkSheet.Cells(10,1).Value;
ｿｽｿｽｿｽPｿｽﾊなゑｿｽ 2005/08/01(ｿｽｿｽ) 13:58:30
//ｿｽZｿｽｿｽｿｽg12ｿｽｿｽｿｽｿｽh13ｿｽﾌ範囲ゑｿｽ ｿｽｿｽｿｽﾊゑｿｽ ｿｽZｿｽｿｽｿｽ`10ｿｽｿｽｿｽｿｽa11ｿｽﾉ一括ｿｽRｿｽsｿｽ[
E_Application.Range['H12', 'I13'].Value := E_Application.Range['A10', 'B11'].Value;
E_Application.Range['H12', 'I13'].Font.Color := E_Application.Range['A10', 'B11'].Font.Color;
ｿｽｿｽｿｽｿｽｿｽ 2005/08/01(ｿｽｿｽ) 14:18:32
ｿｽｿｽｿｽOｿｽ@ｿｽｿｽﾘゑｿｽｿｽ逞趣ｿｽｿｽｿｽｿｽ...ｿｽTｿｽｿｽｿｽｿｽMｿｽﾌゑｿｽｿｽｿｽﾜゑｿｽ
>//ｿｽZｿｽｿｽｿｽg12ｿｽｿｽｿｽｿｽh13ｿｽﾌ範囲ゑｿｽ ｿｽｿｽｿｽﾊゑｿｽ ｿｽZｿｽｿｽｿｽ`10ｿｽｿｽｿｽｿｽa11ｿｽﾉ一括ｿｽRｿｽsｿｽ[
E_App.Range['A10', 'B11'].Value := E_App.Range['H12', 'I13'].Value;
E_App.Range['A10', 'B11'].Font.Color := E_App.Range['H12', 'I13'].Font.Color;
ｿｽｿｽｿｽ 2005/08/01(ｿｽｿｽ) 14:29:08
ｿｽgｿｽnｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽPｿｽﾊならさｿｽｿｽAｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽRｿｽsｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅなゑｿｽｿｽAｿｽZｿｽｿｽｿｽﾌサｿｽCｿｽYｿｽｿｽFｿｽAｿｽrｿｽｿｽｿｽﾌ擾ｿｽｿｽAｿｽZｿｽｿｽｿｽﾚ搾ｿｽｿｽｿｽｿｽﾌ指ｿｽ閧ｵｿｽｿｽｿｽﾍ囲の全ｿｽﾄの擾ｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾟて罫ｿｽｿｽｿｽ笊ｶｿｽｿｽｿｽTｿｽCｿｽYｿｽｿｽｿｽｿｽｿｽﾅゑｿｽAｿｽRｿｽsｿｽ[ｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽ 2005/08/01(ｿｽｿｽ) 15:09:30
// ｿｽZｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽoｿｽRｿｽﾅ一括ｿｽRｿｽsｿｽ[
E_Application.Range['H12', 'I13'].Copy;
E_Application.Range['A10'].PasteSpecial;
ｿｽｿｽｿｽ 2005/08/01(ｿｽｿｽ) 17:01:55
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽAｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ齡ｭｿｽﾅコｿｽsｿｽ[ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾈみに、ｿｽZｿｽｿｽｿｽﾌ搾ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾍどの様ｿｽﾉ設定すｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽﾄ祭ゑｿｽﾉは具ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2005/08/02(ｿｽｿｽ) 09:45:21
// ｿｽsｿｽﾌ搾ｿｽｿｽｿｽｿｽAｿｽｿｽﾌ包ｿｽ
E_Application.Rows[10].RowHeight := 20;
E_Application.Columns[2].ColumnWidth := 10;
// ｿｽﾍ囲指ｿｽｿｽﾅ包ｿｽ,ｿｽAｿｽｿｽｿｽｿｽｿｽZｿｽbｿｽg
E_Application.Range['A10','A16'].RowHeight := 12.3;
E_Application.Range['B1','G1'].ColumnWidth := 15;
ｿｽｿｽｿｽ 2005/08/02(ｿｽｿｽ) 14:26:55
ｿｽﾄ祭ゑｿｽﾉは具ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽｿｽｿｽｿｽAExcelｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾉデｿｽ[ｿｽ^ｿｽｿｽｿｽcｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽoｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽNｿｽｿｽｿｽbｿｽvｿｽ{ｿｽ[ｿｽhｿｽﾌクｿｽｿｽｿｽAｿｽﾌ包ｿｽｿｽ@ｿｽﾍゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽHｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
