以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]foxtable中操作excel 图片问题,请高手看看  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157993)

--  作者:文盲学电脑
--  发布时间:2020/11/4 15:18:00
--  [求助]foxtable中操作excel 图片问题,请高手看看
在excel中的test.xls工作薄的sheet1工作表中已插入三张图片,分别命名为图1、图2、图3,设置其位置后,打开并查看结果,出现“在当前位置已发现名为resume.xlw的文件,您希望将文件替换掉吗?”,不明白为什么出现这情况,请高手们指点迷津。
以下是代码:

Dim App As New MSExcel.Application

app.visible=True
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("g:\\fox1\\test.xls")
Dim sht As Msexcel.worksheet=wb.sheets("sheet1")
Dim aa As object
For Each aa In sht.shapes
   aa.left=150
  output.show(aa.name)
  output.show(aa.left)
Next
app.save()
app.quit()



--  作者:有点蓝
--  发布时间:2020/11/4 15:21:00
--  
test.xls发上来看看:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
--  作者:文盲学电脑
--  发布时间:2020/11/4 15:23:00
--  
找到了 ,加入App.DisplayAlerts=False即可
[此贴子已经被作者于2020/11/4 15:23:20编辑过]