¿Cómo leer archivos de Excel en vb?

1. Después de llamar al objeto de Excel para abrir el archivo EXCEL, lea el contenido del archivo \x0d\*********************** ******* *************\x0d\Para llamar a Excel en VB, debe abrir el elemento "Referencia" en el menú "Proyecto" del entorno de programación VB y seleccione "Biblioteca de objetos MicrosoftExcel 11.0" en el proyecto "item. Dado que su versión de Excel es diferente, el número de versión de esta opción también es diferente. \x0d\ \x0d\Debido a que EXCEL organiza objetos en una estructura jerárquica, su modelo de objetos contiene muchos elementos de objetos diferentes. \x0d\La primera capa: objeto de aplicación, es decir, el propio Excel;\x0d\La segunda capa: el conjunto de objetos de los libros de trabajo, que se refiere al archivo del libro de Excel\x0d\La tercera capa: el conjunto de objetos de las hojas de trabajo, que representa un hoja de cálculo de Excel;\x0d\Nivel 4: Objetos de celdas y rango, que apuntan a celdas en la hoja de cálculo de Excel. \x0d\Cree un nuevo proyecto VB y primero coloque un botón llamado Excel_Out. Primero defina cada capa: \x0d\Dim xlapp As Excel.Application 'Excel object\x0d\Dim xlbook As Excel.Workbook 'Workbook\x0d\Dim xlsheet As Excel.Worksheet 'Worksheet\x0d\ Lo que planeamos hacer es: Abrir /crea un nuevo Excel, modifica los valores de algunas celdas en una hoja de trabajo y luego guárdalo como un archivo test.xls.

\x0d\Private Sub Excel_Out_Click()\x0d\ Dimi, j As Integer\x0d\ Setxlapp = CreateObject("Excel.Application") 'Crear objeto EXCEL\x0d\ 'Establecer xlbook = xlapp.Workbooks.Open(App.Pathamp; "\test.xls")'Abra el archivo de libro de trabajo test.xls existente\x0d\ Setxlbook = xlapp.Workbooks.Add 'Crea un nuevo archivo de libro de trabajo EXCEL\x0d\ 'xlbook.RunAutoMacros (xlAutoOpen) 'Ejecute la macro de inicio de EXCEL\ x0d\ 'xlbook.RunAutoMacros (xlAutoClose) 'Ejecutar macro de cierre EXCEL\x0d\xlapp.Visible = True 'Establecer objeto EXCEL visible (o invisible)\x0d\ Setxlsheet = xlbook.Worksheets(1) 'Establecer hoja de trabajo activa'

''~~~La primera página del libro actual, también puede cambiarla a "nombre de tabla"\x0d\ \x0d\'Lo siguiente es simplemente escribir números en algunas celdas\x0d\ Fori = 7 Para 15\x0d\ For j = 1 To 10\x0d\xlsheet.Cells(i, j) = j 'Fila I, columna J de la primera página del libro actual\x0d\ Next j\x0d\ Nexti \x0d\ Withxlsheet 'Establece el borde para que sea una línea continua\x0d\ .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous\x0d\ EndWith\x0d\ 'Hace referencia al trabajo actual. segunda página del libro\x0d\ Setxlsheet = xlapp.Application.Worksheets(2)\x0d\xlsheet.Cells(7, 2) = 2008 'Escribe 2008\x0d\xlsheet en la fila 7, columna 2 de la segunda página .SaveAsApp .Pathamp; "\test.xls" 'Guardar como nombre de archivo especificado\x0d\ 'Setxlbook = xlapp.Application.Workbooks.Add 'Crear un nuevo libro en blanco\x0d\xlapp.Salir 'Finalizar objeto EXCEL'xlapp.Workbooks .Close \x0d\ Setxlapp = Nothing 'Liberar el objeto xlApp\x0d\End Sub\x0d\De esta manera, podemos simplemente operar en el archivo de Excel.

