Red de conocimiento informático - Problemas con los teléfonos móviles - Conversión de código VBA código VB

Conversión de código VBA código VB

'Primero, seleccione Mic...Excel... en "Referencia del proyecto"

'Set xlBook = xlApp.Workbooks.Open("Nombre de archivo") 'Abra el archivo de libro de trabajo EXCEL existente

'xlApp.Visible = True 'Establece el objeto EXCEL para que sea visible (o invisible)

'Set xlSheet = xlBook.Worksheets("nombre de hoja") ' Establezca la actividad Hoja de trabajo

'Range("K12"). Seleccione Establezca la celda activa

'xlSheet.Cells(Row, col) = value'Asigne un valor a la celda ( fila, col)

'xlSheet.PrintOut 'Imprimir la hoja de trabajo

'xlBook.Close (True) 'Cerrar el libro

'xlApp.Quit 'End el objeto EXCEL

p>

'Set xlApp = Nothing 'Libera el objeto xlApp.

'xlBook.RunAutoMacros (xlAutoOpen) 'Ejecuta la macro de inicio de EXCEL

'xlBook.RunAutoMacros (xlAutoClose) 'Ejecutar macro de cierre de EXCEL

'xlBook.Worksheets.Count 'Número total de etiquetas de libro de trabajo

Subcomando privado1_Click()

Atenuar xlApp como Excel.Application

Establecer xlApp = Nueva aplicación Excel.

Establecer xlApp = CreateObject("Excel.Application") 'Crear objeto EXCEL

En caso de error, reanudar el siguiente

Libros de trabajo. Agregar 'Nuevo libro de trabajo

MkDir "C:\123"

ChDir "C:\123" 'Crear el Carpeta "123" en el escritorio

'Lo siguiente es guardar el archivo en "C:\\Template.xls"

ActiveWorkbook.SaveAs FileName:= _

"C:\123\Template.xls", Formato de archivo:=xlNormal, _

Contraseña:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

CreateBackup:=False

' Windows("Template.xls").Activate

xlApp.Visible = True

'Sheets("Hoja1") .Seleccione

Hojas.Agregar 'Nuevas hojas

Hojas("Hoja2").Nombre = "Nueva hoja de cálculo"

'Hojas("Hoja3"). Name = "Hoja"

ActiveWorkbook.Sheets("Nueva hoja de trabajo").Tab.ColorIndex = 7 'Especificar colores para las etiquetas de la hoja de trabajo

xlApp.Worksheets("Nueva hoja de trabajo

").Range("A1").Cells(3, 2) = "Agregar datos"

'xlApp.Worksheets(Sheets(i).Name).Range("A1").Cells( j, 2) = "@"

'ActiveWorkbook.Sheets("Evaluación").Tab.ColorIndex = 7

'ActiveWorkbook.Sheets("Profesor Enseñanza").Tab. ColorIndex = 7

'ActiveWorkbook.Sheets("Configuración de clase").Tab.ColorIndex = 7

'ActiveWorkbook.Sheets("Zxmd").Tab.ColorIndex = 32

xlBook.Save

xlApp.Save

ActiveWorkbook.Close

xlBook.Close (True) 'Cerrar el libro de trabajo

xlApp.Quit 'Fin del objeto EXCEL.

Set xlApp = Nothing 'Liberar objeto xlApp

End Sub

También puedes ir a mi blog para ver otra información relacionada Código/zgmg/blog/item/267a548dfbdff11fb21bba54.html