码栈开发手册（四）---编码方式开发（EXCEL处理相关函数）

2023-12-03 16:13:58

7.1 J_Excel_Create([是否可见:否])

作用:新建Excel并返回对象是否可见:是/否创建的excel是否可见
返回值：Excel对象
例子：

Func Example38()
    ;新创建一个Excel，可见
    Local $excel1 = J_Excel_Create("是")
    ;在后台打开Excel，不可见
    Local $excel2 = J_Excel_Open("D:\1.xlsx", "否")
    J_Excel_Write($excel1, 1, 1, "hello", "new_sheet")
    ;Excel表格一共有多少行
    Local $maxrow = J_Excel_MaxCount($excel2, "sheet1")
    ;Excel中一共有多少列
    Local $maxcol = J_Excel_MaxCol($excel2, "sheet1")
    ;拷贝数据，从1行1列到最大行最大列
    J_Excel_CopySell($excel2, 1, 1, $maxrow, $maxcol, "sheet1")
    ;粘贴数据
    J_Excel_PasteSell($excel1, 1, 1, "new2_sheet")
    ;读取Excel1中new2_sheet中的第2行第3列
    Local $string = J_Excel_Read($excel1, 2, 3, "new2_sheet")
    ;信息框显示出读取的数据
    J_MsgBox($string)
    ;删除Excel1的sheet1
    J_Excel_DeleteSheet($excel1, "sheet1")
    ;将Excel1保存至D:\2.xlsx
    J_Excel_Save($excel1, "D:\2.xlsx")
    ;关闭Excel1，保存
    J_Excel_Close($excel1)
    ;关闭Excel2，不保存
    J_Excel_Close($excel2, "否")
EndFunc   ;==>Example38

7.2 J_Excel_Open(文件路径, [是否可见:否], [只读:否],[文件密码], [设置密码])

作用:打开一个Excel文件并返回对象
返回值：Excel对象
例子：

Func Example38()
    ;新创建一个Excel，可见
    Local $excel1 = J_Excel_Create("是")
    ;在后台打开Excel，不可见
    Local $excel2 = J_Excel_Open("D:\1.xlsx", "否")
    J_Excel_Write($excel1, 1, 1, "hello", "new_sheet")
    ;Excel表格一共有多少行
    Local $maxrow = J_Excel_MaxCount($excel2, "sheet1")
    ;Excel中一共有多少列
    Local $maxcol = J_Excel_MaxCol($excel2, "sheet1")
    ;拷贝数据，从1行1列到最大行最大列
    J_Excel_CopySell($excel2, 1, 1, $maxrow, $maxcol, "sheet1")
    ;粘贴数据
    J_Excel_PasteSell($excel1, 1, 1, "new2_sheet")
    ;读取Excel1中new2_sheet中的第2行第3列
    Local $string = J_Excel_Read($excel1, 2, 3, "new2_sheet")
    ;信息框显示出读取的数据
    J_MsgBox($string)
    ;删除Excel1的sheet1
    J_Excel_DeleteSheet($excel1, "sheet1")
    ;将Excel1保存至D:\2.xlsx
    J_Excel_Save($excel1, "D:\2.xlsx")
    ;关闭Excel1，保存
    J_Excel_Close($excel1)
    ;关闭Excel2，不保存
    J_Excel_Close($excel2, "否")
EndFunc   ;==>Example38

7.3 J_Excel_Close(Excel对象, [默认保存:是])

作用:关闭Excel
返回值：成功返回1，失败返回0
例子：

