我有一个HTML文件,我写的是创建一个字符串。该文件名为MyHTMLfile
,位于U:\temp
。
如何轻松(并尽可能少的计算时间)将整个字符串从HTML复制到Range("IV" & RowCount)
?
答案 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