Recherche personnalisé / personalised search

 

 

Créer un fichier
(Excel to html or txt)
Macro Microsoft Visual Basic
Voir aussi / See also Boinc

Excel -> Créer un tableau web dans un fichier htm avec une macro
Excel -> Create a web table in a htm file with a macro

 

Fichier Excel / Excel File

Fichier / File HTML

 

Sélectionner une feuille / Select a sheet

Worksheets("html").Select

Worksheets("collatz").Select

 

Créer un fichier / Create a file

Set FS = CreateObject("Scripting.FileSystemObject")

Set a = FS.CreateTextFile("your file name.html", True)  pour / for html ficher / file
Set a = FS.CreateTextFile("your file name.txt", True)  pour / for txt ficher / file

et à la toute fin / And at the end

Fermer le fichier / Close the file

a.Close

 

Écrite une ligne / write a line

a.WriteLine ("Allo")         Écrit avec un saut de line dans un fichier txt / Writes with a line feed in a txt file

a.WriteLine ("Allo<br>")  dans html on doit  mettre le code  <br> ou </p> pour un saut de ligne
                                    In html you must put the code <br> or </ p> for a line feed

Convertir un le contenu d'une cellule en texte
Convert a cell contents to text

TEXTE(A16;"# ##0,00")    en français / in french
TEXT(A16;"# ##0,00")   en anglais / in  English

# ##0,00 format de conversion /  conversion format

Ex.

A16 = 1000000
Donne / Given : 1 000 000,00

Formula Description

=TEXT(1234.567,"$#,##0.00") Currency with a thousands separator and 2 decimals, like $1,234.57.
Note that Excel rounds the value to 2 decimal places.
=TEXT(TODAY(),"MM/DD/YY") Today’s date in MM/DD/YY format, like 03/14/12
=TEXT(TODAY(),"DDDD") Today’s day of the week, like Monday
=TEXT(NOW(),"H:MM AM/PM") Current time, like 1:29 PM
=TEXT(0.285,"0.0%") Percentage, like 28.5%
=TEXT(4.34 ,"# ?/?") Fraction, like 4 1/3
=TRIM(TEXT(0.34,"# ?/?")) Fraction, like 1/3.
Note this uses the TRIM function to remove the leading space with a decimal value.
=TEXT(12200000,"0.00E+00") Scientific notation, like 1.22E+07
 =TEXT(1234567898,"[<=9999999]###-####;(###) ###-####") Special (Phone number), like (123) 456-7898
=TEXT(1234,"0000000")  Add leading zeros (0), like 0001234
=TEXT(123456,"##0° 00' 00''") Custom - Latitude/Longitude

 Écrire le contenu de la cellule dans le fichier /  Write the contents of the cell to the file

A16 = 1000000

A17 = TEXTE(A16;"# ##0,00")

a.WriteLine (Cells(17, 1))

1 = A    2 = B    3 = C     etc.....

Dans un fichier txt / in txt file

a.WriteLine (Cells(17, 1) + "you are millionnaire")
a.WriteLine ("have fun")

Le résultat est / The result is

1 000 000 you are millionnaire
have fun

Dans un fichier html / in html file

a.WriteLine (Cells(17, 1) + "you are millionnaire<br>")
a.WriteLine ("have fun")

Le résultat est / The result is

1 000 000 you are millionnaire
have fun

 

Insérer du code html

Le code est dans la colonne O = 15 / The code is in column O = 15

a.WriteLine (Cells(11, 15))
a.WriteLine (Cells(8, 15))
a.WriteLine (Cells(7, 15))
a.WriteLine (Cells(7, 15))                    ------> Cells(7, 15) pour la cellule  / for cell     O7
a.WriteLine (Cells(6, 15) + "Pag <br>") ------> Cells(6, 15) pour la cellule  / for cell     O6
a.WriteLine ("Boinc Statistique/Statistic</font><br>")
a.WriteLine ("Personnalisées/Customized </b><br>")
a.WriteLine ("Avec Excel/Whit Excel et/and &nbsp;&nbsp;Boinc statistics_xxxxxxx.xml files </b><br>")
a.WriteLine ("dans/in C:\ProgramData\BOINC </b><br>")
a.WriteLine ("Voir/See &nbsp;&nbsp" + Cells(10, 15) + "</p>")

Le résultat est / The result is

