this code is for information sacral eentro an Excel arcgivo
'------------------------- ----------------------------------------------
'This file is part of the Microsoft. NET Framework SDK Code Samples.
'
' Copyright (C) Microsoft Corporation. All rights reserved.
'
' This source code is Intended only as a supplement to Microsoft
'Development Tools and / or on-line documentation. See These Other
'materials for Detailed Information Regarding Microsoft code samples.
'
' THIS CODE AND INFORMATION ARE PROVIDED AS IS WITHOUT WARRANTY OF ANY
'KIND, EITHER IMPLIED OR EXPRESSE, Including BUT NOT LIMITED TO THE
' Warranties IMPLIED OF MERCHANTABILITY AND / OR FITNESS FOR A
'PARTICULAR PURPOSE.
adding the reference''Microsoft ActiveX Data Objects 2.8 Library''
like to excel files
'------------------------- ----------------------------------------------
option strict off
Imports System Imports System.Reflection 'For Missing.Value and
BindingFlags Imports System.Runtime.InteropServices' For COMException Imports Microsoft.Office.Interop.Excel
AutoExcel
Class Dim app As Application
Public Sub Main (ByVal ds As DataSet)
Console.WriteLine("Creating new Excel Application")
app = New Application()
If app Is Nothing Then
Console.WriteLine("ERROR: EXCEL couldn't be started!")
Environment.ExitCode = 0
Exit Sub
End If
Console.WriteLine("Making application visible")
app.Visible = True
Console.WriteLine("Getting the workbooks collection")
Dim workbooks As Workbooks
workbooks = app.Workbooks
Console.WriteLine("Adding a new workbook")
Dim workbook As _Workbook
workbook = workbooks.Add(XlWBATemplate.xlWBATWorksheet)
Console.WriteLine("Getting the worksheets collection")
Dim sheets As Sheets
sheets = workbook.Worksheets
Dim worksheet As _Worksheet
worksheet = sheets.Item(1)
If worksheet Is Nothing Then
Console.WriteLine("ERROR: worksheet == null")
End If
End Sub
Public Sub carga(ByVal rss As ADODB.Recordset)
app.Application.Range("A9").CopyFromRecordset(rss)
app.ActiveSheet.Columns("A:zz").Select()
app.ActiveSheet.Range("A1193").Activate()
app.ActiveSheet.Columns ("A: ZZ"). EntireColumn.AutoFit ()
app.ActiveSheet.Range ("A1: P1.") Select () End Sub
end class also can be found on : http://cid-70ba4130e4a6a153.skydrive.live.com/browse.aspx/.Public/record% 20set% 20 +% 20excel
