本人電腦安裝的是DELPHI XE7，OFFICE是2013版
現有一堆EXCEL檔案，有.xls, 有.xlsx，一份EXCEL表中可能只有一個sheet，也有可能有N個sheet，每個sheet大約有1~6w條資料，
現在要求把這些EXCEL檔案里的所有不是空白的sheet內容讀出來，寫入另一個EXCEL檔案中（當然這些要讀的sheet表頭都是一樣的）
其實說白了就是把多個EXCEL內容合并成一個EXCEL（當然，如果條數超過1048575時，會繼續生成第二份EXCEL)
本來想用XLSReadWriteII5實作的，但是發現它沒法計算sheetcount的功能。
想問除了用OLE寫外，還有其他更好的方法嗎？小女子在此先謝過各位大俠了。
uj5u.com熱心網友回復：
建議你建立一個表，將EXCEL資料全部讀入事，場面由誶表生成EXCEL。這樣比較方便，在表內可以排除重復的資料。
uj5u.com熱心網友回復：
建立表？
uj5u.com熱心網友回復：
沒有人能回答嗎？uj5u.com熱心網友回復：
頂起來，讓更多的人看見uj5u.com熱心網友回復：
你說的SheetCount是指一個Excel里有多少個Sheet頁嗎？可以用Count來統計啊
XLSReadWriteII51.Filename :='D:\TEMP\test.xlsx';
XLSReadWriteII51.Read;
Application.MessageBox(PChar('當前EXCEL內有'+inttostr(XLSReadWriteII51.Count)+'個Sheet'), '提示', MB_OK + MB_ICONINFORMATION);
uj5u.com熱心網友回復：
太感謝了，原來SheetCount 是這樣算的，學習了
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/37865.html
標籤：VCL組件開發及應用
上一篇：RXLIB 2.75 FOR XE10.2 怎么安裝？請大神相助
下一篇：我以前用Delphi5開發，現在想用delphi XE7或XE8來開發，但是沒有破解方法，求各位支招。謝謝各位。