対象のシートの特定のセルに生データをコピーする

Question

私のスクリプトの出力をExcelワークブックの2番目のワークシートに書き込もうとしています。今すぐ次のコードを使用するとエラーが発生する

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

あなたはassigmentでサブ/サブメソッドを呼び出すしようとするが、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 

あなたの文脈で意味をなさないかどうかは、あなたが決定することです。