Результаты экспорта списка VBA Excel в HTML - PullRequest
Новая
       5

Результаты экспорта списка VBA Excel в HTML

0 голосов
/ 01 августа 2020

Я пытаюсь экспортировать результаты из списка в файл HTML, но просто экспортируя первый столбец, я хотел бы также экспортировать результаты из списка. кто-нибудь мне поможет?

Код: 

Private Sub CreateHTML()

  'Create an .html file in the assigned directory.
  Dim sFile As Variant

   sFile = Application.GetSaveAsFilename(fileFilter:="HTML Files (*.html), *.htm")

  'Open up the temp HTML file and format the header.
  Open sFile For Output As #1
  Print #1, "<html>"
  Print #1, "<head>"
  Print #1, "<style type=""text/css"">"
  Print #1, "table {font-size: 16px;font-family: Optimum, Helvetica, sans-serif; border-collapse: collapse}"
  Print #1, "tr {border-bottom: thin solid #A9A9A9;}"
  Print #1, "td {padding: 4px; margin: 3px; padding-left: 20px; width: 75%; text-align: justify;}"
  Print #1, "th { background-color: #A9A9A9; color: #FFF; font-weight: bold; font-size: 28px; text-align: center;}"
  Print #1, "td:first-child { font-weight: bold; width: 25%;}"
  Print #1, "</style>"
  Print #1, "</head>"
  Print #1, "<body>"
  Print #1, "<table class=""table""><thead><tr class=""firstrow""><th colspan=""2"">RESULTS</th></tr></thead><tbody>"

 
     
     Dim i As Long
     Dim strFind As String
     For i = 0 To Me.ListBox1.ListCount - 1

        'EDIT HERE TO CHANGE IT TO YOUR LINKING
        Print #1, "<tr><td>"
        Print #1, Me.ListBox1.List(i)
        Print #1, "</td><td>"
        Print #1, "</td></tr>"
    Next i


  'Add ending HTML tags
  Print #1, "</body>"
  Print #1, "</html>"
  Close
  End Sub

Ссылка для скачивания: https://drive.google.com/file/d/19IxHZKVe7u1vWW03TKqiEOQscUkbcEsC/view?usp=sharing

1 Ответ

1 голос
/ 02 августа 2020

В вашем файле Excel вы написали эту строку в l oop

Print #1, strFind = Me.ListBox1.List(i)

результат [strFind = Me.ListBox1.List (i)] ложный, и это записывается в файл .

но в своем коде вы написали 

Print #1, Me.ListBox1.List(i)

последний код работает нормально, просто измените код в Excel ....

ОБНОВЛЕНИЕ: если вы нужны все столбцы, тогда 

Print #1, "<tr><td>"
Print #1, Me.ListBox1.List(i,1)
Print #1, "</td><td>"
Print #1, Me.ListBox1.List(i,2)
Print #1, "</td><td>"
Print #1, Me.ListBox1.List(i,3)
Print #1, "</td><td>"
Print #1, Me.ListBox1.List(i,....)
Print #1, "</td></tr>"
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Нет похожих вопросов

...