Foxtable(狐表)用户栏目专家坐堂 → 如何提取excel中的图片


  共有2942人关注过本帖平板打印复制链接

主题:如何提取excel中的图片

帅哥哟,离线,有人找我吗?
rjh4078
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3355 积分:24732 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2019/6/17 20:37:00 [只看该作者]

没有  运行的时候 第一行代码 就卡住 弹出输入密码的框

Dim file As String=args(0)
Dim r As Row=args(1)
Dim Ifo As new FileInfo(file)
Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook
try
    wb= App.WorkBooks.Open(file,password:="123")
Catch ex As Exception
    wb= App.WorkBooks.Open(file,password:="456")
End try
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)'指定工作表
ws.Activate

 回到顶部
总数 36 1 2 3 4 下一页