作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VBA ] 新增excel的工作表？
时间Tue Jan 15 22:19:06 2008
※ 引述《mindscold ()》之铭言：
: 请问我已经用access的表单呼叫出excel的表格了(就暂称为sht吧)，现在我想动态新增删
: 除该表格的活页，请问该怎麽做呢？
: 我用估狗大神教的、直接写上worksheet.add 但却不能执行@@
'新增Sheet
Dim xd As Worksheet
Set xd = Worksheets.Add
xd.Name = "xddd"
'删除，必须要保留一个Sheet，否则会错误
Application.DisplayAlerts = False
'不显示警告讯息
Dim i As Integer
For i = Worksheets.Count - 1 To 1 Step -1
Worksheets(i).Delete
Next
Application.DisplayAlerts = True
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.100.4