VerySource

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 709|回复: 1

为什么VBA中get语句返回字符串为空?

[复制链接]

4

主题

14

帖子

9.00

积分

新手上路

Rank: 1

积分
9.00
发表于 2020-3-10 23:00:02 | 显示全部楼层 |阅读模式
Sub AAA()
dim filecontent as sting

Open "d:\aaa\test.doc" For Binary As #1
    Get #1, , filecontent
    Close #1
   

End Sub
_____________________________________
返回的filecontent为空,但test.doc中有肉容
回复

使用道具 举报

0

主题

9

帖子

8.00

积分

新手上路

Rank: 1

积分
8.00
发表于 2020-6-10 12:00:02 | 显示全部楼层
用二进制方式打开的文件不能直接读入到字符串中,改一下
Dim fileContent As String
Dim b() As Byte
Open "d:\aaa\test.doc" For Binary As #1
    ReDim b(LOF(1) - 1)
    Get #1, , b
    Close #1
    fileContent = StrConv(b, vbUnicode)
    Debug.Print Len(fileContent)
不过不知道这样读出来的东西有什么用?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|CopyRight © 2008-2023|verysource.com ( 京ICP备17048824号-1 )

快速回复 返回顶部 返回列表