diff --git a/funcext/TSOffice/TOfficeObj.tsf b/funcext/TSOffice/TOfficeObj.tsf
index 5cc1349..34ef80e 100644
--- a/funcext/TSOffice/TOfficeObj.tsf
+++ b/funcext/TSOffice/TOfficeObj.tsf
@@ -14895,7 +14895,7 @@ Type TTable = Class(DocObject, TTableImpl)
 		[rowcount,colcount] := mSize(data);//一维数组
 		if colcount = 0 then 
 			data := array(data);
-		fields := FieldNames(data);
+		fields := mcols(data, 1);
 		if IsTable(fields) then Begin
 			r := nils(length(data),length(fields));
 			for i:=0 to length(data)-1 do