Cita:
xerkan comentó:
Me gustaria saber como prodria insertar una columna en un documento de excel (por ejemplo añadir dos columnas despues de la columna C)
el macro que me ha generado el vb es este pero no se como transformarlo a delphi:
columns("C:C").Select
select.insert shift=xltoright;
|
Bueno, pues esto no me parece que se haya comentado mucho ni me parece obvio. Luego de varias pruebas finalmente lo logré.
Vamos a suponer que ExcelApp es un objeto TExcelApplication y que Sheet es una referencia a un objeto _WorkSheet, por ejemplo:
Código:
var
Sheet: _WorkSheet;
begin
Sheet := ExcelApp.ActiveSheet as _WorkSheet);
end;
te da una referencia a la hoja activa del libro activo.
Nota que Excel siempre desplaza las celdas hacia la derecha (o hacia abajo si la selección es horizontal) pero no a la izquierda y que para insertar
n columnas debemos seleccionar
n columnas, no sólo la que nos interesa.
De esta forma vemos que para insertar, digamos dos columnas,
después de la columna "C", debemos seleccionar las columnas "D" y "E" y después llamar al método Insert:
Código:
// Seleccionar las dos columnas que siguen a "C"
Sheet.Columns.Range['D : D', 'E : E'].Select;
// Insertar
(ExcelApp.ActiveWindow.Selection as ExcelRange).Insert(Null);
// Saludos