Advertisement
Advertisement
| 05.13.2008 at 01:23PM PDT, ID: 23399307 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: |
'Access Excel Object and start Application manipulations
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim xlsApp1 As Object
Dim xlsBook1 As Object
Dim xlsSheet1 As Object
Dim xlsBook2 As Object
Dim xlsSheet2 As Object
Dim sSampleFolder = "C:\Rates\"
'Start a new workbook in Excel.
xlsApp1 = CreateObject("Excel.Application")
xlsApp1.Visible = False
xlsApp1.DisplayAlerts = False
|