初学VBA程序,也就来试试,代码如下:
Sub abcd()
Dim i, str1, str2, str3, str4, str5, str6, str7, str8, str9
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")
Set fs = CreateObject("Scripting.FileSystemObject")
Set fi = fs.CreateTextFile("d:\Code123.txt", True) '在D盘里边创建 Code123.txt
For i = 1 To 1000 '从第一行到1000行
If mysheet1.Cells(i, 1) <> "" And mysheet1.Cells(i, 2) <> "" Then '如果单元格不为空白则:
str1 = "[User]"
str2 = "uid=" & mysheet1.Cells(i, 1)
str3 = "last_name=" & mysheet1.Cells(i, 2)
str4 = "frist_name=" & mysheet1.Cells(i, 3)
str5 = "accessibility=" & mysheet1.Cells(i, 4)
str6 = "password=" & mysheet1.Cells(i, 5)
str7 = "SAPME:DEFAULT SITE=" & mysheet1.Cells(i, 6)
str8 = "role=" & mysheet1.Cells(i, 7)
str9 = "group=" & mysheet1.Cells(i, 8)
fi.WriteLine (str1)
fi.WriteLine (str2)
fi.WriteLine (str3)
fi.WriteLine (str4)
fi.WriteLine (str5)
fi.WriteLine (str6)
fi.WriteLine (str7)
fi.WriteLine (str8)
fi.WriteLine (str9)
End If
Next
fi.Close
End Sub
程序截图如下:
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/024f78f0f736afc32c2c9d82bf19ebc4b7451230?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
执行结果如下:
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/6d81800a19d8bc3ebb1ea42d8e8ba61ea9d345c6?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/7a899e510fb30f2406cc4ee4c495d143ac4b0386?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)