47 lines
1.4 KiB
Plaintext
47 lines
1.4 KiB
Plaintext
// xlsx := new TSExcelFile();
|
|
// xlsx.NewFile();
|
|
// xlsx.OpenFile("", "D:\\temp\\vba_new.xlsx");
|
|
|
|
application := new Application();
|
|
application.Workbooks.Add;
|
|
Workbooks := application.Workbooks;
|
|
Workbooks.Open(FileName : "D:/temp/vba_new.xlsx");
|
|
println("Workbooks.Count = {}", Workbooks.Count);
|
|
Workbooks[2].Worksheets("sheet2").Activate;
|
|
Workbooks[2].ActiveSheet.Name;
|
|
println("fullname 1 = {}", Workbooks[1].FullName);
|
|
println("fullname 2 = {}", Workbooks[2].FullName);
|
|
application.Workbooks(2).Close(SaveChanges : true, FileName : "D:/temp/vba_close.xlsx");
|
|
println("close one, Workbooks.Count = {}", Workbooks.Count);
|
|
application.Workbooks.Open(FileName : "D:/temp/vba_close.xlsx");
|
|
println("workbook(2).name = {}", application.Workbooks(2).Name);
|
|
Workbooks[2].Password := "tinysoft";
|
|
Workbooks[2].Save();
|
|
println("Path = {}", Workbooks[2].Path);
|
|
|
|
return;
|
|
|
|
|
|
Sheets := application.Sheets;
|
|
println("sheets.Count = {}", sheets.Count);
|
|
param := array('After': application.Sheets(Sheets.Count), 'Count': 2);
|
|
application.Worksheets.Add(param);
|
|
|
|
xlsx.SaveAs("", "D:\\temp\\xlsxvba.xlsx");
|
|
return;
|
|
|
|
application.Worksheets(1).Visible := false;
|
|
Worksheets := application.Worksheets;
|
|
Worksheets[1].Visible := false;
|
|
Worksheets['Sheet1'].Visible := false;
|
|
Worksheets[1].Activate;
|
|
count := Worksheets.Count;
|
|
println("Worksheets.Count = {}", count);
|
|
arr := array("After": Worksheets[1]);
|
|
application.Worksheets('Sheet1').Copy(arr);
|
|
|
|
xlsx.SaveAs("", "D:\\temp\\xlsxvba.xlsx");
|
|
return;
|
|
|
|
|