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

运行

5 发布

编译成Exe后，拷贝到其它电脑时，需要带上dll文件，由于本dll不支持嵌入绿化清单，需要使用安装工具的注册功能，注册后才能正常使用。

6 免责声明

本Dll并无附带任何形式的明示的或暗示的保证，包括任何关于本Dll的适用性, 无侵犯知识产权或适合作某一特定用途的保证。
在任何情况下，对于因使用本Dll或无法使用本Dll而导致的任何损害赔偿，作者均无须承担法律责任, 即使作者曾经被告知有可能出现该等损害赔偿。作者不保证本Dll所包含的资料,文字、图形、链接或其它事项的准确性或完整性。作者可随时更改本DLL，无须另作通知。
此外，出于某些原因，由用户自己制作、下载、使用的第三方信息数据插件所引起的一切版权问题或纠纷，本Dll概不承担任何责任，也不提供任何明确的或暗示的保证。