1、SystemXLS库简介
SystemXLS库是为VB6编写的操作Excel的库,也支持其它可调用Com对象的编程语言
特点
不需要安装WPS或者Office
支持32位和64位
无依赖
内置对象列表
(1)、XLSWriter对象 用来生成XLS文件,支持写入单元格,支持定义单元格的格式等
(2)、更多对象待更新
2、获取方法
群文件,找到System.XLS目录,下载最新版本的压缩包
3、安装方法
将压缩文件解压到系统文件夹或其它文件夹中
运行System.XLS注册控件.bat,注册控件
4、测试程序
建立工程
添加公共模块
mXLSLib.bas
Option Explicit
Public Enum XLS_H_Align
HALIGN_GENERAL = 0
HALIGN_LEFT = 1
HALIGN_CENTER = 2
HALIGN_RIGHT = 3
HALIGN_FILL = 4
HALIGN_JUSTIFY = 5
HALIGN_CENTERACCROSS = 6
End Enum
Public Enum XLS_V_Align
VALIGN_TOP = 0
VALIGN_CENTER = 1
VALIGN_BOTTOM = 2
VALIGN_JUSTIFY = 3
End Enum
Public Enum XLS_ColorIndex
ORIG_COLOR_BLACK = 0
CLR_BLACK = 1
CLR_BROWN = 2
CLR_OLIVE_GREEN = 3
CLR_DARK_GREEN = 4
CLR_DARK_TEAL = 5
CLR_DARK_BLUE = 6
CLR_INDIGO = 7
CLR_GRAY80 = 8
CLR_DARK_RED = 9
CLR_ORANGE = 10
CLR_DARK_YELLOW = 11
CLR_GREEN = 12
CLR_TEAL = 13
CLR_BLUE = 14
CLR_BLUE_GRAY = 15
CLR_GRAY50 = 16
CLR_RED = 17
CLR_LITE_ORANGE = 18
CLR_LIME = 19
CLR_SEA_GREEN = 20
CLR_AQUA = 21
CLR_LITE_BLUE = 22
CLR_VIOLET = 23
CLR_GRAY40 = 24
CLR_PINK = 25
CLR_GOLD = 26
CLR_YELLOW = 27
CLR_BRITE_GREEN = 28
CLR_TURQUOISE = 29
CLR_SKY_BLUE = 30
CLR_PLUM = 31
CLR_GRAY25 = 32
CLR_ROSE = 33
CLR_TAN = 34
CLR_LITE_YELLOW = 35
CLR_LITE_GREEN = 36
CLR_LITE_TURQUOISE = 37
CLR_PALE_BLUE = 38
CLR_LAVENDER = 39
CLR_WHITE = 40
CLR_PERIWINKLE = 41
CLR_PLUM2 = 42
CLR_IVORY = 43
CLR_LITE_TURQUOISE2 = 44
CLR_DARK_PURPLE = 45
CLR_CORAL = 46
CLR_OCEAN_BLUE = 47
CLR_ICE_BLUE = 48
CLR_DARK_BLUE2 = 49
CLR_PINK2 = 50
CLR_YELLOW2 = 51
CLR_TURQUOISE2 = 52
CLR_VIOLET2 = 53
CLR_DARK_RED2 = 54
CLR_TEAL2 = 55
CLR_BLUE2 = 56
CLR_SYS_WIND_FG = 57
CLR_SYS_WIND_BG = 58
End Enum
Public Enum XLS_Border
BORDER_NONE = 0
BORDER_THIN = 1
BORDER_MEDIUM = 2
BORDER_DASHED = 3
BORDER_DOTTED = 4
BORDER_THICK = 5
BORDER_DOUBLE = 6
BORDER_HAIR = 7
End Enum
工程菜单->引用,引用图示dll
添加窗体和按钮
双击按钮,加入代码
Private Sub Command1_Click()
Dim DoXLSWriter As XLSWriter
Set DoXLSWriter = New XLSWriter
With DoXLSWriter
.AddAnsSelSheet "Sheet1"
.SetCellValue 1, 1, "Hello!World!"
.Save "Test.xls"
.Close
End With
Set DoXLSWriter = Nothing
End Sub
运行
点击生成文件按钮
生成的xls文件
文件内容
5 发布
编译成Exe后,拷贝到其它电脑时,需要带上dll文件,由于本dll不支持嵌入绿化清单,需要使用安装工具的注册功能,注册后才能正常使用。
6 免责声明
本Dll并无附带任何形式的明示的或暗示的保证,包括任何关于本Dll的适用性, 无侵犯知识产权或适合作某一特定用途的保证。
在任何情况下,对于因使用本Dll或无法使用本Dll而导致的任何损害赔偿,作者均无须承担法律责任, 即使作者曾经被告知有可能出现该等损害赔偿。作者不保证本Dll所包含的资料,文字、图形、链接或其它事项的准确性或完整性。作者可随时更改本DLL,无须另作通知。
此外,出于某些原因,由用户自己制作、下载、使用的第三方信息数据插件所引起的一切版权问题或纠纷,本Dll概不承担任何责任,也不提供任何明确的或暗示的保证。