Question

VBA怎样将值写入为文件？

例:知，GBK编码0xD6AA，识，GBK编码0xCAB6。
假设sheet1里A3=D6AA，J42=CAB6，那么怎样将sheet1现有所有单元格里的值(全部为十六进制数值)写入为文件，用记事本打开能看到“知识”两个字共4字节？

Answer 1

下面的程序供你参考：

如果数据来源于单元格，可以这样写：

追问

啊，要写的数据不止两个的，比如A1:BZ999的所有数据都要写的话，这个范围应该怎样设置？
另外，如果这个test.txt跟表格放在同一文件夹下的话路径要怎样设置？

追答

多个区域，如果每个单元格是一个四位的16进制字符串，那么可以使用循环，例如：
for r in range("A1:BZ999").cells

print #1, chr(val("&h" & r.value));
next r
Open这一会修改文件名的路径，可以使用当前工作簿的路径，例如：

Open ThisWorkBook.Path & "\test.txt" for output as #1

追问

啊，for r in range这行在in这里提示缺少:=

追答

for each

追问

不行啊，提示调用的参数或内容错误，像图上那样，是不是我哪里填错了？

追答

请粘贴你的代码图、报错的图，谢谢。

追问

已经贴了，不过知道只给贴在问题描述那里T_T

追答

print语句报错，错误的图呢，纯猜测的话，建议看看r.value是什么，是否合法的16进制数据，导致val函数报错

追问

十六进制值应该是没问题的，用winhex可以写入。

追答

图片真的看不清楚，麻烦你告诉我报错内容、报错时点调试后鼠标放在r.value上显示的内容，谢谢。

追问

啊这，知道压图这么狠的。。报错提示:运行时错误 '5':无效的过程调用或参数，点调试后悬停无提示。
宏内容:sheets("结果").select换行open thisworkbook.path & "列传.spk" for output as #1换行for each r in range("A1:BX746").cells换行print #1，chr(val("&h" & r.value));换行next r换行close #1换行end sub

上边是\列传.spk，打漏个\了

追答

基本上可以肯定无效的参数就是val失败了，只要A1:BS746范围的单元格有任何一个不是合法的十六进制数就会导致这样的错误。此时的r不是合适的16进制，可以按照下图的方法查看r的值，来断定。另外，这样的方法截屏会非常清晰，比什么相机的效果都好，如果看不清楚可以在新窗口打开，完全一比一的像素，和调试者自己的屏幕完全一样。

追问

啊！找到原因了，原来这个是要求4位限定但某些单元格是2位或大于4位的所以循环失败了，T_T

Answer 2

VBA 读取/写入文本文件
1.
Open 语句 打开方式有 Input:以读取方式打开。 Output:以写入方式打开...
2.
Close 语句 语法:Close [filenumberlist] fil...
3.
EOF 函数 语法:EOF(filenumber) 功能:返回一个 Integer,...
4.
LOC 函数 语法:LOC(filenumber) 功能:返回一个 Long,在已打开的

Answer 3

这样的程序有什么实际意义呢 看不出来

追问

那啥，不会编程的人在处理某些带指针的资料文件的时候可以不需要使用第三方工具( ﹡ˆoˆ﹡ )

追答

1. 什么叫带指针

2. 十六进制文件编辑器不香吗

追问

香啊，但是有人比我还笨啊，都给了他编辑器了告诉他只要新建文件写入另存为就行了他愣是不会(╥_╥)

追答

我很担心excel vba的可靠性