Func Example38()
    ;新创建一个Excel，可见
    Local $excel1 = J_Excel_Create("是")
    ;在后台打开Excel，不可见
    Local $excel2 = J_Excel_Open("D:\1.xlsx", "否")
    J_Excel_Write($excel1, 1, 1, "hello", "new_sheet")
    ;Excel表格一共有多少行
    Local $maxrow = J_Excel_MaxCount($excel2, "sheet1")
    ;Excel中一共有多少列
    Local $maxcol = J_Excel_MaxCol($excel2, "sheet1")
    ;拷贝数据，从1行1列到最大行最大列
    J_Excel_CopySell($excel2, 1, 1, $maxrow, $maxcol, "sheet1")
    ;粘贴数据
    J_Excel_PasteSell($excel1, 1, 1, "new2_sheet")
    ;读取Excel1中new2_sheet中的第2行第3列
    Local $string = J_Excel_Read($excel1, 2, 3, "new2_sheet")
    ;信息框显示出读取的数据
    J_MsgBox($string)
    ;删除Excel1的sheet1
    J_Excel_DeleteSheet($excel1, "sheet1")
    ;将Excel1保存至D:\2.xlsx
    J_Excel_Save($excel1, "D:\2.xlsx")
    ;关闭Excel1，保存
    J_Excel_Close($excel1)
    ;关闭Excel2，不保存
    J_Excel_Close($excel2, "否")
EndFunc   ;==>Example38

7.4 J_Excel_Save(Excel对象,[另存路径])

作用:保存或者另存当前Excel文件，当不输入另存路径的时候就是保存当前已打开的Excel
返回值：成功返回1，失败返回0
例子：

Func Example38()
    ;新创建一个Excel，可见
    Local $excel1 = J_Excel_Create("是")
    ;在后台打开Excel，不可见
    Local $excel2 = J_Excel_Open("D:\1.xlsx", "否")
    J_Excel_Write($excel1, 1, 1, "hello", "new_sheet")
    ;Excel表格一共有多少行
    Local $maxrow = J_Excel_MaxCount($excel2, "sheet1")
    ;Excel中一共有多少列
    Local $maxcol = J_Excel_MaxCol($excel2, "sheet1")
    ;拷贝数据，从1行1列到最大行最大列
    J_Excel_CopySell($excel2, 1, 1, $maxrow, $maxcol, "sheet1")
    ;粘贴数据
    J_Excel_PasteSell($excel1, 1, 1, "new2_sheet")
    ;读取Excel1中new2_sheet中的第2行第3列
    Local $string = J_Excel_Read($excel1, 2, 3, "new2_sheet")
    ;信息框显示出读取的数据
    J_MsgBox($string)
    ;删除Excel1的sheet1
    J_Excel_DeleteSheet($excel1, "sheet1")
    ;将Excel1保存至D:\2.xlsx
    J_Excel_Save($excel1, "D:\2.xlsx")
    ;关闭Excel1，保存
    J_Excel_Close($excel1)
    ;关闭Excel2，不保存
    J_Excel_Close($excel2, "否")
EndFunc   ;==>Example38

7.5 J_Excel_Write(Excel对象, 第几行, 第几列, 要写入的数据, [Sheet名称])

作用:向Excel指定Sheet写入数据(文本格式)，注:sheet名称为空的时候是向当前激活Sheet中写入
返回值：成功返回1，失败返回0
例子：

Func Example38()
    ;新创建一个Excel，可见
    Local $excel1 = J_Excel_Create("是")
    ;在后台打开Excel，不可见
    Local $excel2 = J_Excel_Open("D:\1.xlsx", "否")
    J_Excel_Write($excel1, 1, 1, "hello", "new_sheet")
    ;Excel表格一共有多少行
    Local $maxrow = J_Excel_MaxCount($excel2, "sheet1")
    ;Excel中一共有多少列
    Local $maxcol = J_Excel_MaxCol($excel2, "sheet1")
    ;拷贝数据，从1行1列到最大行最大列
    J_Excel_CopySell($excel2, 1, 1, $maxrow, $maxcol, "sheet1")
    ;粘贴数据
    J_Excel_PasteSell($excel1, 1, 1, "new2_sheet")
    ;读取Excel1中new2_sheet中的第2行第3列
    Local $string = J_Excel_Read($excel1, 2, 3, "new2_sheet")
    ;信息框显示出读取的数据
    J_MsgBox($string)
    ;删除Excel1的sheet1
    J_Excel_DeleteSheet($excel1, "sheet1")
    ;将Excel1保存至D:\2.xlsx
    J_Excel_Save($excel1, "D:\2.xlsx")
    ;关闭Excel1，保存
    J_Excel_Close($excel1)
    ;关闭Excel2，不保存
    J_Excel_Close($excel2, "否")
