2,503
社区成员
发帖
与我相关
我的任务
分享VBA将对象（如sheet1)存入数据库中，怎么办？
sheet1表里的内容实在是太多太复杂太复杂了，想将单元格里的内容一个一个的存入数据库，加起来的字段数都快200个了，很不科学，于是我就想到了，能否将sheet1作为一个对象，将其对象实例的二进制内容存入数据库中，没有找到办法。
如果要将xxx.xls文件一并存入数据库中，这个到是件很简单的事情，但我不想这么做，原因有一大堆，总之不能这么做。
另外说明一下，我是直接在这个xls文件里的VBA作的开发，在sheet1上面有一些按钮来作“保存”“提交”“提取”等数据库操作，当然这个工作簿中还有许多其它的表如sheet2,sheet3...都需要在适当的操作条件下作数据库保存或更改或查询删除等。
如果要将xxx.xls文件一并存入数据库中，这个到是件很简单的事情，但我不想这么做，原因有一大堆，总之不能这么做。
另外说明一下，我是直接在这个xls文件里的VBA作的开发，在sheet1上面有一些按钮来作“保存”“提交”“提取”等数据库操作，当然这个工作簿中还有许多其它的表如sheet2,sheet3...都需要在适当的操作条件下作数据库保存或更改或查询删除等。
...全文
请发表友善的回复…
发表回复
赵4老师 2014-09-26
- 打赏
- 举报
为什么不直接将xls或xlsx文件保存到数据库中呢？
寒雪叔叔 2014-09-26
- 打赏
- 举报
请高手将这个VBA++伪代码翻译成有效代码，谢谢！
寒雪叔叔 2014-09-26
- 打赏
- 举报
我知道如果excel里面除了VBA,如果还有VCA的话，那非常容易实现这个功能，可,唉！！，下面是我想象的VBA++的代码：
Private Sub test()
Dim temp() as Byte
Dim nLen as Integer
nLen = ObjLen(thisworkbook.sheet1)
ReDim temp(0 to nLen-1)
copymemory prt(temp(0)), objprt(thisworkbook.sheet1), nLen
'在此，我就可以将temp数组里的字节内容用ADODB.Stream的Write方法写入数据库中了
End Sub
寒雪叔叔 2014-09-26
- 打赏
- 举报
好久没有坐沙发了！
一如既往哈 2014-09-26
- 打赏
- 举报
Excel本身就是数据库，还要存到数据库中，岂不是将简单的事情复杂化了？
