用VBA数组向没有打开工作薄录入数据
答案:2 悬赏:10 手机版
解决时间 2021-02-13 13:38
- 提问者网友：喧嚣尘世
- 2021-02-12 20:55
用VBA数组向没有打开工作薄录入数据
最佳答案
- 五星知识达人网友：梦中风几里
- 2021-02-12 21:18
Sub s()
With Workbooks.Open(ThisWorkbook.Path & "\花名册.xls")
.Sheets("花名册").Cells(Rows.Count, 1).End(3).Offset(1).Resize(1, 6) = _
Array("1", "扫地", "男", "2006-1-1", "2016-1-1", "16年新招")
.Sheets("花名册").Cells(Rows.Count, 1).End(3).Offset(1).Resize(1, 6) = _
Array("2", "清洁", "男", "2006-1-3", "2016-1-3", "16年新招")
.Close
End With
End Sub
With Workbooks.Open(ThisWorkbook.Path & "\花名册.xls")
.Sheets("花名册").Cells(Rows.Count, 1).End(3).Offset(1).Resize(1, 6) = _
Array("1", "扫地", "男", "2006-1-1", "2016-1-1", "16年新招")
.Sheets("花名册").Cells(Rows.Count, 1).End(3).Offset(1).Resize(1, 6) = _
Array("2", "清洁", "男", "2006-1-3", "2016-1-3", "16年新招")
.Close
End With
End Sub
全部回答
- 1楼网友：孤老序
- 2021-02-12 22:41
没看懂什么意思？
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