神马品牌网紫铜棒生产厂家上海:vb怎么修改excel中的工作表
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 08:35:52
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
Set xlbook = xlApp.workbooks.Open(App.Path & "\book1.xls")
Dim i As Integer
For i = 1 To xlApp.Sheets.Count
Debug.Print xlApp.Sheets(i).Name ?
....
修改代码
.....
Next
xlbook.Save
xlApp.Quit
Set xlApp = Nothing
我的execl里面有个工作表为temp 我怎么把它修改成work
还有如果在vb里修改了excel文档，用什么代码使excel不保存退出 （windows老提示“**excel文档已经修改 ，是否保存？？？”）
问题解决 追加50分
Set xlApp = CreateObject("Excel.Application")
Set xlbook = xlApp.workbooks.Open(App.Path & "\book1.xls")
Dim i As Integer
For i = 1 To xlApp.Sheets.Count
Debug.Print xlApp.Sheets(i).Name ?
....
修改代码
.....
Next
xlbook.Save
xlApp.Quit
Set xlApp = Nothing
我的execl里面有个工作表为temp 我怎么把它修改成work
还有如果在vb里修改了excel文档，用什么代码使excel不保存退出 （windows老提示“**excel文档已经修改 ，是否保存？？？”）
问题解决 追加50分
'去掉保存警告对话框，我是这样写的
Dim myExcel As New Excel.Application
……
myExcel.DisplayAlerts = False
---------------------------------------
至于改名，没有应用过，也没试过，可能是这样写：
Sheets("Sheet1").Name = "我的表" '为 Sheets("Sheet1") 改名