commit fec9adacd33aeef3b0da34a058dd417afe316abe
Author: csh <caoshenghui@tinysoft.com.cn>
Date:   Wed Sep 13 16:33:24 2023 +0800

    worbooks以及workbook初次实现

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..d48072e
--- /dev/null
+++ b/README.md
@@ -0,0 +1 @@
+# TSOfficeVba 项目: 基于 TSOffice 项目，以类 VBA 方式，用 TSL 实现对 excel、word 的操作
diff --git a/test/xlsx_test.tsl b/test/xlsx_test.tsl
new file mode 100644
index 0000000..7ac1503
--- /dev/null
+++ b/test/xlsx_test.tsl
@@ -0,0 +1,46 @@
+// 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;
+
+
diff --git a/utils/Collection.tsf b/utils/Collection.tsf
new file mode 100644
index 0000000..304b686
--- /dev/null
+++ b/utils/Collection.tsf
@@ -0,0 +1,108 @@
+Type Collection = class
+
+public
+	Function Create();
+	Function SetIgnoreCase(value);
+	Function SetActivate(value);
+	Function GetActivate();
+	Function CalNewName(prefix);
+	Function CompareFunction(index, data);
+
+	Function AddCollection(obj, name);
+	Function RemoveCollection(index);
+	Function Operator[](index);
+	Function GetCount();
+
+public
+	class Function GetInstance(value);
+
+private
+	ignorecase_; // 忽略大小写
+	container_;	 // 容器对象
+	fp_;	// 函数指针 -- 用来比较
+	activate_; // 激活的对象
+
+private
+	static collection_;
+
+End;
+
+// ============== 实现 ================= //
+Function Collection.Create();
+Begin
+	container_ := ContainerList();
+	ignorecase_ := false;
+	fp_ := FindFunction("CompareFunction", self);
+End;
+
+Function Collection.SetIgnoreCase(value);
+Begin
+	ignorecase_ := value;
+End;
+
+Function Collection.SetActivate(value);
+Begin
+	activate_ := self[value];
+End;
+
+Function Collection.GetActivate();
+Begin
+	return activate_;
+End;
+
+Function Collection.CompareFunction(index, data);
+Begin
+	return (ifnumber(index) and data.index = index)
+			or data.name = index
+			or (ignorecase_ and lowercase(data.name) = lowercase(index));
+End;
+
+Function Collection.CalNewName(prefix);
+Begin
+	len := GetCount() + 1;
+	name := prefix $ len;
+	while container_.Get(name, fp_) do
+		name := prefix $ ++len;
+	return name;
+End;
+
+class Function Collection.GetInstance(value);
+Begin
+	if not istable(collection_) then collection_ := array();
+	if not collection_[value] then
+		collection_[value] := new Collection();
+	return collection_[value];
+End;
+
+Function Collection.AddCollection(obj, name);
+Begin
+	data := new Data();
+	data.obj := obj;
+	data.name := name;
+	data.index := GetCount() + 1;
+	return container_.Add(data);
+End;
+
+Function Collection.RemoveCollection(index);
+Begin
+	return container_.Remove(index, fp_);
+End;
+
+Function Collection.GetCount();
+Begin
+	return container_.Size();
+End;
+
+Function Operator Collection.[](index);
+Begin
+	ret := container_.Get(index, fp_);
+	return ret ? ret.obj : nil;
+End;
+
+// 集合中需要记录的数据
+Type Data = class
+	obj;
+	name;
+	index;
+End;
+
diff --git a/utils/ContainerList.tsf b/utils/ContainerList.tsf
new file mode 100644
index 0000000..6c9992c
--- /dev/null
+++ b/utils/ContainerList.tsf
@@ -0,0 +1,91 @@
+Function ContainerList();
+Begin
+	return new LinkList();
+End;
+
+Type LinkList = class
+
+private
+	count_;
+	head_;
+	tail_;
+
+public
+	Function Create();
+	Function Add(data);
+	Function Remove(index, fp);
+	Function Size();
+	Function Get(index, fp);
+	Function Find(index, fp);
+
+End;
+
+Function LinkList.Create();
+Begin
+	head_ := new List(nil);
+	tail_ := head_;
+	count_ := 0;
+End;
+
+Function LinkList.Add(data);
+Begin
+    list := new List(data);
+    tail_.next := list;
+    list.prev := tail_;
+    tail_ := list;
+    count_ ++;
+End;
+
+Function LinkList.Remove(index, fp);
+Begin
+	node := Find(index, fp);
+	if ifnil(node) then return;
+	if node = tail_ then tail_ := node.prev;
+	else begin
+		node.prev.next := node.next;
+		node.next.prev := node.prev;
+		node := nil;
+	end
+	count_--;
+End;
+
+Function LinkList.Size();
+Begin
+	return count_;
+End;
+
+Function LinkList.Find(index, fp);
+Begin
+	node := head_.next;
+	while (node) do
+	begin
+		if (fp and fp.do(index, node.data)) or node.data = index then
+			return node;
+		node := node.next;
+	end
+	return nil;
+End;
+
+Function LinkList.Get(index, fp);
+Begin
+	node := Find(index, fp);
+	return ifnil(node) ? nil : node.data;
+End;
+
+
+Type List = class
+
+public
+	data;
+	prev;
+	next;
+
+	Function Create(value);
+	Begin
+		data := value;
+		prev := nil;
+		next := nil;
+	End;
+
+End;
+
diff --git a/xlsx/Application.tsf b/xlsx/Application.tsf
new file mode 100644
index 0000000..e3332af
--- /dev/null
+++ b/xlsx/Application.tsf
@@ -0,0 +1,32 @@
+Type Application = class
+
+public
+	Function Create();
+	Function Init();
+
+public
+	Property Workbooks read ReadWorkbooks; // Completed
+	Function ReadWorkbooks(index);
+
+private
+	workbooks_;
+
+End;
+
+// ============== 实现 ================= //
+Function Application.Create();
+Begin
+	Init();
+End;
+
+Function Application.Init();
+Begin
+	workbooks_ := new Workbooks();
+End;
+
+Function Application.ReadWorkbooks(index)
+Begin
+	if ifnil(index) then return workbooks_;
+	return workbooks_[index];
+End;
+
diff --git a/xlsx/Author.tsf b/xlsx/Author.tsf
new file mode 100644
index 0000000..e69de29
diff --git a/xlsx/Workbook.tsf b/xlsx/Workbook.tsf
new file mode 100644
index 0000000..6665c24
--- /dev/null
+++ b/xlsx/Workbook.tsf
@@ -0,0 +1,437 @@
+Type Workbook = class
+
+public
+	Function Create(object, name, fullname);
+	Function Init(object);
+
+private
+	xlsx_;
+	file_name_;
+	full_name_;
+	collection_;
+
+public
+	Function AcceptAllChanges();
+	Function Activate();
+	Function AddToFavorite();
+	Function ApplyTheme();
+	Function BreakLink(Name, Type);
+	Function CanCheckIn();
+	Function ChangeFileAccess(Mode, WritePassword, Notify);
+	Function ChangeLink(Name, NewName, Type);
+	Function CheckIn(SaveChanges, Comments, MakePublic);
+	Function CheckInWithVersion(SaveChanges, Comments, MakePublic, VersionType);
+	Function Close(SaveChanges, FileName, RouteWorkbook);		// Completed
+	Function ConvertComments();
+	Function CreateForecastSheet(Timeline, Values_, ForecastStart, ForecasetEnd, ConfInt, Seasonality, DataCompletion, Aggregation, ChartType, ShowStatsTable);
+	Function DeleteNumberFormat(NumberFormat);
+	Function EnableConnections();
+	Function EndReview();
+	Function ExclusiveAccess();
+	Function ExportAsFixedFormat (Type, FileName, Quality, IncludeDocProperties, IgnorePrintAreas, From_, To_, OpenAfterPublish, FixedFormatExtClassPtr);
+	Function FollowHyperlink (Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo);
+	Function ForwardMailer();
+	Function GetWorkflowTasks();
+	Function GetWorkflowTemplates();
+	Function HighlightChangesOptions(When, Who, Where_);
+	Function LinkInfo (Name, LinkInfo, Type, EditionRef);
+	Function LinkSources (Type);
+	Function LockServerFile();
+	Function MergeWorkbook (FileName);
+	Function NewWindow();
+	Function OpenLinks(Name, ReadOnly, Type);
+	Function PivotCaches();
+	Function Post();
+	Function PrintOut(From_, To_, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas);
+	Function PrintPreview(EnableChanges);
+	Function Protect(Password, Structure, Windows);
+	Function ProtectSharing(FileName, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, SharingPassword, FileFormat);
+	Function PublishToDocs();
+	Function PurgeChangeHistoryNow(Days, SharingPassword);
+	Function RefreshAll();
+	Function RejectAllChanges(When, Who, Where_);
+	Function ReloadAs(Encoding);
+	Function RemoveDocumentInformation(RemoveDocInfoType);
+	Function RemoveUser(Index);
+	Function Reply();
+	Function ReplyAll();
+	Function ReplyWithChanges(ShowMessage);
+	Function ResetColors();
+	Function RunAutoMacros(Which);
+	Function Save();	// Completed
+	Function SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode,
+					ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local); // Completed
+	Function SaveAsXMLData(FileName, Map);
+	Function SaveCopyAs(FileName); // Completed
+	Function SendFaxOverInternet(Recipients, Subject, ShowMessage);
+	Function SendForReview(Recipients, Subject, ShowMessage, IncludeAttachment);
+	Function SendMail(Recipients, Subject, ReturnReceipt);
+	Function SendMailer(FileFormat, Priority);
+	Function SetLinkOnData(Name, Procedure_);
+	Function SetPasswordEncryptionOptions(PasswordEncryptionProvider, PasswordEncryptionAlgorithm, PasswordEncryptionKeyLength, PasswordEncryptionFileProperties);
+	Function ToggleFormsDesign();
+	Function Unprotect(Password);
+	Function UnprotectSharing(SharingPassword);
+	Function UpdateFromFile();
+	Function UpdateLink(Name, Type);
+	Function WebPagePreview();
+	Function XmlImport(Url, ImportMap, Overwrite, Destination);
+	Function XmlImportXml(Data, ImportMap, Overwrite, Destination);
+
+	property AccuracyVersion read ReadAccuracyVersion write WriteAccuracyVersion;
+	property ActiveChart read ReadActiveChart;
+	property ActiveSheet read ReadActiveSheet; // Completed
+	property ActiveSlicer read ReadActiveSlicer;
+	property Application read ReadApplication;
+	property AutoSaveOn read ReadAutoSaveOn write WriteAutoSaveOn;
+	property AutoUpdateFrequency read ReadAutoUpdateSaveChanges write WriteAutoUpdateSaveChanges;
+	property AutoUpdateSaveChanges read ReadAutoUpdateSaveChanges write WriteAutoUpdateSaveChanges;
+	property BuiltinDocumentProperties read ReadBuiltinDocumentProperties; // TODO
+	property CalculationVersion read ReadCalculationVersion; // TODO
+	property CaseSensitive read ReadCaseSensitive; // TODO
+	property ChangeHistoryDuration read ReadChangeHistoryDuration write WirteChangeHistoryDuration;
+	property ChartDataPointTrack read ReadChartDataPointTrack write WriteChartDataPointTrack;
+	property Charts read ReadCharts; // TODO
+	property CheckCompatibility read ReadCheckCompatibility write WriteCheckCompatibility;
+	property CodeName read ReadCodeName;
+	property Colors read ReadColors write WriteColors;
+	property CommandBars read ReadCommandBars;
+	property ConflictResolution read ReadConflictResolution write WriteConflictResolution;
+	property Connections read ReadConnections;
+	property ConnectionsDisabled read ReadConnectionsDisabled;
+	property Container read ReadContainer;
+	property ContentTypeProperties read ReadContentTypeProperties;
+	property CreateBackup read ReadCreateBackup;
+	property Creator read ReadCreator;
+	property CustomDocumentProperties read ReadCustomDocumentProperties write WriteCustomDocumentProperties; // TODO
+	property CustomViews read ReadCustomViews;
+	property CustomXMLParts read ReadCustomXMLParts;
+	property Date1904 read ReadDate1904 write WriteDate1904;
+	property DefaultPivotTableStyle read ReadDefaultPivotTableStyle write WriteDefaultPivotTableStyle;
+	property DefaultSlicerStyle read ReadDefaultSlicerStyle write WriteDefaultSlicerStyle;
+	property DefaultTableStyle read ReadDefaultTableStyle write WriteDefaultTableStyle; // TODO
+	property DefaultTimelineStyle read ReadDefaultTimelineStyle write WriteDefaultTimelineStyle;
+	property DisplayDrawingObjects read ReadDisplayDrawingObjects write WriteDisplayDrawingObjects;
+	property DisplayInkComments read ReadDisplayInkComments write WriteDisplayInkComments;
+	property DocumentInspectors read ReadDocumentInspectors;
+	property DocumentLibraryVersions read ReadDocumentLibraryVersions;
+	property DoNotPromptForConvert read ReadDoNotPromptForConvert write WriteDoNotPromptForConvert;
+	property EnableAutoRecover read ReadEnableAutoRecover write WriteEnableAutoRecover;
+	property EncryptionProvider read ReadEncryptionProvider write WriteEncryptionProvider;
+	property EnvelopeVisible read ReadEnvelopeVisible write WriteEnvelopeVisible;
+	property Excel4IntlMacroSheets read ReadExcel4IntlMacroSheets;
+	property Excel4MacroSheets read ReadExcel4MacroSheets;
+	property Excel8CompatibilityMode read ReadExcel8CompatibilityMode;
+	property FileFormat read ReadFileFormat;
+	property Final read ReadFinal write WriteFinal;
+	property ForceFullCalculation read ReadForceFullCalculation write WriteForceFullCalculation;
+	property FullName read ReadFullName; // Completed
+	property FullNameURLEncoded read ReadFullNameURLEncoded;
+	property HasPassword read ReadHasPassword;
+	property HasVBProject read ReadHasVBProject;
+	property HighlightChangesOnScreen read ReadHighlightChangesOnScreen write WriteHighlightChangesOnScreen;
+	property IconSets read ReadIconSets;
+	property InactiveListBorderVisible read ReadInactiveListBorderVisible write WriteInactiveListBorderVisible;
+	property IsAddin read ReadIsAddin write WriteIsAddin;
+	property IsInplace read ReadIsInplace;
+	property KeepChangeHistory read ReadKeepChangeHistory write WriteKeepChangeHistory;
+	property ListChangesOnNewSheet read ReadListChangesOnNewSheet write WriteListChangesOnNewSheet;
+	property Mailer read ReadMailer write WriteMailer;
+	property Model read ReadModel;
+	property MultiUserEditing read ReadMultiUserEditing;
+	property Name read ReadName;
+	property Names read ReadNames;
+	property Parent read ReadParent;
+	property Password read ReadPassword write WritePassword; // Completed
+	property PasswordEncryptionAlgorithm read ReadPasswordEncryptionAlgorithm;
+	property PasswordEncryptionFileProperties read ReadPasswordEncryptionFileProperties;
+	property PasswordEncryptionKeyLength read ReadPasswordEncryptionKeyLength;
+	property PasswordEncryptionProvider read ReadPasswordEncryptionProvider;
+	property Path read ReadPath;
+	property Permission read ReadPermission;
+	property PersonalViewListSettings read ReadPersonalViewListSettings write WritePersonalViewListSettings;
+	property PersonalViewPrintSettings read ReadPersonalViewPrintSettings write WritePersonalViewPrintSettings;
+	property PivotTables read ReadPivotTables;
+	property PrecisionAsDisplayed read ReadPrecisionAsDisplayed write WritePrecisionAsDisplayed;
+	property ProtectStructure read ReadProtectStructure;
+	property ProtectWindows read ReadProtectWindows;
+	property PublishObjects read ReadPublishObjects;
+	property Queries read ReadQueries;
+	property ReadOnly read ReadReadOnly;
+	property ReadOnlyRecommended read ReadReadOnlyRecommended;
+	property RemovePersonalInformation read ReadRemovePersonalInformation write WriteRemovePersonalInformation;
+	property Research read ReadResearch;
+	property RevisionNumber read ReadRevisionNumber;
+	property Saved read ReadSaved write WriteSaved;
+	property SaveLinkValues read ReadSaveLinkValues write WriteSaveLinkValues;
+	property SensitivityLabel read ReadSensitivityLabel;
+	property ServerPolicy read ReadServerPolicy;
+	property ServerViewableItems read ReadServerViewableItems;
+	property Sheets read ReadSheets; // TODO - 差chartsheet
+	property ShowConflictHistory read ReadShowConflictHistory write WriteShowConflictHistory;
+	property ShowPivotChartActiveFields read ReadShowPivotChartActiveFields write WriteShowPivotChartActiveFields;
+	property ShowPivotTableFieldList read ReadShowPivotTableFieldList write WriteShowPivotTableFieldList;
+	property Signatures read ReadSignatures;
+	property SlicerCaches read ReadSlicerCaches;
+	property SmartDocument read ReadSmartDocument;
+	property Styles read ReadStyles; // TODO
+	property TableStyles read ReadTableStyles;
+	property TemplateRemoveExtData read ReadTemplateRemoveExtData write WriteTemplateRemoveExtData;
+	property Theme read ReadTheme;
+	property UpdateLinks read ReadUpdateLinks write WriteUpdateLinks;
+	property UpdateRemoteReferences read ReadUpdateRemoteReferences write WriteUpdateRemoteReferences;
+	property UserStatus read ReadUserStatus;
+	property UseWildcardsoperty read ReadUseWildcardsoperty;
+	property VBASigned read ReadVBASigned;
+	property VBProject read ReadVBProject;
+	property WebOptions read ReadWebOptions;
+	property Windows read ReadWindows;
+	property Worksheets read ReadWorkSheets; // Completed
+	property WritePassword read ReadWritePassword write WriteWritePassword;
+	property WriteReserved read ReadWriteReserved;
+	property WriteReservedBy read ReadWriteReservedBy;
+	property XmlMaps read ReadXmlMaps;
+	property XmlNamespaces read ReadXmlNamespaces;
+	Function ReadXmlNamespaces();
+	Function ReadXmlMaps();
+	Function ReadWriteReservedBy();
+	Function ReadWriteReserved();
+	Function WriteWritePassword();
+	Function ReadWritePassword();
+	Function ReadWorkSheets(index);
+	Function ReadWindows();
+	Function ReadWebOptions();
+	Function ReadVBProject();
+	Function ReadVBASigned();
+	Function ReadUseWildcardsoperty();
+	Function ReadUseWholeCellCriteria();
+	Function ReadUserStatus();
+	Function WriteUpdateRemoteReferences();
+	Function ReadUpdateRemoteReferences();
+	Function WriteUpdateLinks();
+	Function ReadUpdateLinks();
+	Function ReadTheme();
+	Function WriteTemplateRemoveExtData();
+	Function ReadTemplateRemoveExtData();
+	Function ReadTableStyles();
+	Function ReadStyles();
+	Function ReadSmartDocument();
+	Function ReadSlicerCaches();
+	Function ReadSignatures();
+	Function WriteShowPivotTableFieldList();
+	Function ReadShowPivotTableFieldList();
+	Function WriteShowPivotChartActiveFields();
+	Function ReadShowPivotChartActiveFields();
+	Function WriteShowConflictHistory();
+	Function ReadShowConflictHistory();
+	Function ReadSheets();
+	Function ReadServerViewableItems();
+	Function ReadServerPolicy();
+	Function ReadSensitivityLabel();
+	Function WriteSaveLinkValues();
+	Function ReadSaveLinkValues();
+	Function WriteSaved();
+	Function ReadSaved();
+	Function ReadRevisionNumber();
+	Function ReadResearch();
+	Function WriteRemovePersonalInformation();
+	Function ReadRemovePersonalInformation();
+	Function ReadReadOnlyRecommended();
+	Function ReadReadOnly();
+	Function ReadQueries();
+	Function ReadPublishObjects();
+	Function ReadProtectWindows();
+	Function ReadProtectStructure();
+	Function WritePrecisionAsDisplayed();
+	Function ReadPrecisionAsDisplayed();
+	Function ReadPivotTables();
+	Function WritePersonalViewPrintSettings();
+	Function ReadPersonalViewPrintSettings();
+	Function WritePersonalViewListSettings();
+	Function ReadPersonalViewListSettings();
+	Function ReadPermission();
+	Function ReadPath();
+	Function ReadPasswordEncryptionProvider();
+	Function ReadPasswordEncryptionKeyLength();
+	Function ReadPasswordEncryptionFileProperties();
+	Function ReadPasswordEncryptionAlgorithm();
+	Function WritePassword(passwd);
+	Function ReadPassword();
+	Function ReadParent();
+	Function ReadNames();
+	Function ReadName();
+	Function ReadMultiUserEditing();
+	Function ReadModel();
+	Function WriteMailer();
+	Function ReadMailer();
+	Function WriteListChangesOnNewSheet();
+	Function ReadListChangesOnNewSheet();
+	Function WriteKeepChangeHistory();
+	Function ReadKeepChangeHistory();
+	Function ReadIsInplace();
+	Function WriteIsAddin();
+	Function ReadIsAddin();
+	Function WriteInactiveListBorderVisible();
+	Function ReadInactiveListBorderVisible();
+	Function ReadIconSets();
+	Function WriteHighlightChangesOnScreen();
+	Function ReadHighlightChangesOnScreen();
+	Function ReadHasVBProject();
+	Function ReadHasPassword();
+	Function ReadFullNameURLEncoded();
+	Function ReadFullName();
+	Function WriteForceFullCalculation();
+	Function ReadForceFullCalculation();
+	Function WriteFinal();
+	Function ReadFinal();
+	Function ReadFileFormat();
+	Function ReadExcel8CompatibilityMode();
+	Function ReadExcel4MacroSheets();
+	Function ReadExcel4IntlMacroSheets();
+	Function WriteEnvelopeVisible();
+	Function ReadEnvelopeVisible();
+	Function WriteEncryptionProvider();
+	Function ReadEncryptionProvider();
+	Function WriteEnableAutoRecover();
+	Function ReadEnableAutoRecover();
+	Function WriteDoNotPromptForConvert();
+	Function ReadDoNotPromptForConvert();
+	Function ReadDocumentLibraryVersions();
+	Function ReadDocumentInspectors();
+	Function WriteDisplayInkComments();
+	Function ReadDisplayInkComments();
+	Function WriteDisplayDrawingObjects();
+	Function ReadDisplayDrawingObjects();
+	Function WriteDefaultTimelineStyle();
+	Function ReadDefaultTimelineStyle();
+	Function WriteDefaultTableStyle();
+	Function ReadDefaultTableStyle();
+	Function WriteDefaultSlicerStyle();
+	Function ReadDefaultSlicerStyle();
+	Function WriteDefaultPivotTableStyle();
+	Function ReadDefaultPivotTableStyle();
+	Function WriteDate1904();
+	Function ReadDate1904();
+	Function ReadCustomXMLParts();
+	Function ReadCustomViews();
+	Function WriteCustomDocumentProperties(value);
+	Function ReadCustomDocumentProperties(item);
+	Function ReadCreator();
+	Function ReadCreateBackup();
+	Function ReadContentTypeProperties();
+	Function ReadContainer;
+	Function ReadConnectionsDisabled();
+	Function ReadConnections();
+	Function WriteConflictResolution();
+	Function ReadConflictResolution();
+	Function ReadCommandBars();
+	Function WriteColors(index, value);
+	Function ReadColors(index);
+	Function ReadCodeName();
+	Function ReadCheckCompatibility();
+	Function WriteCheckCompatibility();
+	Function ReadCharts();
+	Function ReadChartDataPointTrack();
+	Function WriteChartDataPointTrack();
+	Function WirteChangeHistoryDuration();
+	Function ReadChangeHistoryDuration();
+	Function ReadCaseSensitive();
+	Function ReadCalculationVersion();
+	Function ReadBuiltinDocumentProperties();
+	Function ReadAutoUpdateSaveChanges();
+	Function WriteAutoUpdateSaveChanges();
+	Function ReadAutoSaveOn();
+	Function WriteAutoSaveOn();
+	Function ReadApplication();
+	Function ReadActiveSlicer();
+	Function ReadActiveSheet();
+	Function ReadActiveChart();
+	Function ReadAccuracyVersion();
+	Function WriteAccuracyVersion(value);
+
+private
+	worksheets_;
+
+End;
+
+// ============== 实现 ================= //
+Function Workbook.Create(object, name, fullname);
+Begin
+	xlsx_ := object;
+	file_name_ := name;
+	full_name_ := fullname;
+	collection_ := class(Collection).GetInstance('workbook');
+	Init(object);
+End;
+
+Function Workbook.Init(object);
+Begin
+	worksheets_ := new Worksheets(object, file_name_);
+End;
+
+// function
+Function Workbook.Close(SaveChanges, FileName, RouteWorkbook);
+Begin
+	if SaveChanges then xlsx_.Save();
+	if FileName then xlsx_.SaveAs("", FileName);
+	collection_.RemoveCollection(file_name_);
+End;
+
+Function Workbook.Save();
+Begin
+	xlsx_.Save();
+End;
+
+Function Workbook.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended,
+		 CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local);
+Begin
+	xlsx_.SetPassword(Password);
+	xlsx_.SaveAs("", FileName);
+End;
+
+Function Workbook.SaveCopyAs(FileName);
+Begin
+	xlsx_.SaveAs("", FileName);
+End;
+
+// property
+Function Workbook.ReadWorkSheets(index);
+Begin
+	if ifnil(index) then return worksheets_;
+	return worksheets_.worksheet(index);
+End;
+
+Function Workbook.ReadActiveSheet();
+Begin
+	return worksheets_.GetCollection().GetActivate();
+End;
+
+Function Workbook.ReadFullName();
+Begin
+	return full_name_;
+End;
+
+Function Workbook.ReadFullNameURLEncoded();
+Begin
+	return full_name_;
+End;
+
+Function Workbook.ReadName();
+Begin
+	return file_name_;
+End;
+
+Function Workbook.WritePassword(passwd);
+Begin
+	xlsx_.SetPassword(passwd);
+End;
+
+Function Workbook.ReadPassword();
+Begin
+	return "******";
+End;
+
+Function Workbook.ReadPath();
+Begin
+	return ExtractFileDir(full_name_);
+End;
diff --git a/xlsx/Workbooks.tsf b/xlsx/Workbooks.tsf
new file mode 100644
index 0000000..5b7043f
--- /dev/null
+++ b/xlsx/Workbooks.tsf
@@ -0,0 +1,80 @@
+Type Workbooks = class
+
+public
+	Function Create();
+	Function Operator[](index);
+
+private
+	collection_;
+
+public
+	Function Add(template); // Completed
+	Function CanCheckOut(FileName);
+	Function CheckOut(FileName);
+	Function Close();
+	Function Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword,
+				  IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify,
+				  Converter, AddToMru, Local, CorruptLoad);	// Completed
+	Function OpenDatabase();
+	Function OpenText();
+	Function OpenXML();
+
+	property Application read ReadApplication;
+	property Count read ReadCount;
+	property Creator read ReadCreator;
+	property Item read ReadItem;
+	property Parent read ReadParent;
+	Function ReadCount();	// Completed
+	Function ReadItem(index);	// Completed
+	Function ReadApplication();
+	Function ReadCreator();
+	Function ReadParent();
+
+private
+	Function AddWorkbook(xlsx, name);  // Completed
+
+End;
+
+// ============== 实现 ================= //
+Function Workbooks.Create();
+Begin
+	collection_ := class(Collection).GetInstance('workbook');
+End;
+
+Function Operator Workbooks.[](index);
+Begin
+	return collection_[index];
+End;
+
+Function Workbooks.Add(template);
+Begin
+	xlsx := new TSXlsxFile();
+	xlsx.NewFile();
+	AddWorkbook(xlsx, collection_.CalNewName("工作簿"));
+End;
+
+Function Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword,
+				  IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify,
+				  Converter, AddToMru, Local, CorruptLoad);	// Completed
+Begin
+	xlsx := new TSXlsxFile();
+	[err, msg] := xlsx.OpenFile("", FileName, Password);
+	if err then return;
+	AddWorkbook(xlsx, xlsx.FileName());
+End;
+
+Function Workbooks.ReadCount();
+Begin
+	return collection_.GetCount();
+End;
+
+Function Workbooks.ReadItem(index);
+Begin
+	return collection_[index];
+End;
+
+Function Workbooks.AddWorkbook(xlsx, fullname);
+Begin
+	name := ExtractFileName(fullname);
+	collection_.AddCollection(new Workbook(xlsx, name, fullname), name);
+End;
diff --git a/xlsx/Worksheet.tsf b/xlsx/Worksheet.tsf
new file mode 100644
index 0000000..b839a8f
--- /dev/null
+++ b/xlsx/Worksheet.tsf
@@ -0,0 +1,96 @@
+Type Worksheet = class
+
+public
+	Function Create(obj, sheet_name, collection);
+
+private
+	xlsx_;
+	sheet_name_;
+	collection_;
+
+private
+	Function CalSheetName();
+
+public
+	Function Activate();	// Completed
+	Function Copy(arr);		// Completed
+	Function Calculate();
+	Function ChartObjects();
+	Function CheckSpelling();
+	Function CircleInvalid();
+	Function ClearArrows();
+	Function Delete();
+	Function Evaluate();
+	Function ExportAsFixedFormat();
+	Function Move();
+	Function OLEObjects();
+	Function Paste();
+	Function PasteSpecial();
+	Function PivotTables();
+	Function PivotTableWizard();
+	Function PrintOut();
+	Function PrintPreview();
+	Function Protect();
+	Function ResetAllPageBreaks();
+	Function SaveAs();
+	Function Scenarios();
+	Function Select();
+	Function SetBackgroundPicture();
+	Function ShowAllData();
+	Function ShowDataForm();
+	Function UnProtect();
+	Function XmlDataQuery();
+	Function XmlMapQuery();
+
+	// VBA Property
+	property Visible write WriteVisible;
+	property Name read ReadName write WriteName;
+	Function WriteVisible(value);
+	Function WriteName(new_name);
+	Function ReadName();
+
+End;
+
+// ============== 实现 ================= //
+Function Worksheet.Create(obj, sheet_name, collection);
+Begin
+	xlsx_ := obj;
+	sheet_name_ := sheet_name;
+	collection_ := collection;
+End;
+
+Function Worksheet.CalSheetName();
+Begin
+	count := xlsx_.GetSheetsCount();
+	sheets := xlsx_.GetSheets();
+	name := "Sheet" $ count;
+	while name in sheets do
+		name := "Sheet" $ ++count;
+	return name;
+End;
+
+Function Worksheet.Activate();
+Begin
+	collection_.SetActivate(sheet_name_);
+	return xlsx_.SetDefaultSheet(sheet_name_);
+End;
+
+Function Worksheet.Copy(arr);
+Begin
+	if not istable(arr) then return xlsx_.CopySheet(self.Name, CalSheetName());
+End;
+
+Function Worksheet.WriteVisible(value);
+Begin
+	return xlsx_.SetSheetVisible(sheet_name_, value);
+End;
+
+Function Worksheet.WriteName(new_name);
+Begin
+	return xlsx_.SetSheetName(sheet_name_, new_name);
+End;
+
+Function Worksheet.ReadName();
+Begin
+	return sheet_name_;
+End;
diff --git a/xlsx/Worksheets.tsf b/xlsx/Worksheets.tsf
new file mode 100644
index 0000000..a714ed4
--- /dev/null
+++ b/xlsx/Worksheets.tsf
@@ -0,0 +1,66 @@
+Type Worksheets = class
+
+public
+	Function Create(object, name);
+	Function Init();
+	Function Operator[](index);
+	Function GetCollection();
+
+private
+	xlsx_;
+	collection_;
+
+public
+	Function Add();
+	Function Add2();
+	Function Copy();
+	Function Delete();
+	Function FillAcrossSheets();
+	Function Move();
+	Function PrintOut();
+	Function PrintPreview();
+	Function Select();
+
+	property worksheet read ReadWorksheet;
+	property Count read ReadCount;
+	Function ReadWorksheet(index);
+	Function ReadCount();
+
+End;
+
+// ============== 实现 ================= //
+Function Worksheets.Create(object, name);
+Begin
+	xlsx_ := object;
+	collection_ := class(Collection).GetInstance(name $ "worksheet");
+	collection_.SetIgnoreCase(true);
+	Init();
+End;
+
+Function Worksheets.Init();
+Begin
+	sheets := xlsx_.GetSheets();
+	for k, v in sheets do
+		collection_.AddCollection(new Worksheet(xlsx_, v, collection_), v);
+	collection_.SetActivate(xlsx_.GetDefaultSheet());
+End;
+
+Function Operator Worksheets.[](index);
+Begin
+	return collection_[index];
+End;
+
+Function Worksheets.ReadWorksheet(index);
+Begin
+	return collection_[index];
+End;
+
+Function Worksheets.ReadCount();
+Begin
+	return collection_.GetCount();
+End;
+
+Function Worksheets.GetCollection();
+Begin
+	return collection_;
+End;