在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
这样删不掉,不知为何,如何删掉
...全文
138 6 打赏 收藏 转发到动态 举报
写回复
用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

5,138

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