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

时间:2015-08-03 18:12:43

标签: excel vba excel-vba

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

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

2 个答案:

答案 0 :(得分:1)

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

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

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

答案 1 :(得分:0)

这是怎么回事:

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