VB.NET如何使用Excel文件
发表于:2025-02-19 作者:千家信息网编辑
千家信息网最后更新 2025年02月19日,小编给大家分享一下VB.NET如何使用Excel文件,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!一、VB.NET Exc
千家信息网最后更新 2025年02月19日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安全错误
数据库的锁怎样保障安全
全面推动网络安全体制建设
有口碑的重庆移动服务器租用
u8管理服务器无法启动
风场计算机网络安全
测控专业跨考网络安全
知名的山东虚拟主机云服务器
电脑服务器作用是什么
sql辅助数据库文件
麒麟系统服务器设置在哪
软件开发的最佳方法
专注脚本软件开发公司
jsp数据库查询一条记录
计算机专业网络技术考试
云舒 网络安全
中国移动服务器管理地址查询
栖霞顶服网络技术有限公司
安全警告数据库
浙江ios软件开发管理
计算机应用技术有软件开发吗
浙江统一软件开发服务有哪些
网络安全工作注意事项
qq小游戏数据库
云服务器赚客吧
潮汕鱼虾蟹软件开发
提升网络安全的因素
再换个网络安全手抄报
坦克世界服务器准星开了什么
海康服务器装windows
江苏工控软件开发价钱是多少
数据库的url有错