Bartender Text Save To Excel

Legacy Poster

• December 14, 2015 08:35

hi sir

please help me

 How in the OnPrintEnd vba with in the modified data is placed in the excel

thank you

leo

0

• 

  Ian Cummings

  Moderator

  ★ BarTender Hero ★

  • December 14, 2015 12:53

  I ran a quick Google serach on "VBS write to Excel file" and got the below example among others.

   

  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

  0

Please sign in to leave a comment.