請教各位: 我在貴站查資料,好像也沒有類似的方法,是否有辦法能在DELPHI中寫程式 轉資料到EXCEL後,就以ITEM為主做小計的功能,不用再用人工的方法.. 請各位指教.謝謝

您好，有關直接在EXCEL上作小計的方式，個人提供小建議 您可於欲小計之欄位上直接寫入 MyExcel.WorkBooks[1].WorkSheets[1].Cells[4,1] := '=SUM(A2:A3)' 方式，即可達到您要的需求了，有點偷雞，也歡迎各高手有更好的意見指正。 讀萬卷書~不如來K.TOP走一遭

這方法我也知道,可是就己經與總計差不了多少.. 畢竟要做小計是因為item有很多種,不是單純只有一種 例如: item number aaaa 2 aaaa 3 小計 5 bbbb 4 bbbb 5 小計 9 我是希望能在excel中做到這樣,希望各位能多幫忙,看是否能在delphi中使用 excel的方法做到這樣,謝謝

個人感想，其實以上述作法亦可以作到小計的功能， 您可以先判斷item欄位的值，再用程式去作插入的動作 Table1.First; vStr := Table1.FieldValues['Item']; While Not Table1.Eof Do Begin If Table1.FieldValues['Item'] <> vStr Then Begin MyExcel.WorkBooks[1].WorkSheets[1].Cells[4,1] := '=SUM(A2:A' I ')'; Inc(I); End; MyExcel.WorkBooks[1].WorkSheets[1].Cells[4,1] := Table1.FieldValues['Item']; vStr := Table1.FieldValues['Item']; Inc(I); Table1.Next; End; 上述作法您亦可視您需求加以變更。有錯，請指正。 ========================= 讀萬卷書~不如來K.TOP走一遭 =========================

謝謝likush的幫忙,程式己寫出.. 是利用item group by 筆數和 MyExcel.WorkBooks[1].WorkSheets[1].Cells[4,1] := '=SUM(A2:A' I ')'; 所寫出,謝謝!!!