返回列表 上一主題 發帖

[發問] 不開啟excel文件能知道這文件里有沒有名為"ABC"的sheet?

回復 1# mhl9mhl9

基本架構供您參考
  1.     Sub IsSheetExist()
  2.     Dim ws As Worksheet
  3.     Dim sName As String
  4.     sName = "一月"  '指定工作表
  5.     On Error Resume Next
  6.     Set ws = Sheets(sName)
  7.     If ws Is Nothing Then '指定的工作表不存在
  8.       Sheets.Add.Name = sName
  9.     Else '指定的工作表已存在
  10.       MsgBox "“" & sName & "”工作表已存在。"
  11.       ws.Activate
  12.     End If
  13.     End Sub
複製代碼

  多做多想多學習,少看少錯少迷途

  多做=多多練習,多多編寫。
  多想=想想為什麼人家程式要那樣寫,如果換成自己,又會怎寫。
  多學習=學習人家的發問並解答,學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大,小人氣大。
返回列表 上一主題