Re: [VBA ] 新增excel的工作表？

[fumizuki (矇面加菲獅)]

※ 引述《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