Bartender Text Save To Excel S’abonner

0
Avatar
Legacy Poster

hi sir

please help me

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

thank you

leo

1 commentaires

0
Avatar
Ian Cummings
Modérateur
Actions pour les commentaires Permalien

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

Vous devez vous connecter pour laisser un commentaire.