无人机网站建设,如何从客户网站开发客户,提供网站建设公司报价,公主坟网站建设这里使用了vba如下两个对象#xff1a;
Microsoft.XMLHTTP#xff1a;文件读写#xff0c;可读写二进制#xff0c;可指定编码,对于utf-8编码文本文件使用FSO的TextStream对象打开#xff0c;读取到的内容可能会出现乱码#xff0c;可以使用该对象打开;前期绑定添加引用…这里使用了vba如下两个对象
Microsoft.XMLHTTP文件读写可读写二进制可指定编码,对于utf-8编码文本文件使用FSO的TextStream对象打开读取到的内容可能会出现乱码可以使用该对象打开;前期绑定添加引用Microsoft ActiveX Data Objects 2.8
Microsoft.XMLHTTP发送请求并获得返回前期绑定添加Microsoft XML v6.0
下载案例如下下载火影忍者的图片到当前工作簿目录下 图片链接为https://i0.hdslb.com/bfs/article/cb84523da172b11eb6222eb12f3c1737953f0359.jpg
Sub photo_download()下载图片Dim X As Object
Dim ASTeam As Object
Dim content() As ByteSet X CreateObject(Microsoft.XMLHTTP)
Set ASTeam CreateObject(ADODB.Stream)With X.Open get, https://i0.hdslb.com/bfs/article/cb84523da172b11eb6222eb12f3c1737953f0359.jpg, False.sendDo Until .readystate 4DoEventsLoopcontent .responsebody 请求返回对象
End With
With ASTeam.Type 1 二进制类型.Mode 3 可读可写.Open 打开文件.write content 文件写入.savetofile ThisWorkbook.Path /火影忍者.jpg 文件另存.Close 关闭
End WithMsgBox download done
End Sub关于ADODB.Stream的几个属性说明
Type属性读写文本文件用adTypeText(2)读写二进制文件用adTypeBinary(1)。Mode属性使用adModeReadWrite(3)可读写。CharSet属性指定文件编码要根据文本文件的编码来设定。比如utf-8
如果使用后期绑定的方式该属性只能通过枚举常量的等价数字定义比如type的2表示读写文本文件
ADODB.Stream文本几个方法 LoadFromFile加载文本文件 ReadText读取ReadText(10)表示读取10个字符不带数字表示读取文本剩余所有内容ReadAll close同二进制文件表示关闭对象读写后关闭 WriteText写入记录行chr(10)表示换行 SaveToFile保存为文本文件
文件读写样例
Sub file_read_write()文本读写案例Dim ASteam As ADODB.Stream 前期引用绑定直接声明对象即可
Dim ASteam As Object
dim txt_path,s1,s2 as String Set ASteam CreateObject(ADODB.Stream) 创建对象
txt_path ThisWorkbook.Path /文本文件.txt 文本文件路径
With ASteam 文件写入.Type 2 adTypeText 指定类型.Mode 3 adModeReadWrite 可读写.Charset utf-8 指定编码格式.Open 打开.WriteText 写入一行数据.WriteText Chr(10) 写入换行符.WriteText 写入第二行数据.SaveToFile txt_path, adSaveCreateOverWrite 文件如果存在则覆盖 文件读取.LoadFromFile (txt_path)s1 .ReadText(3)s2 .ReadTextDebug.Print s1, s2.Close
End WithEnd Sub
