VB.NET如何使用Excel文件
发表于:2025-02-02 作者:千家信息网编辑
千家信息网最后更新 2025年02月02日,小编给大家分享一下VB.NET如何使用Excel文件,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!一、VB.NET Exc
千家信息网最后更新 2025年02月02日VB.NET如何使用Excel文件
小编给大家分享一下VB.NET如何使用Excel文件,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!
一、VB.NET Excel文件函数代码:
view plaincopy to clipboardprint? Option Explicit Public Function MergeXlsFile(ByVal strPath As String, Optional ByVal SheetCount As Byte = 1) As Boolean Dim i As Integer Dim strSrcFile As String Dim nRows As Long, nCols As Long, nSheets As Byte, nNewRows() As Integer Dim xlApp As Object, xlSrcBook As Object, xlNewBook As Object, xlSheet As Object, xlRange As Object On Error Resume Next If Right(strPath, 1) <> "\" Then strPathstrPath = strPath & "\" '如果需要合并文件中的工作表数量小于1则退出 If SheetCount < 1 Then Exit Function '删除掉该路径下原来的合并文件 If Dir(strPath & "合并后的文件.xls") <> "" Then Kill strPath & "合并后的文件.xls" '获得第1个XLS文件 strSrcFile = Dir(strPath & "*.xls") '如果文件不存在则退出 If Len(strSrcFile) = 0 Then Exit Function '创建一个Excel实例 Set xlApp = CreateObject("Excel.Application") '新建一个工作簿 Set xlNewBook = xlApp.Workbooks.Add '调整新建工作簿里工作表的数量 ReDim nNewRows(1 To SheetCount) For i = 1 To SheetCount - xlNewBook.Sheets.Count xlNewBook.Sheets.Add , xlNewBook.Sheets(xlNewBook.Sheets.Count) Next '循环查找当前路径下的所有XLS文件 Do '打开找到的XLS文件 Set xlSrcBook = xlApp.Workbooks.Open(strPath & strSrcFile) '循环复制源XLS文件里的工作表 nSheets = IIf(xlSrcBook.Sheets.Count < SheetCount, xlSrcBook.Sheets.Count, SheetCount) For i = 1 To nSheets Set xlSheet = xlSrcBook.Sheets(i) '获得源XLS文件中第i个工作表实际数据的行列数 nRows = xlSheet.UsedRange.Rows.Count nCols = xlSheet.UsedRange.Columns.Count '使用范围对象粘贴源XLS文件数据到合并结果文件中 Set xlRange = xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(nRows, nCols)) xlRange.Select xlRange.Copy xlNewBook.Sheets(i).Cells(nNewRows(i) + 1, 1).PasteSpecial &HFFFFEFF8 '保存合并结果文件中第i个工作表的行数 nNewRows(i) = xlNewBook.Sheets(1).UsedRange.Rows.Count Next '关闭打开的源XLS文件 xlSrcBook.Close '继续查找下一个XLS文件 strSrcFile = Dir() Loop Until Len(strSrcFile) = 0 '保存并关闭合并结果文件 xlNewBook.SaveAs strPath & "合并后的文件.xls" xlNewBook.Close '退出Excel实例 xlApp.Quit '释放资源 Erase nNewRows Set xlRange = Nothing Set xlSheet = Nothing Set xlNewBook = Nothing Set xlSrcBook = Nothing If Err.Number = 0 Then MergeXlsFile = True End Function Option Explicit Public Function MergeXlsFile(ByVal strPath As String, Optional ByVal SheetCount As Byte = 1) As Boolean Dim i As Integer Dim strSrcFile As String Dim nRows As Long, nCols As Long, nSheets As Byte, nNewRows() As Integer Dim xlApp As Object, xlSrcBook As Object, xlNewBook As Object, xlSheet As Object, xlRange As Object On Error Resume Next If Right(strPath, 1) <> "\" Then strPathstrPath = strPath & "\" '如果需要合并文件中的工作表数量小于1则退出 If SheetCount < 1 Then Exit Function '删除掉该路径下原来的合并文件 If Dir(strPath & "合并后的文件.xls") <> "" Then Kill strPath & "合并后的文件.xls" '获得第1个XLS文件 strSrcFile = Dir(strPath & "*.xls") '如果文件不存在则退出 If Len(strSrcFile) = 0 Then Exit Function '创建一个Excel实例 Set xlApp = CreateObject("Excel.Application") '新建一个工作簿 Set xlNewBook = xlApp.Workbooks.Add '调整新建工作簿里工作表的数量 ReDim nNewRows(1 To SheetCount) For i = 1 To SheetCount - xlNewBook.Sheets.Count xlNewBook.Sheets.Add , xlNewBook.Sheets(xlNewBook.Sheets.Count) Next '循环查找当前路径下的所有XLS文件 Do '打开找到的XLS文件 Set xlSrcBook = xlApp.Workbooks.Open(strPath & strSrcFile) '循环复制源XLS文件里的工作表 nSheets = IIf(xlSrcBook.Sheets.Count < SheetCount, xlSrcBook.Sheets.Count, SheetCount) For i = 1 To nSheets Set xlSheet = xlSrcBook.Sheets(i) '获得源XLS文件中第i个工作表实际数据的行列数 nRows = xlSheet.UsedRange.Rows.Count nCols = xlSheet.UsedRange.Columns.Count '使用范围对象粘贴源XLS文件数据到合并结果文件中 Set xlRange = xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(nRows, nCols)) xlRange.Select xlRange.Copy xlNewBook.Sheets(i).Cells(nNewRows(i) + 1, 1).PasteSpecial &HFFFFEFF8 '保存合并结果文件中第i个工作表的行数 nNewRows(i) = xlNewBook.Sheets(1).UsedRange.Rows.Count Next '关闭打开的源XLS文件 xlSrcBook.Close '继续查找下一个XLS文件 strSrcFile = Dir() Loop Until Len(strSrcFile) = 0 '保存并关闭合并结果文件 xlNewBook.SaveAs strPath & "合并后的文件.xls" xlNewBook.Close '退出Excel实例 xlApp.Quit '释放资源 Erase nNewRows Set xlRange = Nothing Set xlSheet = Nothing Set xlNewBook = Nothing Set xlSrcBook = Nothing If Err.Number = 0 Then MergeXlsFile = True End Function
二、VB.NET Excel文件调用方法:
view plaincopy to clipboardprint? Sub main() If MergeXlsFile("c:\temp", 1) Then MsgBox "数据已成功合并!", vbInformation, "提示" Else MsgBox "数据合并失败!", vbCritical, "提示" End If End Sub
以上是"VB.NET如何使用Excel文件"这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注行业资讯频道!
文件
工作
数据
结果
实例
数量
循环
篇文章
内容
实际
对象
范围
行列
资源
路径
提示
调整
成功
不怎么
代码
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
orcal数据库备份
cpu软件开发面试题
数据库源管理系统软件排名
服务器xshell远程连接
计算机网络技术能力是什么
国外服务器羊毛
数据库管理系统 简答
山东服务器分销
电子购物网站数据库ER图
天穹宝可梦服务器bug
食品安全事件具体数据库
怎样建立一个数据库
哪个数据库能搜索外文电子书
定制家具拆单软件开发
网络安全攻防技术实战论文
肇庆市新锐互联网科技公司
lol端游换服务器
联想收购服务器
河南好的软件开发材料
中国医学生物文献数据库如何查询
服务器 文本数据库中
网络安全宣传周手抄报简笔画
软件开发管理办法国家规范
sql数据库怎么找最大值
水利行业应用软件开发
车载网络技术期末考试
证券期货软件开发
文件夹服务器运行失败
wifi dns服务器
沈阳国安网络技术有限公司