<html><head><meta http-equiv="Content-Language" content="fr-ca"><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>Tableau Stat</title></head>
<body background="0image001.jpg">
<div align="center"><b><font size="4" face="Verdana">
<p align="center">Pag <br>
Boinc Statistique/Statistic</font><br>
Personnalisées/Customized </b><br>
Avec Excel/Whit Excel et/and &nbsp;&nbsp;Boinc statistics_xxxxxxx.xml files </b><br>
dans/in C:\ProgramData\BOINC </b><br>
Voir/See &nbsp;&nbsp<a style="text-decoration: none" href="http://www.zpag.net/Boinc/boinc.htm"><span style="text-decoration: none">Boinc</span></a></p>
 

Ce qui donne / Which give

Pour créer un tableau on utilise les codes / To create a table we use the codes

<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="1400">
<tr>
    ......</td>
    ......</td>

</tr>

Ex.

 a.WriteLine (Cells(3, 15)) 'Création du tableau

a.WriteLine ("<tr>") 'Première Ligne Entête
a.WriteLine (Cells(9, 15) + "</td>")
a.WriteLine (Cells(9, 15) + "</td>")
a.WriteLine (Cells(9, 15) + Cells(1, 3) + "</td>")
a.WriteLine (Cells(9, 15) + Cells(1, 4) + "</td>")
a.WriteLine (Cells(9, 15) + Cells(1, 5) + "</td>")
a.WriteLine (Cells(9, 15) + Cells(1, 6) + "</td>")
a.WriteLine (Cells(9, 15) + Cells(1, 7) + "</td>")
a.WriteLine (Cells(9, 15) + Cells(1, 8) + "</td>")
a.WriteLine (Cells(9, 15) + Cells(1, 9) + "</td>")
a.WriteLine (Cells(9, 15) + Cells(1, 10) + "</td>")
a.WriteLine (Cells(9, 15) + Cells(1, 11) + "</td>")
a.WriteLine (Cells(9, 15) + Cells(1, 12) + "</td></tr>")

For i = 2 To 41
    a.WriteLine ("<tr>") 'Deuxième Ligne Données etc...
    a.WriteLine (Cells(4, 15) + Cells(i, 1) + "</td>")
    a.WriteLine (Cells(5, 15) + Cells(i, 2) + "</td>")
    a.WriteLine (Cells(5, 15) + Cells(i, 3) + "</td>")
    a.WriteLine (Cells(5, 15) + Cells(i, 4) + "</td>")
    a.WriteLine (Cells(5, 15) + Cells(i, 5) + "</td>")
    a.WriteLine (Cells(5, 15) + Cells(i, 6) + "</td>")
    a.WriteLine (Cells(5, 15) + Cells(i, 7) + "</td>")
    a.WriteLine (Cells(5, 15) + Cells(i, 8) + "</td>")
    a.WriteLine (Cells(5, 15) + Cells(i, 9) + "</td>")
    a.WriteLine (Cells(5, 15) + Cells(i, 10) + "</td>")
    a.WriteLine (Cells(5, 15) + Cells(i, 11) + "</td>")
    a.WriteLine (Cells(5, 15) + Cells(i, 12) + "</td></tr>")

Next i

a.WriteLine ("</table></div></body></html>") 'Fin Tableau

Sauvegarder / Save

Workbooks("file name").Save

Dans mon cas / In my case

Workbooks("Import Stat de Boinc du disque.xlsm").Save

Transférez votre fichier sur votre site / Transfert your file on your site

Exécuter le fichier script ou bat de votre client FTP (WinSCP dans mon cas)
Run the script or bat file of your FTP client (WinSCP in my case)

Shell ("file name")

Shell ("C:\Users\Pag-Two\Documents\Mes documents\Boinc\Boinc_FTP.bat")

WinSCP script File: Boinc_FTP.bat in my case

option batch abort
option confirm off
open ftps:User:pass@server  -explicit
cd /your path on the web server
put -neweronly C:\localpath\your Boinc_Stat file
exit

User:pass@server = Your user name:password@server name -explicit (-explicit is for Cryptage TLS/SSL explicite)

bat file for WinSCP

"C:\Program Files (x86)\WinSCP\winscp.com" /script=WinSCP script File Replace space by " "

In my case

"C:\Program Files (x86)\WinSCP\winscp.com" /script=C:\Users\Pag-Two\Documents\Mes" "documents\Boinc\Boinc_FTP.txt

Le résultat final / The end result

Boinc Statistique/Statistic  Personnalisées/Customized

Macro Sub Stat()

 

Travailler avec une feuille de calcul et une feuille html / Working with a calcul sheet and an html sheet 

La feuille stat fait les calcules / The stat sheet makes the calculations

Feuille html / html sheet

 

Voir / see Boinc Config


Logiciel pour faire un site web
 Microsoft expression Web 4 Gratuit Français

Microsoft expression Web 4 Free English

 

 

 

 

 

 

 

Recherche personnalisée