社区
Office开发/ VBA
帖子详情
在VB中掉用EXCEL的COM对象,如何将EXCEL的SHEET1删除掉
aqinag
2003-08-22 03:59:31
在VB中掉用EXCEL的COM对象,如何将EXCEL的Sheet1删除掉
Dim fso1 As New Excel.Application
fso1.Worksheets("Sheet1").Delete
这样删不掉,不知为何,如何删掉
...全文
141
6
打赏
收藏
在VB中掉用EXCEL的COM对象,如何将EXCEL的SHEET1删除掉
在VB中掉用EXCEL的COM对象,如何将EXCEL的Sheet1删除掉 Dim fso1 As New Excel.Application fso1.Worksheets("Sheet1").Delete 这样删不掉,不知为何,如何删掉
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
aqinag
2003-09-08
打赏
举报
回复
ok
blackhawk_yps
2003-08-29
打赏
举报
回复
可以用Application.DisplayAlerts = False 避掉对话框
完成后最好再恢复
Application.DisplayAlerts = True
blackhawk_yps
2003-08-29
打赏
举报
回复
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
这样的删除excel会弹出确认对话框的,如何直接删除呢?
HawaiiLeo
2003-08-23
打赏
举报
回复
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
dary_zhou
2003-08-23
打赏
举报
回复
这个可以这么说,你先建一个NEW EXCEL.APPLICATION,
然后打开一个文件,或者新建一个文件, 这时就可以用
fso1.Worksheets("Sheet1").Delete
LeeZi
2003-08-22
打赏
举报
回复
Dim ExcelApp As New Excel.Application
ExcelApp.Visible = True
Dim wk As Workbook
Set wk = ExcelApp.Workbooks.Add
Dim ws As Worksheet
' Set ws = wk.Worksheets(1)
Set ws = wk.Worksheets("Sheet1")
Stop
ws.Delete
Stop
wk.Close False
ExcelApp.Quit
VB
中读取
EXCEL
源码
VB
读取
EXCEL
源码Private Sub
Com
mand1_Click() Dim i As Integer, j As Integer Set xlApp = CreateObject("
Excel
.Application") '创建
EXCEL
应用类 xlApp.Visible = False '设置
EXCEL
不可见 Set xlBook = xlApp.Workbooks.Open(App.Path & "\data.xls") '打开
EXCEL
工作簿 Set xlsheet = xlBook.Worksheets(1) '打开
EXCEL
工作表 'xlsheet.Activate '激活工作表 Dim litem For i = 2 To 7 '行/记录条数 Set litem = ListView1.ListItems.Add() litem.Text = xlsheet.Cells(i, 1) litem.SubItems(1) = xlsheet.Cells(i, 2) litem.SubItems(2) = xlsheet.Cells(i, 3) litem.SubItems(3) = xlsheet.Cells(i, 4) 'MsgBox xlsheet.Cells(i, j) Next xlBook.Close (True) '关闭
EXCEL
工作簿 xlApp.Quit '关闭
EXCEL
Set xlApp = Nothing '释放
EXCEL
对象
End Sub
Excel
多个sheet页汇总
vb
程序.txt
Excel
多个sheet页汇总到一个sheet页中,该方法可以忽略sheet页中的有格式但没有数据的多余项。
使用
VB
A将
excel
的数据存放到mysql数据库里面,并将内容显示到sheet数据表
使用
VB
A将
excel
的数据存放到mysql数据库里面,并将内容显示到sheet数据表
用
VB
script指定打开
Excel
的第三个sheet
NULL 博文链接:https://cgd123.iteye.
com
/blog/380228
用
VB
操作
excel
方法汇总
用
VB
操作
excel
方法汇总 1) 显示当前窗口:
Excel
ID.Visible := True; 2) 更改
Excel
标题栏:
Excel
ID.Caption := '应用程序调用 Microsoft
Excel
'; 3) 添加新工作簿:
Excel
ID.WorkBooks.Add; 4) 打开已存在的工作簿:
Excel
ID.WorkBooks.Open( 'C:\
Excel
\Demo.xls' ); 5) 设置第2个工作表为活动工作表:
Excel
ID.WorkSheets[2].Activate; 或
Excel
ID.WorkSheets[ 'Sheet2' ].Activate; 6) 给单元格赋值:
Excel
ID.Cells[1,4].Value := '第一行第四列'; 等等用代码操作电子表格
Office开发/ VBA
5,139
社区成员
17,886
社区内容
发帖
与我相关
我的任务
Office开发/ VBA
其他开发语言 Office开发/ VBA
复制链接
扫一扫
分享
社区描述
其他开发语言 Office开发/ VBA
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章