私は地元の企業の住所と小さな説明を含むExcelテーブルを持っています。このディレクトリをWordpressサイトにアップロードする必要があります。テーブル行をHTMLページに変換するスクリプトを作成するにはどうすればよいですか？
テーブルのすべての行を別々のHTML Webページにしたいとします。私はコンテンツをスタイルするためのCSSテンプレートを持っていますが、テーブルは1000以上のエントリを持っています。したがって、手動で行うことは痛みにつながります。
ps。もし単語プレスプラグインがあれば、私はこれを最も便利に使うことができます。
次のコードでは、CSSにC1、C2、...、Cxなどが必要です。
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"
これは何の言い方ですか？私はそれに慣れていません。 – user2990613
このコードはVisual Basic for Applicationsに含まれています。これはExcel内から入手できます。 – LPYL
大丈夫よ、ありがとう！ – user2990613