咔片PPT · AI自动生成演示文稿,模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word,高效应对学习与办公

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概不承担任何责任,也不提供任何明确的或暗示的保证。