host3nter

سوال: در مورد export datagrid to word

سلام چطور می توان دیتا گرید را به ورد تبدیل کرد ضمنا" من کد زیر را ...

موضوع سوال: در مورد export datagrid to word,.

برنامه نویس, برنامه نویسی, برنامه نویسی در 6 VB

تاريخ ارسال:2015/01/06

هاست سنتر سلام چطور می توان دیتا گرید را به ورد تبدیل کرد ضمنا" من کد زیر را پیدا کردم ولی نمی دانم چزور کار می کند Option Explicit' variables para la conexión y el recordset ado'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''Dim cn As ADODB.ConnectionDim rs As ADODB.RecordsetPrivate Sub Command1_Click()On Error GoTo ErrSubDim o_Word As Word.ApplicationDim Documento As Word.DocumentDim c As Integer ' columnaDim f As Long ' filaDim dato As Variant ' valor de la celda del datagrid ' Establece la referencia al Word Set o_Word = New Word.Application ' Pone el Word visible o_Word.Visible = True 'Abrimos el documento "archivoWord.doc" con Open Set Documento = o_Word.Application.Documents.Open(App.Path + "archivoWord.doc") 'Nos vamos al marcador llamado "tabla" en el documento, _ para insertar la tabla en ese punto Selection.goto What:=wdGoToBookmark, Name:="Tabla" With Documento 'Agregamos la tabla dentro de Word con las _ filas y columnas que tenga el datagrid ActiveDocument.Tables.Add Range:=Selection.Range, _ NumRows:=DataGrid1.ApproxCount + 1, _ NumColumns:=DataGrid1.Columns.Count 'Recorremos el Data Grid para agregar las columnas y filas a nuestra tabla For c = 0 To DataGrid1.Columns.Count - 1 DataGrid1.Row = 0 ActiveDocument.Tables(1).Cell(1, c + 1).Range.InsertAfter _ DataGrid1.Columns(c).Caption 'agregar columnas ' recorre las filas de la columna actual For f = 0 To DataGrid1.ApproxCount - 1 ' almacena el dato de la celda del datagrid de la columna actual dato = DataGrid1.Columns(c).CellValue(DataGrid1.GetBookma rk(f)) ' agrega el dato a la celda de la tabla ActiveDocument.Tables(1).Cell(f + 2, c + 1).Range.InsertAfter dato Next f Next c End With 'Descargamos los objetos Set o_Word = Nothing Set Documento = NothingExit SubErrSub: MsgBox Err.Description, vbCritical On Error Resume Next Set o_Word = Nothing Set Documento = NothingEnd SubPrivate Sub Form_Load() ' Conexión ado Set cn = New ADODB.Connection cn.CursorLocation = adUseClient cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _ "Source=C:Archivos de programaMicrosoft " & _ "Visual StudioVB98NWIND.MDB;Persist Security Info=False" ' abre la base de datos Nwind.mdb cn.Open ' Crea un recordset Set rs = New ADODB.Recordset ' Llena el recordset rs.Open "Select IdEmpleado,Nombre From empleados", _ cn, adOpenStatic, adLockOptimistic ' Enlaza el DataGrid al recordset Set DataGrid1.DataSource = rs Command1.Caption = " Mandar Datagrid a word "End Sub هاست,دامین,سایت,وب,طراحی

سوال: دستوری بجای ReadLn در شبکه ایندی که بجای لاین با دریافت کلمه پایان پذیرد

نصب خودکار برنامه های جانبی

گذاشتن طرح توی themeforest.net / کسی اطلاعی داره مارو مطلع کنه لطفا

سوال: سخت تر کردن امکان خواندن کدهای سایت

سوال: ساخت elearning

بازدید ساز سئومارک

فازی c-mean

سوال:, در, مورد, export, datagrid, to, word

سوال: در مورد export datagrid to word

میزبانی وب ,هاست,فضای وب,ویندوز,لینوکس,دات نت,پی اچ پی,web hosting,windows host,linux host,asp.net,php,sql server,mysql میزبان پایتخت ارائه دهنده خدمات میزبانی وب، هاست و هاستینگ، میزبانی هاست، دامین، میزبانی نمایندگی، نمایندگی وب، سرور مجازی و سرور مجازی ابری می باشد.هاست,میزبانی وب,دامین,سرور مجازی,میزبان پایتخت,host,domain,vps,mizban paytakht,hosting,share hosting,میزبان وب,میزبانی هاست,هاستینگ

google