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

 

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

 

 

 

 

 

 

 

Recherche personnalisée