Ahora déjame poner algo de información que encontré en Internet, que es bastante útil: \x0d\ 1. Crear objeto Excel\x0d\eole=CREATEOBJECT(′Excel.application′) \x0d\ 2. Agregar nuevo libro de trabajo\x0d\eole.Workbooks.add\x0d\ 3. Establezca la tercera hoja de trabajo como la hoja de trabajo activa \x0d\eole.Worksheets(〃sheet3〃).Active \x0d\ 4. Abra el libro de trabajo especificado \x0d\eole.Workbooks.Open(〃c:\temp\ll.xls〃) \x0d\ 5. Muestre la ventana de Excel\x0d\eole.visible=.t \x0d\ 6. Cambie la barra de título de Excel\x0d\eole.Caption=〃La aplicación VB llama a Microsoft Excel〃\x0d\ 7. Asignar valores a las celdas \x0d\eole.cells(1, 4).value=XM (XM es el nombre del campo de la base de datos) \x0d\ 8. Establezca el ancho de la columna especificada (unidad: número de caracteres) \x0d\eole.ActiveSheet.Columns(1).ColumnWidth=5 \x0d\ 9. Establezca la altura de la fila especificada (unidad: puntos) \x0d\eole.ActiveSheet.Rows(1).RowHeight=1/0.035 \x0d\ (Establezca la altura de la fila en 1 cm, 1 punto = 0,035 cm) \x0d\ 10. Inserte un salto de página antes de la línea 18\x0d\eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1 \x0d\ 11. Elimine el salto de página antes de la columna 4 \x0d\eole.ActiveSheet.Columns(4).PageBreak=0 \x0d\ 12. Especifique el ancho de la línea del borde (los parámetros de los bordes son los siguientes) \x0d\ole.ActiveSheet.Range(〃b3：d3〃).Borders(2).Weight=3 \x0d\ 13. Establezca el tipo de cuatro líneas de borde\x0d\eole.ActiveSheet.Range(〃b3：d3〃).Borders(2).LineStyle=1 \x0d\ (donde los parámetros de Bordes: 1-izquierda, 2-derecha, 3-arriba , 4 inferiores, 5 oblicuos, 6 oblicuos/; valores de LineStyle: 1 y 7 sólidos delgados, 2 virtuales delgados, virtuales de 4 puntos, 9 líneas continuas delgadas dobles) \x0d\ 14. Establezca el encabezado de la página\x0d\eole.ActiveSheet.PageSetup.CenterHeader=〃Report 1〃\x0d\ 15. Establecer pie de página\x0d\eole.ActiveSheet.PageSetup.CenterFooter=〃Página &P〃\x0d\ 16. Establezca el encabezado del margen superior en 2 cm\x0d\eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 \x0d\ 17. Establezca el margen inferior del pie de página en 3 cm\x0d\eole.ActiveSheet.PageSetup.FooterMargin=3/0.035 \x0d\ 18. Establezca el margen superior en 2 cm\x0d\eole.ActiveSheet.PageSetup.TopMargin=2/0.035 \x0d\ 19. Establezca el margen inferior en 4 cm\x0d\eole.ActiveSheet.PageSetu

p.BottomMargin=4/0.035 \x0d\ 20. Establezca el margen izquierdo en 2 cm\x0d\veole.ActiveSheet.PageSetup.LeftMargin=2/0.035 \x0d\ 21. Establezca el margen derecho en 2 cm\x0d\eole.ActiveSheet.PageSetup.RightMargin=2/0.035 \x0d\ 22. Configure la página para que esté centrada horizontalmente\x0d\eole.ActiveSheet.PageSetup.CenterHorizontally=.t \x0d\ 23．. Configure la página para que esté centrada verticalmente\x0d\eole.ActiveSheet.PageSetup.CenterVertically=.t \x0d\ 24. Establezca el tamaño del papel de la página (1 - línea estrecha 8?5?11 39 - línea ancha 14?11) \x0d\eole.ActiveSheet.PageSetup.PaperSize=1 \x0d\ 25. Imprimir líneas de cuadrícula de celda\x0d\eole.ActiveSheet.PageSetup.PrintGridlines=.t \x0d\ 26. Copie la hoja de trabajo completa\x0d\eole.ActiveSheet.UsedRange.Copy\x0d\ 27. Copie el rango especificado \x0d\eole.ActiveSheet.Range(〃A1：E2〃).Copie \x0d\ 28. Pegar\x0d\eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial\x0d\ 29. Inserte una fila antes de la fila 2 \x0d\eole.ActiveSheet.Rows(2).Insert \x0d\ 30. Inserte una columna antes de la columna 2 \x0d\eole.ActiveSheet.Columns(2).Insert \x0d\ 31. Establezca font\x0d\eole.ActiveSheet.Cells(2,1).Font.Name=〃Helvetica〃\x0d\ 32. Establezca el tamaño de fuente\x0d\eole.ActiveSheet.Cells(1,1).Font.Size=25 \x0d\ 33. Establezca la fuente en cursiva\x0d\eole.ActiveSheet.Cells(1,1).Font.Italic=.t. Establezca la fuente de toda la columna en negrita\x0d\eole.ActiveSheet.Columns(1).Font.Bold=.t \x0d\ 35．. Borrar fórmula de celda\x0d\eole.ActiveSheet.Cells(1, 4).ClearContents\x0d\ 36. Hoja de trabajo de vista previa de impresión\x0d\eole.ActiveSheet.PrintPreview\x0d\ 37. Imprima la hoja de trabajo\x0d\eole.ActiveSheet.PrintOut\x0d\ 38. Guarde la hoja de trabajo como \x0d\eole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃) \x0d\ 39. Abandonar el ahorro\x0d\eole.ActiveWorkbook.saved=.t \x0d\ 40. Cerrar libro de trabajo\x0d\eole.Workbooks.close\x0d\ 41. Salir de Excel \x0d\eole.quit\x0d\*************

******************************\x0d\\x0d\2. Después de llamar al objeto ADO para abrir el archivo EXECL en la base de datos. modo, use la instrucción SQL Forma de leer el archivo\x0d\*************************************** *****\x0d\ Dim rs As ADODB.Recordset\x0d\ Set rs = Nuevo ADODB.Recordset\x0d\ Dim conn As ADODB.Connection\x0d\ Set conn = Nuevo ADODB.Connection\x0d\ conn.Open " DRIVER={Controlador de texto de Microsoft (*. txt; adCmdText\x0d\ Set Read_Text_File = rs\x0d\ Set rs = Nothing\x0d\ Set conn = Nothing\x0d\************** ********************************