Как обратиться к ячейке с помощью строки в VBScript?

Question

Я пытаюсь написать VBscript, который будет принимать три аргумента: argument0: первенствовать файл изменить, например, C: \ Temp \ temp.xls

argument1: имя текстового файла, содержащего список изображений для вставки. Первые три строки могут быть: "C: \ Temp \ image1.gif" "C: \ Temp \ image2.gif" "C: \ Temp \ image3.gif"

argument2: имя текстовый файл, содержащий список для вставки изображений. Первые три строки могут быть: "A2" "C3" "E2"

---

Вот то, что я до сих пор, мой код падает в этой строке: mycell = xlObj.ActiveSheet.range (клеточка)

---

argument0 = "C:\temp\temp.xls" 
argument1 = "c:\temp\images.txt" 
argument2= "c:\temp\cellules.txt" 

Set xlObj = CreateObject("Excel.Application") 
Set fso = CreateObject("Scripting.FileSystemObject") 

'Set file = fso.GetFile(WScript.Arguments(0)) 
Set file   = fso.GetFile(argument0) 
set file_images =fso.OpenTextFile(argument1) 
set file_cellules =fso.OpenTextFile(argument2) 
set xlWB = xlObj.Workbooks.Open(file) 



Do Until file_cellules.AtEndOfStream 
cellule =  file_cellules.ReadLine 
image  =  file_images.ReadLine 

mycell = xlObj.ActiveSheet.range(cellule) 
cellleft = mycell.Left 
celltop = mycell.Top 
cellheight =mycell.Height 
cellwidth = mycellWidth 

    With xlObj.ActiveSheet.Shapes.AddPicture(image, _ 
    True, True, cellleft, celltop, cellwidth, cellheight)  
    End With 
Loop   
    xlWB.save 
    xlWB.close 

xlObj.quit 

Answer 1

Оказывается, код был в порядке. Это мои файлы ввода, которые были неправильными. Снятие двойных кавычек в начале и конце строк, исправленных.