Advertisement
Advertisement
There are currently no qualifying experts in Windows OLE
| 09.20.2008 at 02:35PM PDT, ID: 23748677 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: |
Dim xlsApp As Application
Dim xlsBookIn As Workbook
Dim xlsBookOut As Workbook
Dim xlsSheetIn As Worksheet
Dim xlsSheetOut As Worksheet
xlsApp = New Application
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
xlsApp.Visible = False
xlsApp.DisplayAlerts = False
For Each b As BookToSend In BookToSendCollection.BookCollection
If b.XlsFiles.Count > 0 Then
Dim d As DivisionItem = b.Division
xlsBookOut = xlsApp.Workbooks.Add
Dim iSheet As Integer = 1
For Each exSheet As ExportedSheet In b.XlsFiles
xlsBookIn = xlsApp.Workbooks.Open(exSheet.FileName)
|
