频道导航

vb读取写入导出excel

2019-11-20 VB 前端之家

前端之家收集整理的这篇文章主要介绍了vb读取写入导出excel，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

@H_301_0@

Sub test()
'从"工程"<a href="/tag/caidan/" target="_blank" class="keywords">菜单</a>中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000）
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

'---------------------操作现有的excel---------------------
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("c:/sheep.xls") '打开已经存在的EXCEL工件簿<a href="/tag/wenjian/" target="_blank" class="keywords">文件</a>
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
xlSheet.Cells(1,2) = "sssss" '给单元格（row,col）赋值
s = xlSheet.Cells(2,2).Value
xlBook.Close (True) '<a href="/tag/guanbi/" target="_blank" class="keywords">关闭</a>工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
'xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
'xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL<a href="/tag/guanbi/" target="_blank" class="keywords">关闭</a>宏
'------------------------end------------------------------

'---------------------导出新的excel-------------------------
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add   '创建工作簿
xlApp.Visible = False
Set xlSheet = xlBook.Worksheets(1) '创建工作表
xlSheet.Name = "表一" '表名
xlSheet.Cells(1,1) = "shshshs"

xlSheet.SaveAs "c:/销售.xls"
'xlSheet.SaveAs App.Path & "/销售/" & mystr & ".xls"
xlBook.Close (True) '<a href="/tag/guanbi/" target="_blank" class="keywords">关闭</a>工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
'-------------------------end-----------------------------
End Sub

上一篇：vb基础知识和文件操作下一篇：VB的验证码识别与自动充值部分

猜你在找的VB相关文章

VB Format函数

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...

作者：前端之家时间：2020-08-07

vb6/ASP FORMAT MM/DD/YYYY

VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...

作者：前端之家时间：2020-08-07

VB.net 捕获项目全局异常

在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...

作者：前端之家时间：2020-08-07

实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法

转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...

作者：前端之家时间：2020-08-07

vb，wps，excel 分裂

Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...

作者：前端之家时间：2020-08-07

VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）

Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...

作者：前端之家时间：2020-08-07

VB.NET 使用ADODB連接資料庫滙出到EXCEL

‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop Private Sub A1() Di...

作者：前端之家时间：2020-08-07

vb.net 多线程運用 ping

Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...

作者：前端之家时间：2020-08-07

VB等待进程结束

VB运行EXE程序，并等待其运行结束参考：https://blog.csdn.net/useway/article/details/5...

作者：前端之家时间：2020-08-07

vb中去掉string数组的一部分

今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号因为登陆的时...

作者：前端之家时间：2020-08-07

编程分类

PHP Java Java SE Python C#C&C++Ruby VB asp.Net Go Perl netty Django Delphi Jsp .NET Core Spring Flask Springboot SpringMVC Lua Laravel Mybatis Asp Groovy ThinkPHP Yii swoole

最新文章