51问答网 > VB6中，如何判断excel工作簿中是否存在一个工作表，不存在就建立一个？

VB6中，如何判断excel工作簿中是否存在一个工作表，不存在就建立一个？

2025-03-11 04:44:59

推荐回答（2个）

回答1：

xlApp.Sheets.Add after:=Sheets(Sheets.Count) '在工作表后加入一个工作表

这句错了，等于号后面的没指定对象所以报错

修改为
xlApp.Sheets.Add after:=xlApp.Sheets(xlApp.Sheets.Count) '在工作表后加入一个工作表

回答2：

sht2285 = False
For i = 1 To xlApp.Sheets.Count
   If xlApp.Sheets(i).Name = "2285" Then sht2285 = True
Next

If Not sht2285 Then
   xlApp.Sheets.Add after:=Sheets(Sheets.Count) '在工作表后加入一个工作表
   xlApp.ActiveSheet.Name = "2285"
End If