[VB.NET] [excel] Colonne excel

Version imprimable

Voir 40 message(s) de cette discussion en une page

04/04/2005, 09h35
mikolirto

[VB.NET] [excel] Colonne excel

bonjours voila je voudrais depuis ma base de donnée sqlserver copieur pouvoir remplir une colonne dans excell avec un champ j ai bien ma connexion dataset dataadapter mais je ne sais pas comment faire pour balance mon champ dans la colonne complete merci de votre aide par avance
04/04/2005, 09h42
Ditch

En gros tu veux remettre un tableau dans Excel?
04/04/2005, 10h01
mikolirto

en fait par exemple un champ nom_four je voudrais qu il remplisse toute la clonne a par exemple
04/04/2005, 10h01
Ditch

Avec une boucle je sais... Sans boucle je sais pas si c'est possible :s
04/04/2005, 10h11
mikolirto

en fait je sais aps comment faire si tu peu me donner un peu de code ou m expliquer la marche pas à suivre suis tout ouie

Ceci dit y a le meme sujet dans un post de vendredi je pense...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
			object oMissing= System.Reflection.Missing.Value;
 
			Excel.Application appXls = new Excel.ApplicationClass();
			appXls.Visible = false;
			string filename = @"c:\VlvDevis\Export4.xlt";
			Excel._Workbook Classeur = appXls.Workbooks.Open(filename, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing);
			Excel._Worksheet Feuille = (Excel._Worksheet) Classeur.ActiveSheet;
 
			int line = 6;
			foreach (Task tache in taches)
			{
				if (tache != null)
				{
					if (Type == 2)
						Feuille.Cells[line, 1] = tache.dateTache.ToString("HH:mm");
					else
						Feuille.Cells[line, 1] = tache.dateTache.ToString("dd/MM/yyyy HH:mm");
					Feuille.Cells[line, 2] = tache.numDevis.ToString();
					Feuille.Cells[line, 3] = tache.Tache;
					line++;
				}
			}
 
			Feuille.Columns.AutoFit();
 
			appXls.Visible = true;

04/04/2005, 10h16
mikolirto

j arrive pas asaisir ce code comment puis je faire une fois ma conneixon etabli pour pouvoir recuperer mon champ et le balancé dans excel?

A l'aide d'un DataReader par exemple.

Un autre exemple (pas performant du tt!!) mais ca montre bien ce que tu veux:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
			OleDbConnection oConn;
			OleDbCommand oCmd;
 
			object oMissing= System.Reflection.Missing.Value;
 
			Excel.Application appXls = new Excel.ApplicationClass();
			appXls.Visible = false;
			StatusBarAccess.Executing = "Exportation de la liste des devis vers Excel en cours...";
			//Excel._Workbook Classeur = appXls.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet);
			string filename = @"c:\VlvDevis\Export.xlt";
			Excel._Workbook Classeur = appXls.Workbooks.Open(filename, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing);
			Excel._Worksheet Feuille = (Excel._Worksheet) Classeur.ActiveSheet;
 
			oConn=new System.Data.OleDb.OleDbConnection();
			oConn.ConnectionString=MainFrame.strConn;
			oCmd=new System.Data.OleDb.OleDbCommand();
			oCmd.Connection=oConn;
			oCmd.CommandText=strCmd;
			oConn.Open();
			OleDbDataReader dr = oCmd.ExecuteReader();
			int nLine=5;
			int DernierMontant = -999999;
			string DerniereAffaire = "DeniereAffaire";
			while (dr.Read())
			{
				if (Convert.ToInt32(dr["Montant"]) >= DernierMontant * 0.9 && Convert.ToInt32(dr["Montant"]) <= DernierMontant * 1.1 && dr["Affaire"].ToString() == DerniereAffaire)
				{
					Feuille.Cells[nLine-1, 4] = "[...]";
				}
				else
				{
					DerniereAffaire = dr["Affaire"].ToString();
					DernierMontant = Convert.ToInt32(dr["Montant"]);
					string Content = "";
					for (int nCol=0; nCol < 8; nCol++) //dr.FieldCount
					{	
						Content = dr[nCol].ToString();
						if (nCol == 3)
						{
							Content = Content.Replace("Monsieur", "M");
							Content = Content.Replace("Madame", "Mme");
							if (Content.Length > 0)
								Content = Content.Remove(0, 1);
						}
						if (nCol == 6)
						{
							Content = Content.Substring(0, Content.Length-9);
						}
						if (Content != "")
							Feuille.Cells[nLine, nCol+1] = Content;						
					}
					nLine++;
				}
			}
			oConn.Close();
 
			Feuille.Columns.AutoFit();
			Title(Feuille, "Liste de devis sélectionnés");
			string Tmp = "Critères de sélection: ";
			foreach (string critere in MainFrame.Criteres)
			{
				if (critere != "Aucun critère de sélection.")
					Tmp += critere + ", ";
			}
			Title(Feuille, "Liste des devis sélectionnés");
			Description(Feuille, Tmp);
 
			StatusBarAccess.Executing = "Exportation de la liste des devis vers Excel terminée";
			appXls.Visible = true;

