VB6：如何实现导入Excel表格，然后再生成另一张Excel？

Posted 2023-04-23

VB6：如何实现导入Excel表格，过滤掉其中一个字段重复的数据，然后再生成另一张Excel？
再生成第二张表，专门生成这些被过滤掉的数据。
解决了再追加100分！！～
不要录宏，谢谢

参考技术A '给你一个LoadExcel函数,需要在工程引用里引用一个microsoft excel ....,然后你调用这个函数,传入你的记录集就可以了,你的情况的话只要调用两次就行了,每次的记录集信息由你的查询语句决定

'例: call loadexcel(rsRecordset)

Public Function LoadExcel(ByVal rsMultiInfor As ADODB.Recordset) As String
On Error GoTo ErrTrap
Dim priXLS As Excel.Application
Dim priWorkbook As Excel.Workbook
Dim priSheet As Excel.Worksheet
Dim lngRow, lngRows, intField, intFields, lngID As Long
If rsMultiInfor.RecordCount <= 0 Then
MsgBox "无记录可导出Excel", vbInformation, "信息提示"
Exit Function
End If
Set priXLS = New Excel.Application
Set priWorkbook = priXLS.Workbooks.Add
Set priSheet = priXLS.Sheets(1)
With priSheet
intFields = rsMultiInfor.Fields.Count
For intField = 1 To intFields
.Cells(1, intField) = rsMultiInfor(intField - 1).Name
Next
rsMultiInfor.MoveLast
rsMultiInfor.MoveFirst
For lngID = 1 To rsMultiInfor.RecordCount
For intField = 1 To intFields
.Cells(lngID + 1, intField) = rsMultiInfor(intField - 1).Value
Next
rsMultiInfor.MoveNext
Next
End With
priXLS.Visible = True
Set rsMultiInfor = Nothing
Exit Function
ErrTrap:
On Error GoTo 0
End Function 参考技术B 告诉你一个最简单，最好用的办法。
打开Excel，点击工具菜单下宏--录制新宏。然后把你想要用程序实现，而自己又不会编程的操作都做一遍，停止录宏。然后再点击工具菜单下宏--宏，打开这个宏就可以了。你会发现你想要的代码都有实例了。
当然，你也可以把每一个操作分别录宏，这样看起来就更清楚了。
就这么简单，祝你好运。^_^

参考资料：http://zhidao.baidu.com/question/2007428.html?fr=qrl3

参考技术C -- 导入Excel到SQL数据库的方法
SELECT * INTO XLImport6
FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0',
'Data Source=C:\abc.xls;
Extended Properties=Excel 8.0')...[Sheet1$]

SELECT * INTO XLImport7
FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0',
'Excel 8.0;Database=C:\abc.xls',

[Sheet1$])

SELECT * INTO XLImport8
FROM OPENROWSET('Microsoft.Jet.OLEDB.4.0',
'Excel 8.0;Database=C:\abc.xls',

'SELECT * FROM [Sheet1$]'
告诉你一个最简单，最好用的办法。
打开Excel，点击工具菜单下宏--录制新宏。然后把你想要用程序实现，而自己又不会编程的操作都做一遍，停止录宏。然后再点击工具菜单下宏--宏，打开这个宏就可以了。你会发现你想要的代码都有实例了。
当然，你也可以把每一个操作分别录宏，这样看起来就更清楚了。
就这么简单，祝你好运。^_^

参考资料：http://zhidao.baidu.com/question/2007428.html?fr=qrl3

'给你一个LoadExcel函数,需要在工程引用里引用一个microsoft excel ....,然后你调用这个函数,传入你的记录集就可以了,你的情况的话只要调用两次就行了,每次的记录集信息由你的查询语句决定

'例: call loadexcel(rsRecordset)

Public Function LoadExcel(ByVal rsMultiInfor As ADODB.Recordset) As String
On Error GoTo ErrTrap
Dim priXLS As Excel.Application
Dim priWorkbook As Excel.Workbook
Dim priSheet As Excel.Worksheet
Dim lngRow, lngRows, intField, intFields, lngID As Long
If rsMultiInfor.RecordCount <= 0 Then
MsgBox "无记录可导出Excel", vbInformation, "信息提示"
Exit Function
End If
Set priXLS = New Excel.Application
Set priWorkbook = priXLS.Workbooks.Add
Set priSheet = priXLS.Sheets(1)
With priSheet
intFields = rsMultiInfor.Fields.Count
For intField = 1 To intFields
.Cells(1, intField) = rsMultiInfor(intField - 1).Name
Next
rsMultiInfor.MoveLast
rsMultiInfor.MoveFirst
For lngID = 1 To rsMultiInfor.RecordCount
For intField = 1 To intFields
.Cells(lngID + 1, intField) = rsMultiInfor(intField - 1).Value
Next
rsMultiInfor.MoveNext
Next
End With
priXLS.Visible = True
Set rsMultiInfor = Nothing
Exit Function
ErrTrap:
On Error GoTo 0
End Function 参考技术D 有好几种方法 介绍其中之一
Set Exapp = CreateObject("excel.application")
Set FSO = CreateObject("Scripting.FileSystemObject")
Exapp.DisplayAlerts = False
Exapp.Workbooks.Open "打开的文件的路径"

k = Exapp.workSheets(WSname).Cells(n, s)
'Wsname是excel名 里面的比如sheet1本回答被提问者采纳

VB 如何读取 Excel 所有列和行

以下代码可以读取Excel默认选择的表格:但如何获得表格到底有多少的列数和行数?? Dim ap As Excel.Application
Dim bk As Excel.Workbook
Dim st As Excel.Worksheet
Set ap = CreateObject("Excel.Application")
Set bk = ap.Workbooks.Open("D:\练卡表.xls")'需要读取的表格
Set st = bk.Worksheets(1)'工作表
Rem 求选定区域的起始终止行列()
Dim mTop, mLeft, mRight, mButtom
'st.UsedRange.Select'使用该句可选定D:\try.xls的Sheet1的UsedRange，否则显示其已有的选定区域
mTop = Selection.Row '起始行
mLeft = Selection.Column '起始列
mButtom = mTop + Selection.Rows.Count - 1 '结束行
mRight = mLeft + Selection.Columns.Count - 1 '结束列
MsgBox ("起始行:" & mTop & Chr(13) & "起始列:" & mLeft & Chr(13) & "终止行:" & mButtom & Chr(13) & "终止列:" & mRight)
bk.Close

参考技术A 代码中已经写好了呀：
Selection.Rows.Count '行数
Selection.Columns.Count '列数

即 起始行 + 总行数 - 1 为 结束行，
...