VBS向excel写入信息并插入图片

Const ForReading = 1 CLineCount = 14

LineCount = 8 LineCount_1 = 2

Index = 0 Index_1 = 0

row_no=13 strProgramPath = "C:\SUN\config\test.xls"

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = false

objExcel.DisplayAlerts = FALSE

Set oShell = CreateObject( "WScript.Shell" )

tempFile = "C:\\SUN\\config\\Standard_electrode_processing_program_list.xls"

Set objWorkbook = objExcel.Workbooks.Open(tempFile)

objExcel.WorkSheets( 1 ).Activate

Set objFSO = CreateObject("Scripting.FileSystemObject")

postFile = "C:\\SUN\\config\\1111.txt"

Set objTextFile = objFSO.OpenTextFile _    

(postFile, ForReading)  

Do Until objTextFile.AtEndOfStream    

  strNextLine = objTextFile.Readline   

arrServiceList = Split(strNextLine , ",")  

 objExcel.Cells(row_no, 2).Value = arrServiceList(2)   

 row_no=row_no+1 Loop

Set objWorksheet = objWorkbook.Worksheets(1) objWorksheet.Range("J12").Select

picFile = "C:\\SUN\\config\\test.jpg"

Set pic2 = objWorksheet.Pictures.Insert(picFile)

pic2.ShapeRange.LockAspectRatio = msoFalse

pic2.ShapeRange.Height = 150

pic2.ShapeRange.Width = 300 pic2.Cut

objWorksheet.Range("K13").Select objWorksheet.Paste

objExcel.Visible = true

objWorkbook.SaveAs(strProgramPath)

转载于:https://www.cnblogs.com/whiteIcrow/p/3604677.html