Bartender Text Save To Excel Follow
hi sir
Please help me. How in the OnPrintEnd vba with in the modified data is placed in the excel
leo
2 comments
With a quick Google search on "VBS write to Excel file" I got the below example:
Option Explicit
Dim objExcel, strExcelPath, objSheet
strExcelPath = "c:\Scripts\Example.xls"
' Open specified spreadsheet and select the first worksheet.
Set objExcel = CreateObject("Excel.Application")
objExcel.WorkBooks.Open strExcelPath
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
' Modify a cell.
objSheet.Cells(3, 2).Value = "Test"
' Add a row before row 5.
objSheet.Range("B5").EntireRow.Insert
' Label the new rows. Row 4 is unchanged,
' but what was row 5 is now row 6.
objSheet.Cells(4, 2).Value = "Row 4"
objSheet.Cells(5, 2).Value = "Row 5"
objSheet.Cells(6, 2).Value = "Row 6"
' Save and quit.
objExcel.ActiveWorkbook.Save
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
Please sign in to leave a comment.