1 2 3 4 5 6 7 8 9 10 11 12 13
| procedure TForm1.Button1Click(Sender: TObject);
const
vbext_ct_StdModule = 1;
var
objModule : OleVariant;
begin
ExcelApplication1.Workbooks.Open('C:\Ton fichier Excel.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
objModule:=ExcelApplication1.VBE.ActiveVBProject.VBComponents.Item('Module1');
objModule.CodeModule.InsertLines(1,'Public sub HiThere()');//on ajoute du code VB dans ce fichier
objModule.CodeModule.InsertLines(2,'ShowMsg("Bonjour!")');
objModule.CodeModule.InsertLines(3,'End Sub');
ExcelApplication1.ActiveWorkBook.Save(0);
end; |
Partager