[rsview SE] Export CSV en VBA Résolu

Question

Bonjour, 
 
Je développe actuellement un petit module VBA sur un logiciel de supervision (rsview SE).

J'aimerais savoir comment exporter certaines données dans un fichier Csv à créer préalablement et les séparer par colonnes.

Je ne trouve que du VBA excel pour export malheureusement .

Merci d'avance 
--

jordane45 · Answer

Bonjour,

J'aimerais savoir comment exporter certaines données dans un fichier Csv à créer préalablement et les séparer par colonnes. 
Un fichier CSV est un format de fichier dont le contenu est séparé par un délimiteur
(par défaut c'est la Virgule.. mais bien souvent on utiliser le "point-virgule").
Mais toi...qu'entends tu pas : "Séparer par colonne" ?? 
 
Je ne trouve que du VBA excel pour export malheureusement 
C'est à dire ? Tu ne trouves pas comment faire des Exports DEPUIS RSVIEW c'est ça ?

Voici un exemple d'export vers Excel (et rien ne t'empeche par la suite de sauvegarde le classeur en  .CSV  au lieux du .XLS )
http://www.control.com/thread/1026236881

Tu peux aussi jeter un oeil à ce lien là:
sample RSView32 VB file, for data logging of 20 Tags in CSV

pitipilot · Answer

Bonjour jordane45 :),

En fait j'arrive bien à exporter mes données via rsview dans un fichier csv, cependant, j'aimerais que lorsqu'on ouvre ce fichier avec excel par exemple, les données soient directement séparées par des colonnes par exemple et non par un ";".
Je ne sais pas si c'est possible :S

pitipilot · Answer

C'est bon j'ai trouvé, voici le code pour ceux que ça intéresse :

Dim fileName As StringDim fso As FileSystemObjectDim outputFile As textStream'generate output file namefileName = "C:\Output.csv"'create new FileSystem object and open text stream to write toSet fs = New FileSystemObjectSet outputFile = fs.CreateTextFile(fileName, True) 'note file will be overwritten    'Use the following code to place each word into separate COLUMN     outputFile.Write ("element1) & ";"     outputFile.Write ("element2) & ";"    'Use the following code to place each word into separate ROW    'outputFile.WriteLine (arrayElement)'close output streamoutputFile.Close

Utiliser la référence "Microsoft Scripting Runtime" pour que ça fonctionne.

Bonne journée et encore merci

[rsview SE] Export CSV en VBA

3 réponses

Votre réponse

Discussions similaires