EndFunc   ;==>Example38

7.6 J_Excel_Read(Excel对象, 第几行, 第几列, [Sheet名称])

作用:向Excel指定Sheet读取数据，注:sheet名称为空的时候是向当前激活Sheet中读取
返回值：成功返回相应单元格的数据，失败返回空””
例子：

Func Example38()
    ;新创建一个Excel，可见
    Local $excel1 = J_Excel_Create("是")
    ;在后台打开Excel，不可见
    Local $excel2 = J_Excel_Open("D:\1.xlsx", "否")
    J_Excel_Write($excel1, 1, 1, "hello", "new_sheet")
    ;Excel表格一共有多少行
    Local $maxrow = J_Excel_MaxCount($excel2, "sheet1")
    ;Excel中一共有多少列
    Local $maxcol = J_Excel_MaxCol($excel2, "sheet1")
    ;拷贝数据，从1行1列到最大行最大列
    J_Excel_CopySell($excel2, 1, 1, $maxrow, $maxcol, "sheet1")
    ;粘贴数据
    J_Excel_PasteSell($excel1, 1, 1, "new2_sheet")
    ;读取Excel1中new2_sheet中的第2行第3列
    Local $string = J_Excel_Read($excel1, 2, 3, "new2_sheet")
    ;信息框显示出读取的数据
    J_MsgBox($string)
    ;删除Excel1的sheet1
    J_Excel_DeleteSheet($excel1, "sheet1")
    ;将Excel1保存至D:\2.xlsx
    J_Excel_Save($excel1, "D:\2.xlsx")
    ;关闭Excel1，保存
    J_Excel_Close($excel1)
    ;关闭Excel2，不保存
    J_Excel_Close($excel2, "否")
EndFunc   ;==>Example38

7.7 J_Excel_CopySell(Excel对象, 起始单元格行, 起始单元格列,结束单元格行, 结束单元格列,[Sheet名称])

作用:向Excel指定Sheet复制数据，注:sheet名称为空的时候是向当前激活Sheet中复制
返回值：成功返回1，失败返回0
例子：

Func Example38()
    ;新创建一个Excel，可见
    Local $excel1 = J_Excel_Create("是")
    ;在后台打开Excel，不可见
    Local $excel2 = J_Excel_Open("D:\1.xlsx", "否")
    J_Excel_Write($excel1, 1, 1, "hello", "new_sheet")
    ;Excel表格一共有多少行
    Local $maxrow = J_Excel_MaxCount($excel2, "sheet1")
    ;Excel中一共有多少列
    Local $maxcol = J_Excel_MaxCol($excel2, "sheet1")
    ;拷贝数据，从1行1列到最大行最大列
    J_Excel_CopySell($excel2, 1, 1, $maxrow, $maxcol, "sheet1")
    ;粘贴数据
    J_Excel_PasteSell($excel1, 1, 1, "new2_sheet")
    ;读取Excel1中new2_sheet中的第2行第3列
    Local $string = J_Excel_Read($excel1, 2, 3, "new2_sheet")
    ;信息框显示出读取的数据
    J_MsgBox($string)
    ;删除Excel1的sheet1
    J_Excel_DeleteSheet($excel1, "sheet1")
    ;将Excel1保存至D:\2.xlsx
    J_Excel_Save($excel1, "D:\2.xlsx")
    ;关闭Excel1，保存
    J_Excel_Close($excel1)
    ;关闭Excel2，不保存
    J_Excel_Close($excel2, "否")
EndFunc   ;==>Example38

