VBA For Loop输出到错误的表格（简单）

执行时，此代码将创build一个新的工作簿，然后将其保存到我的目录中。 然后，我需要用时间戳填充新工作簿的“A”列，但是我的循环正在填充原始工作簿的“A”列。 一个MsgBox确认Activesheet确实指向新的工作簿。 我错过了什么？

'CREATING THE SHEET AND SAVING IT Dim wb As Workbook Set wb = Workbooks.Add(xlWBATWorksheet) ActiveSheet.Name = "MySheet" ActiveWorkbook.SaveAs "MyDirectory\MyWorkbook" & Space(1) & datetime 'FILLING COLUMN "A" WITH THE CURRENT DATE With Workbooks("MyWorkbook" & Space(1) & datetime).Worksheets("MySheet") For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row Cells(i, 1).Value = Format(CStr(Now), "mm_dd_yyyy") Next i End With 

Answer 1

使用时必须注明链接. 在每个应该跟随该父项的对象前面：

 Dim wb As Workbook Set wb = Workbooks.Add(xlWBATWorksheet) ActiveSheet.Name = "MySheet" ActiveWorkbook.SaveAs "MyDirectory\MyWorkbook" & Space(1) & datetime 'FILLING COLUMN "A" WITH THE CURRENT DATE With Workbooks("MyWorkbook" & Space(1) & datetime).Worksheets("MySheet") For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row .Cells(i, 1).Value = Format(CStr(Now), "mm_dd_yyyy") Next i End With