Question

VBA如何在新建的workbook中增加sheet

首先，我打开一个空白的workbook，运行下面的代码，目的是批量处理一个文件夹的workbook

运行到“Sheets.Add after:=Sheets(2)”时，增加的sheet是在空白的workbook中而不是我要处理的workbook。我在office2010中运行。

Sub dealfiles()
' 操作入口

Dim sFolder As String
Dim targetFolder As String
Dim fileName As String
Dim newFile As String

Dim i As Integer
Dim fileCount As Integer

Application.DisplayAlerts = False

i = 1
fileCount = 1
'sFolder为输入文件夹
sFolder = "C:\Users\flfy\Desktop\test\"
'targetFolder为输出文件夹
targetFolder = "D:\temp\"
xlsname = Dir(sFolder & "*.xlsx")
Do
If xlsname = "" Then
Exit Do
End If

fileName = sFolder & xlsname
Debug.Print "读取文件：" & fileName
newFile = targetFolder + "file" + Str(fileCount) + ".xls"
Debug.Print "写入：" & newFile

Call deal(fileName, xlsname, newFile)

xlsname = Dir()
fileCount = fileCount + 1
Loop

Debug.Print "OK"

End Sub
Sub deal(fileName As String, ByVal xlsname, newFile As String)
'

Dim s1 As Excel.Worksheet
Dim s2 As Excel.Worksheet
Dim s3 As Excel.Worksheet

Workbooks.Open fileName:=fileName
Workbooks(xlsname).Activate
'在第二个之后创建新表
Sheets.Add after:=Sheets(Sheets.Count)
应该是运行到“Sheets.Add after:=Sheets(Sheets.Count)”时，增加的sheet是在空白的workbook中而不是我要处理的workbook。

Answer 1

VBA代码可以通过记录宏来得到。

举例说明。

第一步：按开发工具-录制宏。如图：

第二步：新建工作簿-插入新的工作表。

第三步：按停止录制按钮。如图：

这样就得到了刚才新建工作簿，插入新表的代码。如下所示：

Sub Macro5()

'

' Macro5 Macro

'

'

    Workbooks.Add

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

End Sub

Answer 2

试试把它改为：Workbooks(xlsname).Sheets.Add after:=Workbooks(xlsname).Sheets(Workbooks(xlsname).Sheets.Count)

追问

可以了，但是我继续运行的时候为什么会下标越界？

Sheets("Results").Select
我明明有一个sheet的名字叫做Results，我改成sheet(2).Select也不行

追答

那就把它改成：Workbooks(xlsname).Sheets("Results").Select

追问

最后一个问题了，将要关闭处理好的workbook时，又下标越界
newFile = targetFolder + "file" + Str(fileCount) + ".xlsx"
Workbooks(xlsxname).SaveAs fileName:=newFile
这两行都是正常的
Workbooks(newFile).Close 这一行就越界了