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 p>
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