Attention il reste des choses qui ne te serviront pas mais j'ai pas envie de décortiquer le tout ;)

04/04/2005, 10h27
mikolirto

te remerci vais tester ton code et te redis dans la journée
04/04/2005, 10h27
Ditch

Citation:

Envoyé par mikolirto

te remerci vais tester ton code et te redis dans la journée

Pas de probleme.
04/04/2005, 14h39
mikolirto

bon j ai essayé ton code je n arrive pas a le faire fonctionner alors j ai essaye ca

_______________________________________

Dim ds As New DataSet
Dim da As New System.Data.SqlClient.SqlDataAdapter
Dim Connexion As New System.Data.SqlClient.SqlConnection
Dim MyCommand As New System.Data.SqlClient.SqlCommand

Connexion.ConnectionString = MaChaineConnexion
MyCommand.Connection = Connexion

MyCommand.CommandText = "SELECT * FROM FOURNISSEUR"
da.SelectCommand = MyCommand
da.Fill(ds, "FOURNISSEUR")

Try
Connexion.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

MessageBox.Show("ca fonctionne")
Try
Connexion.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

'Créer un fichier excel
'Définir une applciation excel
Dim xlApp As Excel.Application
'Déclarer un classeur
Dim xlBook As Excel.Workbook
'Déclarer une feuille
Dim XlSheet As Excel.Worksheet

xlApp = New Excel.Application
xlBook = xlApp.Workbooks.Add
XlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)
'Application excel caché à l'utilsateur
xlApp.Visible = False
'Ecire dans la feuille choisir la cellule ici A1
>>>>>>> xlApp.Sheets(1).range("A1").value = ds.Tables
("FOURNISSEUR").Rows.Item("ID_FOUR").
xlApp.Sheets(1).range("A2").value = "TONTEXTE2"
xlApp.Sheets(1).range("A3").value = "TONTEXTE3"
'Sauvegarde du fichier
XlSheet.SaveAs("C:\Documents and Settings\michael\bureau\mike.xls")
'Ferme le classeur
xlBook.Close()
'Quitte excel
xlApp.Quit()

l erreur arrive a la ligne ou y a les >>>> me met cast invalid si tu peu m aider merci
04/04/2005, 14h42
Ditch

Tu essayes de mettre DES tableaux au sens VB.NET dans une cellule.

Soit tu veux mettre le nombre (par ex) et cela donne :

Code:

ds.Tables.Count.ToString()

ou je sais pas ce que tu veux
04/04/2005, 15h10
mikolirto

m indique plus d erreur quand je met ta ligne a la place de la mienne il
me mets simplement le chiffre un j aimerais bien qu il me mette au moins le premier nom de fournisseur tu peu peu etre m aider :)
04/04/2005, 15h20
Ditch

Citation:

Envoyé par mikolirto

m indique plus d erreur quand je met ta ligne a la place de la mienne il
me mets simplement le chiffre un j aimerais bien qu il me mette au moins le premier nom de fournisseur tu peu peu etre m aider :)

Ton probleme n'est pas la comprehension de l'utilisation d'Excel mais bien des DataSet... Je pense qu'un petit cours d'ADO.NET serait le bienvenu.

Sinon ben

Code:

xlApp.Sheets(1).range("A1").value = ds.Tables("FOURNISSEUR").Rows.Item("ID_FOUR").ToString()

ton probleme etait que

Code:

xlApp.Sheets(1).range("A1").value = ds.Tables("FOURNISSEUR").Rows.Item("ID_FOUR")

renvoie un object alors qu'Excel attend un string.
04/04/2005, 15h32
mikolirto

en mettant ta ligne me met toujours l erreur du cast lors du item il me demande un integer ca doit venir de la le pb
04/04/2005, 15h37
Ditch

Citation:

Envoyé par mikolirto

en mettant ta ligne me met toujours l erreur du cast lors du item il me demande un integer ca doit venir de la le pb

Un int???

Code:

ds.Tables.Count.ToString()

Ca c'etait deja un string...

Je ne comprends pas ce que tu veux dire...

Ceci dit je pense qu'il y a parfois des problemes avec des Range.

Peut etre serait il mieux d'utiliser

Code:

xlApp.Sheets(1).Cells(1, 1) = "Test";
04/04/2005, 15h40
mikolirto

dans la case 1 1 il m affiche bien test ca c est ok
04/04/2005, 15h43
Ditch

Code:

xlApp.Sheets(1).Cells(1, 1) = ds.Tables("FOURNISSEUR").Rows.Item("ID_FOUR").ToString()

et ca ca fonctionne?

Si non, essayes un peu:

Code:

xlApp.Sheets(1).Cells(1, 1) = ds.Tables(1).Rows.Item(1).ToString()
04/04/2005, 15h50
mikolirto

la premiere ligne ne fonctionne toujours pas par contre la deuxieme me met un message d erreur ne trouve pas la table 1
04/04/2005, 15h55
Ditch

Mets des 0 au lieu des 1. Je pensais qu'on comptait à partir de 1 en VB.NET

Voir 40 message(s) de cette discussion en une page