7.8 J_Excel_PasteSell(Excel对象, 单元格行, 单元格列, [Sheet名称])

作用:向Excel指定Sheet粘贴数据，注:sheet名称为空的时候是向当前激活Sheet中粘贴
返回值：成功返回1，失败返回0
例子：

Func Example38()
    ;新创建一个Excel，可见
    Local $excel1 = J_Excel_Create("是")
    ;在后台打开Excel，不可见
    Local $excel2 = J_Excel_Open("D:\1.xlsx", "否")
    J_Excel_Write($excel1, 1, 1, "hello", "new_sheet")
    ;Excel表格一共有多少行
    Local $maxrow = J_Excel_MaxCount($excel2, "sheet1")
    ;Excel中一共有多少列
    Local $maxcol = J_Excel_MaxCol($excel2, "sheet1")
    ;拷贝数据，从1行1列到最大行最大列
    J_Excel_CopySell($excel2, 1, 1, $maxrow, $maxcol, "sheet1")
    ;粘贴数据
    J_Excel_PasteSell($excel1, 1, 1, "new2_sheet")
    ;读取Excel1中new2_sheet中的第2行第3列
    Local $string = J_Excel_Read($excel1, 2, 3, "new2_sheet")
    ;信息框显示出读取的数据
    J_MsgBox($string)
    ;删除Excel1的sheet1
    J_Excel_DeleteSheet($excel1, "sheet1")
    ;将Excel1保存至D:\2.xlsx
    J_Excel_Save($excel1, "D:\2.xlsx")
    ;关闭Excel1，保存
    J_Excel_Close($excel1)
    ;关闭Excel2，不保存
    J_Excel_Close($excel2, "否")
EndFunc   ;==>Example38

7.9 J_Excel_MaxCount(Excel对象,[Sheet名称])

作用:获取Excel表格中指定Sheet的数据行数，注:sheet名称为空的时候是获取当前激活Sheet中的行数
返回值：成功返回Excel表格的行数，失败返回0
例子：

Func Example38()
    ;新创建一个Excel，可见
    Local $excel1 = J_Excel_Create("是")
    ;在后台打开Excel，不可见
    Local $excel2 = J_Excel_Open("D:\1.xlsx", "否")
    J_Excel_Write($excel1, 1, 1, "hello", "new_sheet")
    ;Excel表格一共有多少行
    Local $maxrow = J_Excel_MaxCount($excel2, "sheet1")
    ;Excel中一共有多少列
    Local $maxcol = J_Excel_MaxCol($excel2, "sheet1")
    ;拷贝数据，从1行1列到最大行最大列
    J_Excel_CopySell($excel2, 1, 1, $maxrow, $maxcol, "sheet1")
    ;粘贴数据
    J_Excel_PasteSell($excel1, 1, 1, "new2_sheet")
    ;读取Excel1中new2_sheet中的第2行第3列
    Local $string = J_Excel_Read($excel1, 2, 3, "new2_sheet")
    ;信息框显示出读取的数据
    J_MsgBox($string)
    ;删除Excel1的sheet1
    J_Excel_DeleteSheet($excel1, "sheet1")
    ;将Excel1保存至D:\2.xlsx
    J_Excel_Save($excel1, "D:\2.xlsx")
    ;关闭Excel1，保存
    J_Excel_Close($excel1)
    ;关闭Excel2，不保存
    J_Excel_Close($excel2, "否")
EndFunc   ;==>Example38

7.10 J_Excel_MaxCol(Excel对象,[Sheet名称])

作用:获取Excel表格中指定Sheet的数据列数，注:sheet名称为空的时候是获取当前激活Sheet中的列数
返回值：成功返回Excel表格的列数，失败返回0
例子：

