VB.net使用Microsoft.Office.Interop.Excel对Excel进行简单的读取和写入
环境:Visual Stadio 2017 .NET Framework 4.6.1
1.直接进入正题,新建一个控制台程序,右键引用-管理Nuget程序包,搜索Microsoft.Office.Interop.Excel并安装至Packages
2.打开Module1.vb,在主函数中调用dll内的类和方法,主要功能是读取excel中第二行开始每行的单元格的内容,并打印到控制台。
excel内容如下图
代码如下
Sub Main()
Dim ExlApp As Microsoft.Office.Interop.Excel.Application
Dim ExlBook As Microsoft.Office.Interop.Excel.Workbook
Dim ExlSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim strFilePath As String = "D:/2020.12考勤.xlsx"
ExlApp = New Microsoft.Office.Interop.Excel.Application
If Not FileIO.FileSystem.FileExists(strFilePath) Then
Console.WriteLine("找不到文件。")
Else
ExlBook = ExlApp.Workbooks.Open(strFilePath)
ExlSheet = ExlBook.Worksheets("Sheet1")
Dim row As Integer
row = ExlSheet.UsedRange.Rows.Count
Dim a, b, c, d, e, f, g
For i = 2 To row
a = ExlSheet.Cells(i, 1).value
b = ExlSheet.Cells(i, 2).value
c = ExlSheet.Cells(i, 3).value
d = ExlSheet.Range($"D{i}").Text
e = ExlSheet.Range($"E{i}").Text
f = ExlSheet.Range($"F{i}").Text
g = ExlSheet.Cells(i, 7).value
If Not a = Nothing Then
Console.WriteLine($"工号:{a} 姓名:{b} 部门:{c} 日期:{d} 上班时间:{e} 下班时间:{f} 出勤状况:{g}")
End If
Next
ExlBook.Close()
ExlApp.Quit()
End If
Console.Read()
End Sub
其中
ExlApp为Application对象,即Excel本身;
ExlBook为workbooks对象集,指Excel的工作簿文件;
ExlSheet为worksheets对象集,表示的是Excel的一个工作表;
Cells和Range对象,指向Excel工作表中的单元格(Range也可用于指代单元区域:某一单元格、某一单元格区域、某一行、某一列、或者是多个连续或非连续的区域组成的区域)。
另外,Excel中D列、E列和F列为时间格式,用Cell(i,j).value的方法会出现一些问题,稍后解释,此处用Range(列名).Text替代之。
先来看看运行效果,结果如下图:
3.插入数据功能
代码如下
Private Sub InsertRow()
Dim myWorkExl As Microsoft.Office.Interop.Excel.Application
Dim ExlBook As Microsoft.Office.Interop.Excel.Workbook
Dim ExlSheet As Microsoft.Office.Interop.Excel.Worksheet
myWorkExl = CreateObject("Excel.application")
myWorkExl.Visible = True
ExlBook = myWorkExl.Workbooks().Open("D:/myWorkExl.xlsx")
ExlSheet = ExlBook.Worksheets(1)
ExlSheet.Activate()
myWorkExl.Cells(1, 1) = 1
myWorkExl.Cells(1, 2) = 2
myWorkExl.Cells(1, 3) = "3"
myWorkExl.Cells(1, 4) = "4"
myWorkExl.Range("E1").Value = Format(Now, "HH:mm:ss")
ExlBook.Save()
ExlBook.Close()
myWorkExl.Quit()
End Sub
效果如下图
4.Cell和Range,前面提到的如果用Cell()方法读取特殊格式的值,比如时间会显示成小数,这不是我们所要的。这里有两种解决办法
- 第一种是用Range().Text代替
- 第二种,从excel中读取到的小数其实也能转化为时间,需要一些操作,以上面的9:00:00为例,从excel中读取到的值为0.375
Private Sub Text()
Dim temp1 As Double
temp1 = 0.375
Dim temp2 As Double
temp2 = temp1 * 86400
Dim temp3
temp3 = Format(DateAdd("s", CDec(temp2), "00:00:00"), "HH:mm:ss")
Console.WriteLine($"原始数据为:{temp1}")
Console.WriteLine($"换算后为:{temp2}")
Console.WriteLine($"最终结果为:{temp3}")
Console.Read()
End Sub
输出结果如下图
VB.net使用Microsoft.Office.Interop.Excel对Excel进行简单的读取和写入的更多相关文章
- C# Microsoft.Office.Interop.Owc11 导出excel文件
C# Microsoft.Office.Interop.Owc11 导出excel文件 1.新建项SupremeWindowsForms窗体应用项目(项目平台设置称X86) 注意:因为大多数第三方写的 ...
- Microsoft.Office.Interop.Excel的用法以及利用Microsoft.Office.Interop.Excel将web页面转成PDF
1.常见用法 using Microsoft.Office.Interop.Excel; 1)新建一个Excel ApplicationClass ExcelApp = New A ...
- 引用Microsoft.Office.Interop.Excel出现的问题
引用Microsoft.Office.Interop.Excel出现的问题 转自:http://www.hccar.com/Content,2008,6,11,75.aspx,作者:方继祥 操作背 ...
- Microsoft.Office.Interop.Excel操作Excel文件时出现的问题及解决方案
问题描述: Microsoft.Office.Interop.Excel.Worksheet 打不开文件 Microsoft Office Excel 不能访问文件"a.xls". ...
- Microsoft.Office.Interop.Excel 程序集引用 ,Microsoft.Office.Interop.Excel.ApplicationClass 无法嵌入互操作类型
using Microsoft.Office.Interop.Excel 添加程序集引用 方法:在引用--程序集--扩展中,添加引用Microsoft.Office.Interop.Excel,此 ...
- 利用Microsoft.Office.Interop.Excel 将web页面转成PDF
网上有很多将Web页面转成PDF的方法,还有许多收费的第三方插件.其实利用Office 自带的将EXCEL发布成PDF的功能就可以实现,如果你的需求没有多复杂,可以采用笔者的方法. 首先将web页面h ...
- Microsoft.Office.Interop.Excel, Version=12.0.0.0版本高于引用的程序集(已解决)
Microsoft.Office.Interop.Excel, Version=12.0.0.0版本高于引用的程序集(已解决) 论坛里的帮助:http://bbs.csdn.net/topics/39 ...
- 无法嵌入互操作类型“Microsoft.Office.Interop.Excel.ApplicationClass”。请改用适用的接口
解决 把Microsoft.Office.Interop.Excel.DLL的嵌入互操作类型改为ture就可以了
- 解决方法:未能加载文件或程序集“Microsoft.Office.Interop.Excel。。
.NET错误提示:未能加载文件或程序集“Microsoft.Office.Interop.Excel, Version=11.0.0.0, Culture=neutral, PublicKeyToke ...
随机推荐
- EMS批量为用户分配邮箱
组织单位"Office"下有10个域用户,可以通过PowerShell命令一次为该组织单位中的没有分配邮箱的域用户分配邮箱. 以Exchange管理员身份打开EMS控制台.在Pow ...
- Ubuntu安装docker(摘自官网,自用)
在 Ubuntu 上安装 Docker 引擎(按照标红顺序执行命令) 预计阅读时间:11分钟 适用于 Linux 的 Docker 桌面 Docker Desktop 可帮助您在 Mac 和 Wind ...
- 基于Vue开发的门户网站展示和后台数据管理系统
基于Vue的前端框架有很多,这几年随着前端技术的官方应用,总有是学不完的前端知识在等着我们,一个人的精力也是有限,不可能一一掌握,不过我们学习很大程度都会靠兴趣驱动,或者目标导向,最终是可以以点破面, ...
- swagger不再是第一选择了
一.前言 工欲善其事,必先利其器 最近对 API 接口协作的软件研究了好久,市面上的软件都下载用了一轮,下面给大家介绍其中的最强「神器」 Apifox. Apifox 官网:apifox.cn 在 ...
- Caused by: com.sonatype.nexus.staging.client.StagingRuleFailuresException: Staging rules failure! 已解决!
问题分析 由于项目中修改了一些代码,然后没有修改版本号,直接deploy代码到仓库,最终导致错误! 根据 https://central.sonatype.org/faq/can-i-change-a ...
- 2021.07.26 P1010 幂次方(数论)
2021.07.26 P1010 幂次方(数论) [P1010 NOIP1998 普及组] 幂次方 - 洛谷 | 计算机科学教育新生态 (luogu.com.cn) 重点: 1.二进制 题意: 用20 ...
- .NET Core(.NET6)中gRPC注册到Consul
一.简介 上一篇文章介绍了.NET Core 中使用gRPC,在微服务中,我们通常要把服务做成服务注册,服务发现的方式,那么这里来说一下gRPC是如何注册到Consul中的. Consul的安装这里就 ...
- 阿里云服务器的购买、基本配置、(xshell)远程连接、搭建环境
一.服务器的购买 1.购买时间点:搞活动的时候.利用学生身份购买 (1)活动:想白嫖一台服务器 双十一,可以在双十一左右,时间提前一点,百度或B站,搜阿里云服务器.腾讯服务器(618可能也有) 一般, ...
- openstack之Designate组件,入门级安装(快速)
@ 目录 前言 架构 前提准备 创建 DNS 服务 API 端点 安装和配置组件 验证操作 前言 Designate 是一个开源 DNS 即服务实施,是用于运行云的 OpenStack 服务生态系统的 ...
- Linux 30岁,这些年经历了什么?
关注「开源Linux」,选择"设为星标" 回复「学习」,有我为您特别筛选的学习资料~ 3月19日,Linux基金会在Twitter上发布推文宣布,其小企鹅的标志"Tux& ...