Question

我正在尝试编写一个带有三个参数的VBscript： argument0：要修改的excel文件，例如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（cellule）

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

原来代码很好。这是我输入的文件错了。在行的开头和结尾删除双引号就可以修复它。

如何在VBScript中使用字符串引用单元格？

1 个答案: