类_Excel 交互 Access数据库mdb浏览器+高级表格版

斗战胜猴 · 发表于 2026-3-9 11:05:20

本帖最后由斗战胜猴于 2026-3-9 17:34 编辑

类_Excel 交互 Access数据库mdb浏览器+高级表格版

支持拖放Excel转数据库mdb
修复 Access数据库mdb 部分bug，枚举表名新增关闭连接，
自修类_Excel 优化部分功能。比较全的

[e=1].版本 2

子程序名	返回值类型	公开	备注
插入图片_按路径	逻辑型
参数名	类型	参考	可空	数组	备注
图片路径	文本型				图片文件的完整路径
单元格位置	文本型				"A1" 到单元格(), , 默认为 A1
Placement	整数型				xlMoveAndSize (1): 大小和位置随单元格而变。 ' xlMove (2): 大小固定，位置随单元格而变。 ' xlFreeFloating (3): 大小和位置固定。3不好用

变量名	类型	静态	数组	备注
objWorksheet	对象
objShapes	对象			' 新增：用于存储Shapes集合对象
objRange	对象
leftPos	双精度小数型
topPos	双精度小数型
width	双精度小数型
height	双精度小数型
objPicture	对象
cell_obj	对象
行数	整数型
列数	整数型
新单元格位置	文本型

objWorksheet ＝程序对象Excel.读对象型属性 (“ActiveSheet”, )

如果 (图片路径 ≠ “” 且文件是否存在 (图片路径))

objRange ＝ objWorksheet.读对象型属性 (“Range”, 单元格位置)

行数＝ objRange.读对象型属性 (“Rows”, ).读数值属性 (“Count”, )

列数＝ objRange.读对象型属性 (“Columns”, ).读数值属性 (“Count”, )

如果真 (行数＝ 1 且列数＝ 1)

cell_obj ＝ objRange.读对象型属性 (“Item”, 1, 1)

新单元格位置＝ cell_obj.读对象型属性 (“MergeArea”, ).读文本属性 (“Address”, 假, 假, 1, 假)

如果真 (新单元格位置 ≠ cell_obj.读文本属性 (“Address”, 假, 假, 1, 假))

objRange.清除 ()

objRange ＝ objWorksheet.读对象型属性 (“Range”, 新单元格位置)

leftPos ＝ objRange.读数值属性 (“Left”, )

topPos ＝ objRange.读数值属性 (“Top”, )

objShapes ＝ objWorksheet.读对象型属性 (“Shapes”, )

objPicture ＝ objShapes.对象型方法 (“AddPicture”, 图片路径, -1, -2, leftPos, topPos, -1, -1)

如果 (Placement ＞ 1)

width ＝ objPicture.读数值属性 (“Width”, )

height ＝ objPicture.读数值属性 (“Height”, )

width ＝ objRange.读数值属性 (“Width”, )

height ＝ objRange.读数值属性 (“Height”, )

Placement ＝ 1

objPicture.写属性 (“Width”, width)

objPicture.写属性 (“Height”, height)

objPicture.写属性 (“Placement”, Placement)

返回 (真)

返回 (假)

.版本 2<br />
[e=1].版本 2<br />
<br />
.子程序 插入图片_按路径, 逻辑型, 公开<br />
.参数 图片路径, 文本型, , 图片文件的完整路径<br />
.参数 单元格位置, 文本型, , "A1"  到单元格(), , 默认为 A1<br />
.参数 Placement, 整数型, 可空, xlMoveAndSize (1): 大小和位置随单元格而变。 ' xlMove (2): 大小固定，位置随单元格而变。 ' xlFreeFloating (3): 大小和位置固定。3不好用<br />
.局部变量 objWorksheet, 对象<br />
.局部变量 objShapes, 对象, , ,  ' 新增：用于存储Shapes集合对象<br />
.局部变量 objRange, 对象<br />
.局部变量 leftPos, 双精度小数型<br />
.局部变量 topPos, 双精度小数型<br />
.局部变量 width, 双精度小数型<br />
.局部变量 height, 双精度小数型<br />
.局部变量 objPicture, 对象<br />
.局部变量 cell_obj, 对象<br />
.局部变量 行数, 整数型<br />
.局部变量 列数, 整数型<br />
.局部变量 新单元格位置, 文本型<br />
<br />
objWorksheet ＝ 程序对象Excel.读对象型属性 (“ActiveSheet”, )<br />
.如果 (图片路径 ≠ “” 且 文件是否存在 (图片路径))<br />
    objRange ＝ objWorksheet.读对象型属性 (“Range”, 单元格位置)<br />
    行数 ＝ objRange.读对象型属性 (“Rows”, ).读数值属性 (“Count”, )<br />
    列数 ＝ objRange.读对象型属性 (“Columns”, ).读数值属性 (“Count”, )<br />
    .如果真 (行数 ＝ 1 且 列数 ＝ 1)<br />
        cell_obj ＝ objRange.读对象型属性 (“Item”, 1, 1)<br />
        新单元格位置 ＝ cell_obj.读对象型属性 (“MergeArea”, ).读文本属性 (“Address”, 假, 假, 1, 假)<br />
        .如果真 (新单元格位置 ≠ cell_obj.读文本属性 (“Address”, 假, 假, 1, 假))<br />
            objRange.清除 ()<br />
            objRange ＝ objWorksheet.读对象型属性 (“Range”, 新单元格位置)<br />
<br />
        .如果真结束<br />
<br />
    .如果真结束<br />
<br />
    leftPos ＝ objRange.读数值属性 (“Left”, )<br />
    topPos ＝ objRange.读数值属性 (“Top”, )<br />
    objShapes ＝ objWorksheet.读对象型属性 (“Shapes”, )<br />
    objPicture ＝ objShapes.对象型方法 (“AddPicture”, 图片路径, -1, -2, leftPos, topPos, -1, -1)<br />
<br />
    .如果 (Placement ＞ 1)<br />
<br />
        width ＝ objPicture.读数值属性 (“Width”, )<br />
        height ＝ objPicture.读数值属性 (“Height”, )<br />
    .否则<br />
        width ＝ objRange.读数值属性 (“Width”, )<br />
        height ＝ objRange.读数值属性 (“Height”, )<br />
        Placement ＝ 1<br />
    .如果结束<br />
    objPicture.写属性 (“Width”, width)<br />
    objPicture.写属性 (“Height”, height)<br />
    objPicture.写属性 (“Placement”, Placement)<br />
    返回 (真)<br />
.否则<br />
    返回 (假)