彰化一整天的論壇

 找回密碼
 立即註冊
查看: 497|回復: 0

excel刪除已存在的工作表

[複製鏈接]
發表於 2016-8-31 10:43:42 | 顯示全部樓層 |閱讀模式
  1. Public Sub del_sheet(strCompany As String)
  2.     Dim i As Integer
  3.    
  4.     '關閉警告視窗
  5.     Application.DisplayAlerts = False
  6.    
  7.     For i = 1 To Sheets.Count
  8.         If Sheets(i).Name = strCompany Then
  9.             Sheets(i).Delete
  10.             Exit For
  11.         End If
  12.     Next
  13.    
  14.     '恢復警告視窗
  15.     Application.DisplayAlerts = True
  16. End Sub
複製代碼


回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2019-10-14 18:27 , Processed in 0.169212 second(s), 21 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表