sql - Excel 对象的语法。更改数字格式

Question

我制作了一个应用程序，可以将 SQL Select 中的记录提取到 Excel。
我想在保存之前更改 Excel 列的数字格式。我制作了 EXCEL OLE 对象，然后将数据写入其中

Excel_Sheet.Cells[i + j,k] =  s_col

我想根据列类型更改数字格式。我已经知道如何获取列类型，但无法更改数字格式。

我使用了这些:使标题加粗并使用自动调整根据数据更改宽度。我在互联网上找到的所有内容:

Excel_Sheet.Range(s_into_row + String(j) + ":" +s_into_col + String(j)).Select
Excel_Obj.Selection.Font.Bold = True

Excel_Sheet.Range("A"+String(j)+":A"+String(j)).Select
Excel_Sheet.Columns(s_into_row + ":" + s_into_col ).EntireColumn.AutoFit

我正在使用 powerbuilder

Answer 1

我在一个项目中有一些代码看起来与此类似:

choose case lower(ls_coltype)
    case "char"
        lole_Excel.Selection.NumberFormat = "@"
    case "date"
        lole_Excel.Selection.NumberFormat = "mm/dd/yyyy"
    case "int", "long", "ulong"
        lole_Excel.Selection.NumberFormat = "0"
    case "time"
        lole_Excel.Selection.NumberFormat = "h:mm AM/PM"
    ...
end choose 

其中 ls_coltype 是带有“(”以及删除后的所有内容的列类型。