- 博客(2)
- 收藏
- 关注
原创 2021-09-18
电子表的VBA批量生成word文档 批量生成学生word成绩单,自动填写姓名,各科成绩,及评语。 Private Sub CommandButton1_Click() Dim wdapp As Object Dim myRange As Object '从工作表学生信息第2行到51行,51行是最后一个学生,如果学生多50多或60多 For i = 2 To 51 Set wdapp = CreateObject("word.application") wdapp.Visible
2021-09-18 21:35:53 46
原创 2021-09-18
VBA根据模板批量导出EXCEL文件 四步完成 四步完成 打开文件 另存为 写入 保存退出 Private Sub CommandButton2_Click() Dim mypath As String, svalue '定义变量 Dim num, m As Integer m = 2 For i = 2 To 4392 mypath = "C:\WK\Temp.xlsx" '& Sheet3.Cells(i, 1) '把路径赋值给一个字符串 Workbooks.Open File
2021-09-18 16:21:52 42
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人