摘要：1.参照项目 Microsoft Internet Controls Microsoft HTML Object 2.sample Sub GetIEItem()Dim objIE As InternetExplorerSet objIE = CreateObject("Internetexplor
阅读全文
posted @ 2020-02-26 22:44
随笔分类 - VBA
摘要：Public Sub FileToFileUpdate(ByVal fileName As String, ByVal strFrm As String, ByVal strTo As String)Dim newFileName As StringnewFileName = fileName &
阅读全文
posted @ 2020-02-26 22:40
摘要：1.读入UTF-8文件 Dim value As String Dim vLines As Variant Call ReadCsvUTF_8(vFile.Path, value) vLines = Split(value, vbCrLf) For i = 0 To UBound(vLines) .
阅读全文
posted @ 2020-02-26 22:38
摘要：Public Sub WriteUTF_8BomNon(ByVal fileName As String, ByVal strLine As String)Dim stream: Set stream = CreateObject("ADODB.Stream")stream.Type = 2 ' a
阅读全文
posted @ 2020-02-23 23:17