怎样用VBA在excel中添加一个工作表并且对其命名

用VBA在excel中添加一唤森个和握亩工作表并且对其命名的实现方法和 *** 作步骤如下：

1、首先，在Excel中按快捷键“Alt + F11”，如下图所示。

2、其次，在VBA编辑器中依次单击“插入”-->“模块”，如下图所示。

3、然后，在“模块”中输入如下代码：

Option Explicit

Sub addwork()

Sheets.Add after:=Sheets(Sheets.Count)

End Sub

4、接着，在VBA编辑器的左侧输入模块的名称，如下图所示。

5、随皮誉后，关闭VBA编辑器，返回到Excel工作表，然后依次单击“视图”-->“宏”-->“查看宏”，如下图所示。

6、最后，在d出的窗口中单击宏名称，然后单击“执行”按钮即可，如下图所示。这样就实现了用VBA在excel中添加一个工作表并且对其命名的功能了。

Private Sub 芹顷祥Command1_Click()

    Dim xlApp As New Excel.Application

    Dim xlBook As Excel.Workbook

    Set xlBook = xlApp.Workbooks.Add 嫌搏 '新添加Excel

    Sheets("Sheet1").Name = "test"  '重新命名

    xlApp.Visible = 乎辩True

End Sub

1.部件-添加-可插入对象--选择excel 表格就可以在窗体添数罩加该表格控激亩件

2.工程-引用-Microsoft Excel 11.0 Object Library

下薯铅闹面给个简单的例子

Private Sub Command1_Click()

Dim xlExcel As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim AppExcel As Object

Set xlExcel = CreateObject("Excel.Application")

xlExcel.Workbooks.Open "C:\test.xls"

Set xlBook = xlExcel.Workbooks("test.xls")

Set xlSheet = xlBook.Worksheets(1)

Text1.Text = xlSheet.Cells(1, 1).Value

Text1.Text = Text1.Text &"ADD"

xlSheet.Cells(1, 1).Value = Text1.Text

Application.DisplayAlerts = False

xlBook.Close SaveChanges:=True

Application.DisplayAlerts = True

End Sub

---