Wie erstellt man ein Skript, um Excel-Tabellenzeilen in HTML-Seiten umzuwandeln?

Ich habe eine Excel-Tabelle, die die Adresse der lokalen Unternehmen mit einer kleinen Beschreibung enthält. Müssen Sie dieses Verzeichnis auf meine Wordpress-Site hochladen.Wie erstellt man ein Skript, um Excel-Tabellenzeilen in HTML-Seiten umzuwandeln?

Ich möchte jede Zeile in der Tabelle eine separate HTML-Webseite sein. Ich habe eine CSS-Vorlage, um den Inhalt zu formatieren, aber die Tabelle hat über 1000 Einträge. Daher wäre es schmerzhaft, es manuell zu tun.

ps. Wenn es ein Wordpress-Plugin gibt, könnte ich das am bequemsten verwenden

Quelle

2016-03-25 user2990613

Der folgende Code benötigt C1, C2, ..., Cx, etc in CSS.

Dim sDir As String 
Dim iRnd, iCnd, iRow, iCol As Integer 
Dim oFso As Object 
Dim oFil As Object 

sDir = ActiveWorkbook.Path & "\" 
iRnd = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 
iCnd = ActiveCell.SpecialCells(xlCellTypeLastCell).Column 
Set oFso = CreateObject("Scripting.FileSystemObject") 

For iRow = 1 To iRnd 

    Set oFil = oFso.CreateTextFile(sDir & iRow & ".html") 
    oFil.WriteLine "<html><body>" 
    For iCol = 1 To iCnd 
     oFil.WriteLine "<div class='C" & iCol & "'>" & Cells(iRow, iCol) & "</div>" 
    Next 
    oFil.WriteLine "</body></html>" 
    oFil.Close 

Next 

Set oFil = Nothing 
Set oFso = Nothing 

MsgBox "Done"

Quelle

2016-03-25 01:58:35 LPYL

Entschuldigung, dass ich wie ein Gauner klang, aber in welcher Sprache ist das? Ich bin damit nicht vertraut. – user2990613

Dieser Code befindet sich in Visual Basic für Applikationen, das in Excel verfügbar ist. – LPYL

Okay klingt gut, vielen Dank! – user2990613

Wie erstellt man ein Skript, um Excel-Tabellenzeilen in HTML-Seiten umzuwandeln?

Antwort

Verwandte Themen