1、SystemExcel库简介
SystemExcel库是为VB6编写的操作Excel的库，也支持其它可调用Com对象的编程语言
特点
不需要安装WPS或者Office
支持32位和64位
无依赖
内置对象列表
(1)、XLSApp对象 用来操作Excel 97-2003版本的XLS文件，支持最基础的读写操作，不支持格式化、合并等操作
(2)、更多对象待更新
2、获取方法
群文件，找到System.Excel目录，下载最新版本的压缩包
3、安装方法
将压缩文件解压到VB6工程文件中
打开工程文件，嵌入绿化清单(用于编译后免注册调用com)
修改资源名称，类型#24,标识符改为1，确定，保存资源文件
4、验证程序
WPS新建Excel 97-2003的xls文件
打开文件，输入内容
打开系统的Windows PowerShell，切换到当前目录，注册dll控件(开发期间是需要注册的)
输入Regsvr32 System.Excel.dll
打开VB6工程，添加一个按钮
引用对象
编写代码
Private Sub Command1_Click()
Dim DoXLS As XLSApp
Dim MaxRow As Integer
Dim MaxCol As Integer
Dim i As Integer
Dim j As Integer
Dim Data As String
Dim Error As String
Set DoXLS = New XLSApp
'打开XLS文件
If DoXLS.Open("Test1.xls", Error) = False Then
MsgBox Error
Set DoXLS = Nothing
Exit Sub
End If
'选择Sheet1
If DoXLS.SelSheet("Sheet1", Error) = False Then
DoXLS.Close
Set DoXLS = Nothing
MsgBox Error
Exit Sub
End If
'读取Excel行和列信息
MaxRow = DoXLS.GetRowTotal
MaxCol = DoXLS.GetColumnCount
If MaxRow = 0 Or MaxCol = 0 Then
DoXLS.Close
Set DoXLS = Nothing
MsgBox "没有数据！"
Exit Sub
End If
'读取数据
Data = ""
For i = 1 To MaxRow
If i > 1 Then Data = Data & vbCrLf
For j = 1 To MaxCol
If j > 1 Then Data = Data & vbTab
Data = Data & DoXLS.Rs(j, i)
Next
Next
'关闭XLS文件
DoXLS.Close
Set DoXLS = Nothing
MsgBox Data
End Sub
点击运行，刚才的内容就显示出来了
5 发布
编译成Exe后，拷贝到其它电脑时，只需要带上dll文件，无需注册即可运行
6 免责声明
本Dll并无附带任何形式的明示的或暗示的保证，包括任何关于本Dll的适用性, 无侵犯知识产权或适合作某一特定用途的保证。
在任何情况下，对于因使用本Dll或无法使用本Dll而导致的任何损害赔偿，作者均无须承担法律责任, 即使作者曾经被告知有可能出现该等损害赔偿。作者不保证本Dll所包含的资料,文字、图形、链接或其它事项的准确性或完整性。作者可随时更改本DLL，无须另作通知。
此外，出于某些原因，由用户自己制作、下载、使用的第三方信息数据插件所引起的一切版权问题或纠纷，本Dll概不承担任何责任，也不提供任何明确的或暗示的保证。
