Question

vb6修改excel工作表名称

在VB6环境中（不是VBA环境中）通过点击按钮，实现将shee1改成abc。
包括需要引用的东西我也不会！
帮帮小菜鸟吧！谢谢！

Answer 1

假设你已经存有：Excel文件，名为“文件名.xls”，保存在你的vb工程同一个文件夹里。
首先通过菜单：[工程]--[引用]，勾选：
Microsoft Excel XX.X Object Library
代码如下:
Private Sub Command1_Click()
Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet

'启动Excel
Set excel_App = CreateObject("Excel.Application")

'设置Excel为可见
excel_App.Visible = False

'打开文件
Set excel_Book = excel_App.Workbooks.Open(App.Path & "\文件名.XLS")

excel_Book.Sheets("Sheet1").Name = "abc"

'''''''''''''''''''''''''''''''''''

'关闭Excel文件
Set excel_sheet = Nothing
excel_App.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。
Set excel_Book = Nothing
excel_App.Quit
Set excel_App = Nothing

End Sub