一：同目录下的员工花名册.xls中输入一个员工信息
此段实例来源于《别怕，VBA其实很简单》一个实例
image.png
'4.6.4向未打开的工作簿中输入数据
'在当前文件所在目录中的"员工花名册.xlsx"工作簿中添加一条记录
'思路：是先打开工作簿---输入数据---再关闭工作簿
Sub WbInput()
Dim wb As String, xrow As Integer, arr '定义变量 ,这里呢把wb直接设为了路径
wb = ThisWorkbook.Path & "\员工花名册.xlsx" '将文件全名赋值给wb
Workbooks.Open (wb) '打开花名册文件
With ActiveWorkbook.Worksheets(1) '在工作簿中第一张表里添加记录
xrow = .Range("a1").CurrentRegion.Rows.Count + 1 '取得表格中第一条空行号
arr = Array(xrow - 1, "刘伟", "刘伟", "刘伟", "刘伟", "刘伟") '将要录入的工作表的数据呢保存到数组arr中
.Cells(xrow, 1).Resize(1, 6) = arr '将数组写入单元格区域
End With
ActiveWorkbook.Close savechanges:=True '关闭工作簿，并保存修改
End Sub
我自己的方式写
Sub 我的方式()
Dim wb As Workbook, xrow As Integer, arr '定义变量
Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\员工花名册.xlsx") '打开工作簿并将把工作簿赋值给wb
With wb.Worksheets(1)
xrow = .Range("a65535").End(xlUp).Row + 1 '获取表格中第一条空行号
arr = Array(xrow - 1, "刘伟", "刘伟", "刘伟", "刘伟", "刘伟")
.Cells(xrow, 1).Resize(1, 6) = arr
End With
wb.Close savechanges:=True
End Sub
'这里我碰到了一个问题，wb.sheet1（代码名称）是会报错的，而wb.worksheets(1)怎不会，目前我推测是sheet1代码名称，前面不能加前缀
