EXCEL VBA新建工作表?

发布网友 发布时间：2022-04-26 09:31

我来回答

共4个回答

热心网友 时间：2022-06-18 22:32

方法1:使用VBA的MkDir语句创建文件夹。

代码如下：

Sub xyf()

    On Error Resume Next

    VBA.MkDir ("c:/例子")

End Sub

其中  VBA.MkDir ("c:/例子")表示在C盘创建一个名为“例子”的文件夹

On Error Resume Next语句表示如果已经有这个文件夹，则不创建。

如下图所示：

方法2：使用FileSystemObject对象的CreateFolder方法。

代码如下：

Sub xyf()

    On Error Resume Next

    Dim oFso

    Set oFso = CreateObject("Scripting.FileSystemObject")

    oFso.CreateFolder ("C:/例子")

End Sub

其中  oFso.CreateFolder ("C:/例子")表示在C盘创建一个名为“例子”的文件夹

On Error Resume Next语句表示如果已经有这个文件夹，则不创建。

如下图所示：

热心网友 时间：2022-06-18 22:33

当你数据保存时判断工作表是否存在，如果存在的话将内容保存进去，如果不存在的话新建一个工作表并将内容保存进去。你也可以考虑是否采用一个单位用一个工作簿。你把文件发过来，我给你写代码liumlin@163.com

热心网友 时间：2022-06-18 22:33

若要在 Visual Basic 中创建新的工作簿，请使用Add方法。

Sub AddOne()
Workbooks.Add
End Sub

创建新工作簿更好的方法是将其分配给一个对象变量。

Sub AddNew()
Set NewBook = Workbooks.Add
With NewBook
.Title = "All Sales"
.Subject = "Sales"
.SaveAs Filename:="Allsales.xls"
End With
End Sub

希望可以帮到你！

热心网友 时间：2022-06-18 22:34

我记得有一个引用函数就可以。