Ajout de colonnes dans un fichier excel via OleDb [Résolu]

Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
- - Dernière réponse : cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
- 5 avril 2015 à 10:24
Bonjour le Forum,

Avec VB 2010 Express, je souhaiterai ajouter des colonnes dans un fichier Excel.
Mes recherches, sur le .Net, m'ont amené à l'utilisation d'une requête avec DROP.

Essai infructueux :
       Dim sqlQuery As String = " SELECT *, 0 AS " & "Job" & " " & _
" INTO [NewTempTable]" & _
" DROP TABLE [" & SheetVTOM & "$]" & _
" SELECT * INTO [" & SheetVTOM & "$]" & _
" FROM [NewTempTable$]" & _
" DROP TABLE [NewTempTable$]"

' Ouverture du fichier Excel
Dim conn As New OleDbConnection()
Try
conn.ConnectionString = ConnectingExcel(MyFilePDP, "HDR=YES")
conn.Open()
Catch ex As Exception
Me.RichTextBox1.AppendText(Environment.NewLine & Environment.NewLine & _
"Erreur: connexion - feuille " & SheetVTOM & Environment.NewLine & _
"Connecting : " & Environment.NewLine & ConnectingExcel(MyFilePDP, "HDR=YES") & _
Environment.NewLine & ex.Message & Environment.NewLine & Environment.NewLine)
End Try

' Insertion de colonnes dans le fichier Excel
Dim sqlCommand As New OleDbCommand()
Try
sqlCommand.Connection = conn
sqlCommand.CommandText = sqlQuery
sqlCommand.ExecuteNonQuery()
Catch ex As Exception
Me.RichTextBox1.AppendText(Environment.NewLine & Environment.NewLine & _
"Erreur: sqlQuery - feuille " & SheetVTOM & Environment.NewLine & _
"sqlQuery : " & Environment.NewLine & sqlQuery & Environment.NewLine & _
Environment.NewLine & ex.Message & Environment.NewLine & Environment.NewLine)


Message d'erreur :
Erreur: sqlQuery - feuille Jobs
sqlQuery :
SELECT *, 0 AS Job INTO [NewTempTable] DROP TABLE [Jobs$] SELECT * INTO [Jobs$] FROM [NewTempTable$] DROP TABLE [NewTempTable$]

La requête doit être construite à partir d'au moins une table ou une requête source.


Je n'ai pas compris l'utilisation du "SELECT *, 0 AS " & "Job".

Merci pour suggestions.
jean-marc

Afficher la suite 

Votre réponse

1 réponse

Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
0
Merci
Bonjour le Forum,

Suite à recherches, il n'est pas possible d'utiliser le DROP.
J'ai donc utilisé l'objet Excel.Application pour ajouter des colonnes dans le fichier.

Je clos donc ce post.

jean-marc
Commenter la réponse de cs_JMO

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.