No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
1 Posted Topic
 | [COLOR=#0000ff]Dim[/COLOR] App [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]New[/COLOR] Excel.Application App.Visible = [COLOR=#0000ff]True [/COLOR]App.Application.SheetsInNewWorkbook = 1 [COLOR=#0000ff] [/COLOR][COLOR=#0000ff]Dim[/COLOR] Destination [COLOR=#0000ff]As[/COLOR] Excel.Workbook = App.Workbooks.Add() [COLOR=#0000ff]Dim[/COLOR] Destination_Sheet [COLOR=#0000ff]As[/COLOR] Excel.Worksheet = Destination.Sheets(1) 'Updates the cells with labels Destination_Sheet.Range("A1").Value = Now Destination_Sheet.Range("A2").Value = "CATEGORY" Destination_Sheet.Range("B2").Value = "DESCRIPTION" 'Set row to insert data SSRow = 3 'looping occurs here tempCell … |
The End.