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

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

本文转自码栈平台

相关资源：Excel公式与函数大辞典.宋翔(带书签高清文字版).pdf