Ver Mensaje Individual
  #4 (permalink)  
Antiguo 14/05/2008, 02:29
amina
 
Fecha de Ingreso: mayo-2008
Mensajes: 25
Antigüedad: 16 años, 9 meses
Puntos: 0
Re: Pasar Datos Entre Formularios

Cita:
Iniciado por Peterpay Ver Mensaje
puedes poner tu codigo??

Hola, aqui lo tienes. He marcado donde esta el problema con el que me encuentro.
Mil gracias por responder!!


private void button116_Click(object sender, EventArgs e)
{
//*****************************************ANEXOA*** ************************************************** *********************



//-------------------ABRE WORD Y HACE COPIA PLANTILLA ANEXO
Word._Document doc;
Word.Application ApWord = new Word.Application();
//copio la plantilla original
string path_plantilla = @"C:\Documents and Settings\emc\Desktop\Ana\Plantillas provisionales informes\Anexo A - informe europeo PRUEBA.doc";
string path_copia = @"C:\Documents and Settings\emc\Desktop\Ana\Plantillas provisionales informes\AnexoACopia2.doc";
//string path_prueba = @"C:\Documents and Settings\emc\Desktop\Ana\Plantillas provisionales informes\PruebaAnexo-A.doc";
File.Copy(path_plantilla, path_copia, true);
MessageBox.Show("Copia plantilla ok");

Object oMising = System.Reflection.Missing.Value;
//creo objeto de la clse Anexo A
AnexoA objAnexoA = new AnexoA();
//----------------------------ABRIR FICHERO EXCELL CON
//tendre que controlar si el fichero no existe
string rutaExcel;
openFileDialog2.Title = "Seleccionar el archivo de muestras";
openFileDialog2.Filter = "Archivos xls|*.xls";
ArrayList ALMuestras = new ArrayList();
if (openFileDialog2.ShowDialog() == DialogResult.OK)
{

rutaExcel = openFileDialog2.FileName;
MessageBox.Show("La ruta es: " + rutaExcel);

//****Importa excel e inserta los datos en un array****\\

ALMuestras = objAnexoA.ImportaExcel();
MessageBox.Show("Importa Excell ok");





}

//----------------------------INSERTA TABLA MUESTRAS----------------------------------------------------------------------------

object param = path_copia;
//Abro Word
doc = objAnexoA.AbrirWord(param, oMising, ApWord);
Word.Range rng,rango;
Word.Table TablaMuestras,TablaContenedor,TablaElemPrinc;
Word.Table TablaAux;
//En el listBox1 estan todos los datos de la muestra, cada 7 lineas hay otra muestra
int lon = this.listBox1.Items.Count;
//Divido entre 7 para saber cuantas muestras hay en el listbox
int numeroM = lon / 7;

//extraemos el rango de la primera tabla que se tiene que insertar
int filaEliminar = 0;//contador que lleva el número de filas de la tabla contendor
string nombre = "Muestra";

rng = objAnexoA.BuscarRango(nombre, doc);

//**Inserto tabla contenedor**\\
//Esta tabla contendra todas las tablas que nesesita una muestra , porcada muestra necesitaremos 10 filas de la tabla contenedor
TablaContenedor = objAnexoA.InsertarTablaContenedor(numeroM*10, doc, rng, oMising);

//contador del listbox, cada 7 lineas hay una nuev muestra
contAnexoA = 0;

//**Copia del rango inicial**\\
rango = rng;
rango.Select();
//Muevo rango primera fila en una unidad de fila
object count = 1;
object unit = Word.WdUnits.wdRow;
rango.Move(ref unit, ref count);


//****Importa excel e inserta los datos en un array****\\
ArrayList ALMuestras = new ArrayList();
//RellenarExcel(ref ALMuestras); //Tengo que hacer un delegado o un evento!!!!!
try //AQUI ESTA EL PROBLEMA
{

AMuestras = objAnexoA.ImportaExcel();//EL ARCHIVO EXCELL QUE IMPORTO PUEDE DAR PROBLEMAS
MessageBox.Show("Importa Excell ok");
}
catch
{
ConectarForm3();//CON ESTO QUIERO CONECTAR A OTRO FORMULARIO DONDE QUIERO RECOGER DATOS
this.Hide();
F3.Show();
AMuestras = F3.AMuestrasOrigen;//AQUI SE RECOGEN LOS DATOS QUE VIENEN DEL OTRO FORMULARIO
MessageBox.Show("Importa Excell ok");

MessageBox.Show("ERROR CON EL EXCELL");
}