Question

我有一个HTML文件，我写的是创建一个字符串。该文件名为MyHTMLfile，位于U:\temp。

如何轻松（并尽可能少的计算时间）将整个字符串从HTML复制到Range("IV" & RowCount)？

Answer 1

如果您希望将整个文件放在一个单元格中......

With CreateObject("Scripting.FileSystemObject")
    Range("IV" & RowCount) = .OpenTextFile("u:\temp\myhtmlfile.htm").ReadAll()
End With

这假设您的myHtmlFile的扩展名为.htm。根据需要进行更改。

Answer 2

这是怎么回事：

Sub test21()
'Thanks to http://stackoverflow.com/questions/11528694/read-parse-text-file-line-by-line-in-vba
Dim FileNum As Integer, i As Integer
Dim DataLine As String

FileNum = FreeFile()
Open "U:\Temp\myHTMLFile.html" For Input As #FileNum
i = 1 ' This is where you want to set your `RowCount`.
While Not EOF(FileNum)
    Line Input #FileNum, DataLine ' read in data 1 line at a time
    Range("IV" & i).Value = DataLine
    i = i + 1
Wend
End Sub

使用VBA将整个HTML文件文本复制到Excel中的单元格

2 个答案: