Colección de citas famosas - Slogan de motivación - ¿La programación de macros en Excel solo puede usar VBA?

¿La programación de macros en Excel solo puede usar VBA?

El lenguaje de programación que funciona en el entorno integrado EXCEL sólo puede ser VBA, no pudiendo utilizarse otros lenguajes como PHP, PERL, JAVA, C, etc.

Las aplicaciones EXCEL se pueden desarrollar en lenguajes distintos a VBA, pero no se pueden desarrollar ni depurar en el entorno EXCEL, sólo en otros lenguajes. Las operaciones EXCEL en otros lenguajes se pueden implementar utilizando objetos OLE. Puede comprender las ideas y métodos del siguiente código de muestra PERL:

#!/usr/bin/perl?

¿Usar? estricto;?

¿Usar? advertir;?

¿Usar? Win32::OLE? qw(en?uso);?

¿Usar? Win32::OLE::Constante? ¿Microsoft? sobresalir';?

¿Usar? Win32::OLE::NLS? qw(:localidad?:hora);?

¿El mío? $Excel? =?win32::OLE->GetActiveObject('Excel.Application')?

||?win32::OLE-gt;New('Excel.Application',?Salir');?

mi archivo $excel = 'E:\programa de aprendizaje\perl\excel file.xls';?

#¿Cerrar mensajes de advertencia, como guardar, sin que aparezca la ventana de confirmación?

$ Excel- gt; { mostrar alertas } = 0;

#¿Crear libro?

¿#Mi? $Libro = $Excel->Libro->añadir();?

# $ Libro->guardar como($ archivo excel);? #? ¿Agregar libro de trabajo y guardar?

#¿Abrir un Excel directamente? ¿Si existe?

Mi $Libro = $Excel->Libro de trabajo->Abrir($archivo excel);?

#¿Crear un objeto de hoja de trabajo?

¿El mío? $Hoja? =?$ Libro-gt;hoja("hoja 1");?

#$Hoja->activar()?

#$Hoja->{Nombre}? =?"DidItInPerl";?

#¿Insertar datos?

¿El mío? ($mdía, $lunes, $año)? =?(hora local(hora));?

¿Dólares al año? =?1900;?

¿$mon? =?1;?

¿El mío? $cadena? =?USD año. "/".$mon. "/".$ mdía?

¿#Alcance? ¿Cómo hacerlo?

$Hoja->Rango("c 1")->{Valor} = $cadena?

$Sheet->Range("d 1")-gt;{Value}="¿Fecha de hoy"?

#¿Insertar datos de forma iterativa?

¿para cada uno? ¿Mis $x? (1?..50)?{?

Mi $range="A ".

$x;?

$Sheet->range($range)->{Value} = "¿Esta es la fila $range"?

}?

#¿Recorrer la hoja de trabajo?

¿El mío? $hojacnt? =?$ Libro-gt;Hoja de trabajo-gt;count();?

¿para cada uno? (1..$hojacnt){?

¿Imprimir? ¿"\t"? . $Libro-gt;Hoja($_)-gt;{Nombre}? . "\norte";?

}?

foreach? ¿mío? $Hoja(en?$Libro-gt;{Hojas de trabajo}){?

¿Imprimir? ¿"\t"? . $Hoja->{Nombre}? . "\norte";?

}?

#¿Encontrar la última línea? ¿Última lista de métodos?

¿El mío? $Última fila? =?$Hoja->;used range-gt;Find({ What = gt"*",?

SearchDirection = gtxlPrevious,?

SearchOrder = gtxlByRows})-gt; { Fila };?

¿El mío? $ÚltimaCol? =?$Hoja->;rango usado- gt;Find({ What = gt"*",?

SearchDirection = gtxlPrevious,?

SearchOrder = gtxlByColumns })-gt; { Columna };?

¿Imprimir? Última columna: ", $LastCol, "\n"?

¿Imprimir? "Última fila: ", $LastRow, "\n"?

#Desde la primera línea Leer datos ¿Desde la columna A hasta la última fila?

¿Imprimir "#"? data\n";?

¿Mi $tmp?

foreach? ¿Mi $last_data? (1..$Últimafila)?{?

$ tmp = $Hoja-gt;Rango("A".$last_data)-gt;{Valor};?

Imprimir ? "Datos en la fila $last_data: ", $tmp," \ n ";?

}