今天心情好，爆个照给大家看看

虽然这两天适逢月底，每月的工作总结，下月计划都在向我逼近，今天领导已经发话了，月底先出这两个表；对、就是本月底（明天就是最后一天了）。

但是哪又如何呢？反正每个月都要提交的，半个小时就搞掂了；虽然这两天我确实有些忙，但是越忙越精神，越忙越亢奋；

所以今晚心情好，给大家爆个照，希望让你有惊喜

爆照之前咱先把今天的功课给做了，上代码

1.将图片以二进制形式存入txt文件

2.将存入txt的二进制文件恢复成图片

好，先给大家看看各个路径下的文件是不是都有了

首先我写代码的表格的位置：

存源图片的位置——表格文件——图片的文件夹下有一个'111.jpg'的图片,这就是我们要处理的图片

备份好的txt文件——表格路径下的'备份图片.txt'

恢复的图片：'222.JPG'，

---

大家是不是很好奇，这是怎么做到的呢？两张图片真的是一个图吗？这个问题，最后再给大家看

先看今天我们要了解的知识点

1. 打开二进制文件语法：Open 全路径 For Binary As 文件编号

2. 读取二进制文件：Get 文件编号，，存储的变量

   表示每次读取一个字节，当然文件不可能只存储一个字节的对吧，所以这里要用循环，那么怎么循环呢，应该循环多少次呢？这里就引申出一个新的函数LOF（文件编号），即文件的总字节数，一般在用字节做循环的时候，循环变量都最好定义成Long长整型，就拿我这张图片来说，一个文件已经有120多万个字节数了，所以integer是不够用的

   
   

   

3. 写二进制文件：Put 文件编号，，（写的字节编码即0-255之间的Byte类型的整型数据），注意这里一定要用Byte类型，其他类型的话，文件将不可恢复。会写出很多个问号或者你不认识的东西出来。

4. 注意恢复的文件和源文件的文件格式应该是一致的，但是中间转化二进制代码的文件可以随便自己怎么保存。（间接达到文件加密的效果了）

5. 最后给大家普及一个基础知识：thisworkbook.path，及获取写代码的工作簿所在的文件路径。之前没提过这个知识点好像，今天补充上

   
   

   
   

   
   

   ---

   
   

   
   

       现在有没有觉得VBA越来越好玩了，好了，以下是爆照时间；是美女还是野兽，你都猜对了吗？；快自己动手玩一下。