老师,excel,问题1:sheet1窗体中点击按钮实现显示sheet2表,代码如何实现?
问题2:sheet1窗体中点击按钮能否实现将sheet2表中的内容以网页模式显示,代码如何实现?问题3:sheet1窗体中点击按钮实现打开另一个工作表,代码如何实现?谢谢...
问题2:sheet1窗体中点击按钮能否实现将sheet2表中的内容以网页模式显示,代码如何实现?
问题3:sheet1窗体中点击按钮实现打开另一个工作表,代码如何实现?
谢谢老师,最主要是问题2~ 展开
问题3:sheet1窗体中点击按钮实现打开另一个工作表,代码如何实现?
谢谢老师,最主要是问题2~ 展开
2个回答
展开全部
问题1:
给按钮指定以下代码
Sub 打开隐藏表()
Sheets("Sheet6").Visible = True
Sheets("Sheet6").Select
End Sub
问题2:
给按钮指定以下代码
Sub 以网页模式显示()
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\Users\think\Desktop\有用的.htm", "Sheet6", "", xlHtmlStatic, "有用的_9749", "") '保存的文件路径,sheet名称做相应修改,其他不变。
.Publish (True)
.AutoRepublish = False
End With
Shell "cmd /c C:\Users\think\Desktop\有用的.htm" '打开文件
End Sub
问题3:
给按钮指定以下代码
Sub 打开工作表()
Workbooks.Open filename:= _
"C:\Users\think\Desktop\***.xls"
End Sub
给按钮指定以下代码
Sub 打开隐藏表()
Sheets("Sheet6").Visible = True
Sheets("Sheet6").Select
End Sub
问题2:
给按钮指定以下代码
Sub 以网页模式显示()
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\Users\think\Desktop\有用的.htm", "Sheet6", "", xlHtmlStatic, "有用的_9749", "") '保存的文件路径,sheet名称做相应修改,其他不变。
.Publish (True)
.AutoRepublish = False
End With
Shell "cmd /c C:\Users\think\Desktop\有用的.htm" '打开文件
End Sub
问题3:
给按钮指定以下代码
Sub 打开工作表()
Workbooks.Open filename:= _
"C:\Users\think\Desktop\***.xls"
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询