beagle4ce
Beagle4ce
采纳率50%
2015-02-03 07:54 阅读 2.6k
已采纳

关于VBS删除Excel的Sheet问题

如题,代码如下,执行后3个sheet原封不动的在那儿并未成功删除掉第一个sheet,
求助,帮忙寻找解决方法

 '?获得Sheet的值.查看获得Sheet值得方法
'
'=========================================

'myString = "CreateExcel"

Dim oExcel,oBook,oSheet
Dim filePath
Dim getValue,getValue2
Dim fso,isExist,tempFolder

filePath = "C:\Users\L.H\Desktop\VBS\excel.xlsx"

'判断即将保存的文件是否已经存在于该目录,若存在,则删除该文件
Set fso = CreateObject("Scripting.FileSystemObject")
isExist = fso.FileExists(filePath)
If isExist Then
    fso.DeleteFile(filePath)
End If

'建立新的Excel引用程序
Set oExcel = CreateObject("Excel.Application")
oExcel.caption="Test"
'建立新的工作空间
Set oBook = oExcel.Workbooks.add
'默认就已经建立了一个Sheet

'添加新的表
oBook.WorkSheets.add
oBook.WorkSheets.add

'选中第一个表
Set oSheet = oBook.WorkSheets.Item(1)
oSheet.Name = "MySheetofTest"
oSheet.Cells(1,1).value = "DataInThere"
Set oSheet = oBook.WorkSheets.Item(2)
oSheet.Name = "MySheetofTest2"
oSheet.Cells(1,2).value = "DataInThere2"
Set oSheet = oBook.WorkSheets.Item(3)
oSheet.Name = "MySheetofTest3"
oSheet.Cells(1,3).value = "DataInThere3"

'TODO:删除第一张表'
oBook.WorkSheets(1).Delete
oBook.SaveAs(filePath)

'获得已选中的表的第一行一列单元格的值
Set oSheet = oBook.WorkSheets.Item(1)
getValue = oSheet.Cells(1,1).Value
Set oSheet = oBook.WorkSheets.Item(2)
getValue2 = oSheet.Cells(1,2).Value

oBook.CLOSE
oExcel.quit

'释放内存
Set oSheet = Nothing
Set oBook = Nothing
Set oExcel = Nothing

MsgBox(getValue&"+"&getValue2)

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

1条回答 默认 最新

  • 已采纳
    danielinbiti danielinbiti 2015-02-03 08:09

    执行了一下,没问题。
    你在cmd下执行一下看看,是不是报错了。

    点赞 评论 复制链接分享

相关推荐