实验环境:Windows Server 2008R 2 由于测试需要,需要创建数百个用户,手动创建当然不可取,此时需要批量创建,操作记录如下 1 首先将要批量创建的人员信息导入到一个csv文件中,表中分为五个部分,分别是:姓.名.姓名.用户名.登录密码.,命名为person.csv 2.然后把文件拷贝到域控的c 盘根目录下 3.打开命令行cmd,先执行命令 for /f "tokens=1,2,3,4,5 delims=," %a in (person.csv) do @echo %a
Sub AutoInputValNewExcel() Dim sh1, sh2 As Worksheet Dim ws1, ws2 As Workbook ) ) ).Sheets() iRows = sh1.UsedRange.Rows.Count If i > ws2.Sheets.Count Then ws1.Sheets().Copy After:=ws2.Sheets(ws2.Sheets.Count) End If Set sh2 = ws2.Sheets(i) sh2.Name =