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)
VBS向excel写入信息并插入图片,布布扣,bubuko.com
原文：http://www.cnblogs.com/whiteIcrow/p/3604677.html