Func Example38()
    ;新创建一个Excel，可见
    Local $excel1 = J_Excel_Create("是")
    ;在后台打开Excel，不可见
    Local $excel2 = J_Excel_Open("D:\1.xlsx", "否")
    J_Excel_Write($excel1, 1, 1, "hello", "new_sheet")
    ;Excel表格一共有多少行
    Local $maxrow = J_Excel_MaxCount($excel2, "sheet1")
    ;Excel中一共有多少列
    Local $maxcol = J_Excel_MaxCol($excel2, "sheet1")
    ;拷贝数据，从1行1列到最大行最大列
    J_Excel_CopySell($excel2, 1, 1, $maxrow, $maxcol, "sheet1")
    ;粘贴数据
    J_Excel_PasteSell($excel1, 1, 1, "new2_sheet")
    ;读取Excel1中new2_sheet中的第2行第3列
    Local $string = J_Excel_Read($excel1, 2, 3, "new2_sheet")
    ;信息框显示出读取的数据
    J_MsgBox($string)
    ;删除Excel1的sheet1
    J_Excel_DeleteSheet($excel1, "sheet1")
    ;将Excel1保存至D:\2.xlsx
    J_Excel_Save($excel1, "D:\2.xlsx")
    ;关闭Excel1，保存
    J_Excel_Close($excel1)
    ;关闭Excel2，不保存
    J_Excel_Close($excel2, "否")
EndFunc   ;==>Example38

7.11 J_Excel_DeleteSheet(Excel对象,Sheet名称)

作用:删除Excel表格中指定的Sheet
返回值：成功返回1，失败返回0
例子：

Func Example38()
    ;新创建一个Excel，可见
    Local $excel1 = J_Excel_Create("是")
    ;在后台打开Excel，不可见
    Local $excel2 = J_Excel_Open("D:\1.xlsx", "否")
    J_Excel_Write($excel1, 1, 1, "hello", "new_sheet")
    ;Excel表格一共有多少行
    Local $maxrow = J_Excel_MaxCount($excel2, "sheet1")
    ;Excel中一共有多少列
    Local $maxcol = J_Excel_MaxCol($excel2, "sheet1")
    ;拷贝数据，从1行1列到最大行最大列
    J_Excel_CopySell($excel2, 1, 1, $maxrow, $maxcol, "sheet1")
    ;粘贴数据
    J_Excel_PasteSell($excel1, 1, 1, "new2_sheet")
    ;读取Excel1中new2_sheet中的第2行第3列
    Local $string = J_Excel_Read($excel1, 2, 3, "new2_sheet")
    ;信息框显示出读取的数据
    J_MsgBox($string)
    ;删除Excel1的sheet1
    J_Excel_DeleteSheet($excel1, "sheet1")
    ;将Excel1保存至D:\2.xlsx
    J_Excel_Save($excel1, "D:\2.xlsx")
    ;关闭Excel1，保存
    J_Excel_Close($excel1)
    ;关闭Excel2，不保存
    J_Excel_Close($excel2, "否")
EndFunc   ;==>Example38

7.12 J_Excel_GetSheetNames(Excel对象,序号=0)

作用:获取Excel表格中指定的Sheet个数和名称返回值：当序号为0的时候返回sheet的个数，当序号值大于0的时候返回sheet所对应的名称例子：

Func Example50()
    ;定义一个局域变量$excel,用于保存打开的Excel表格对象。Excel表格打开后处于可见状态
    Local $excel = J_Excel_Open("E:\数据.xlsx", "是")
    ;定义一个局域变量，用于保存$excel对象中Sheet的个数
    Local $res = J_Excel_GetSheetNames($excel, 0)
    ;创建一个循环，从1到Sheet的最大值，用于遍历每一个Sheet的名字
    For $i = 1 To $res
        ;定义一个局域变量$name,用于保存$i个Sheet的名字
        Local $name = J_Excel_GetSheetNames($excel, $i)
        ;弹出一个提示框，显示当前是第几个sheet和sheet的名字
        J_MsgBox($name, "第" & $i & "个")
    Next
EndFunc   ;==>Example50

本文转自码栈平台

码农公寓