Stringrid a Excel

[[BlueSteel]]

Empezado por Neftali

Creo que lo más fácil es que exportes el contenido del StringGrid a CSV (archivo separado por comas); Éstos ficheros se abren directamente desde Excel sin problemas (independientemente de la versión).

Ésta código guarda el contenido del StringGrid en el portapapeles, pero cambiando la última línea (1)/(2) se puede hacer que lo guarde en un fichero .CSV

Hola Neftali. estaba revisando este codigo, funciona bien, pero tengo un pequeño inconveniente.. Mi StringGrid posee 3 filas y solo me almaceno 1 en el archivo .csv

tienes alguna idea de que pueda ser.. lo único que hice fue cambiar a la funcion en nombre de StringGrid1 por Grilla.... lo demás lo tengo todo igual...

[Neftali [Germán.Estévez]]

Empezado por BlueSteel

Mi StringGrid posee 3 filas y solo me almaceno 1 en el archivo .csv
tienes alguna idea de que pueda ser.. lo único que hice fue cambiar a la funcion en nombre de StringGrid1 por Grilla.... lo demás lo tengo todo igual...

Efectivamente.
Si te fijas el bucle for tiene lo siguiente:

Código Delphi [-]
for i := (StringGrid1.Selection.Top) to (StringGrid1.Selection.Bottom) do begin

Trabaja con las líneas seleccionadas. Haz la prueba seleccionando con el ratón las tres filas.
Si deseas que siempre exporte todo, utiliza la propiedad RowCount para recorrerlas todas.

[[BlueSteel]]

ya lo solucione...

tube que cambiar esto

Código Delphi [-]
for i := (StringGrid1.Selection.Top) to (StringGrid1.Selection.Bottom) do

por esto otro

Código Delphi [-]
 
 For i := 0 to Grilla.RowCount-1 do

[[BlueSteel]]

Neftali

no me habia fijado que habias respondido.. y se me habia ocurrido cambiar esas lineas...

cual es el comando para que las columnas en vez de separarlas por espacio las separe por coma "," o por punto y coma... ";"

ando buscando las equivalencias.. por que supongo que el #9 equivale al espacio

ahh.. y se me olvidava.. estoy tratando de abrir el archivo en notepad desde delphi.. con el shellexecute.. pero como le digo que archivo es ?

tengo esto

Código Delphi [-]
Shellexecute(0, 'open', pchar('D:\Sistemas\BCI\Internet.csv'), '', '' , SW_Shownormal);

pero quiero decir que esto me lo abra por el Notepad y no por el Excel...