Question

我正在尝试将我的脚本输出写入Excel工作簿的第二个工作表。现在当我使用以下代码时，我总是得到错误

Microsoft VBScript编译错误：预期的语句结束。

你可以告诉我哪里可能出错吗？如果您想查看整个代码，请随时告诉我。

编写输出的代码片段如下：

Set targetsheet.Cells(1,1).Value = objOutput.Write objUser.samaccountname & ";" _
    & objUser.GivenName & ";" & objUser.sn & ";" & objUser.DisplayName & ";" _
    & ObjMail & ";" & InfosysSite & ";=IFERROR(IF(VLOOKUP(E" & count _
    & ",'Infosys employees'!C:C,1,FALSE)=E" & count & ",""Yes""),""No"")" _
    & ";=IF(G" & count & "=""Yes"",VLOOKUP(E" & count _
    & ",'Infosys employees'!C:D,2,FALSE),""Missing"")" & ";" & ObjUser.Title _
    & ";" & ObjUser.Co & ";" & Manager & ";" & objUser.employeeID & ";" _
    & Account_locked & ";" & last_Login & ";" & last_Logon_timestamp & ";" _
    & pwd_never_expire & ";" & Last_pwd_Changed & ";" & User_must_change_pwd _
    & ";" & objUser.whenCreated & ";" & objUser.whenChanged & ";" _
    & objUser.description & ";" & objUser.distinguishedName & ";" & vbCrLf

Answer 1

当您尝试在分配中调用子/子方法时，会出现1025错误：

>> v = SubOrSubMethod "very long string"
>>
Error Number:       1025
Error Description:  Anweisungsende erwartet

所以将你的（可怕的）字符串表达式赋给变量：

s = objUser.samaccountname &";" & ... &";" & vbcrlf

并使用它来填充单元格的值：

targetsheet.Cells(1,1).Value = s

标记已删除的Set！您想要分配字符串，而不是对象。是否是一个有尊严的输出：

objOutput.Write s

在你的背景下有意义，由你决定。

将原始数据复制到目标工作表的特定单元格中

1 个答案: