|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
我只能做一些基础工作,机械性的翻译一下,至于这中间的11句语言,一环扣一环,也不太明白,这KK是从那里钻出来也不知道。
'Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作
Sub figsy()
Set x = CreateObject("adodb.stream") '创建对像,
x.Type = 2
x.Open '打开对像,
x.LoadFromFile "c:\p.txt" '文件源 '将FileName指定的文件装入对像中,参数FileName为指定的用户名。
x.writetext kk '将指定的文本数据装入对像中。
x.Position = 0 '指定或返回对像内数据的当前指针
x.Type = 1 '指定或返回的数据类型,可选参数为:adTypeBinary = 1 adTypeText = 2
x.Position = 2
z = x.read '读取指定长度的二进制内容。不指定则读取全部。
x.Position = 0
x.write z '将指定的数据装入对像中。
x.savetofile "c:\pp.jpg", 2 '结果文件 '将对像的内容写到FileName指定的文件中
End Sub |
|