添加转换函数试试：如：CDbl（hl）
我前阵子也遇到此现象，一直不得其解，反复折腾原来如此。
Dim hl As Double '这样也不行
如下：
doc.PageSetting.TopMargin = CInt(ydr("上边距")) '设置上边距
doc.PageSetting.BottomMargin = CInt(ydr("下边距")) '设置下边距
doc.PageSetting.LeftMargin = CInt(ydr("左边距"))'设置左边距
doc.PageSetting.RightMargin = CInt(ydr("右边距")) '设置右边距
cr = Color.FromARGB(CInt(ydr("网格线颜色")))
ht = CInt(ydr("行高"))
[此贴子已经被作者于2022/10/22 7:51:59编辑过]
加好友 
发短信
Post By：2022/10/22 7:45:00 [显示全部帖子]
