|
VB及VBA安全性。。。。!
VB 部分代码
vbaVarSetObjAddref
'N * ref: __vbaObjVar
'N * ref: __vbaLateMemCall
'N * ref: "C:/test.xls"
'N * ref: __vbaFileOpen
'N * ref: __vbaPutOwner3
'N * ref: __vbaFileClose
'N * ref: "Excel.Application"
'N * ref: CreateObject(
'N * ref: __vbaCastObjVar
'N * ref: __vbaObjSet
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaHresultCheckObj
'N * ref: __vbaVarMove
'N * ref: "C:\test.xls"
EXCEL 文件部分代码
Sub 从EXCEL的A列提取数据生成图片()
Dim arr() As Byte, a&, x&
a = Range("a65536").End(xlUp).Row
ReDim arr(1 To a)
For x = 1 To a
arr(x) = Range("a" & x)
Next
Open ThisWorkbook.Path & "\txR.jpg" For Binary As #1
Put #1, , arr
Close #1
End Sub
Sub 图片文件的数据保存到EXCEL的A列中()
Dim arr() As Byte, H&
Columns("A:A").ClearContents
Open ThisWorkbook.Path & "\txR.jpg" For Binary As #1
H = LOF(1)
ReDim arr(1 To H)
Get #1, , arr
Close #1
[a1].Resize(H, 1) = Application.Transpose(arr)
End Sub
使用了10几年的开发模式 MSSQL数据库+VB+VBA 快乐并痛苦。。。。
|
|