Foxtable(狐表)用户栏目专家坐堂 → 导入Excel的图片


  共有226人关注过本帖树形打印复制链接

主题:导入Excel的图片

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


加好友 发短信
等级:超级版主 帖子:113590 积分:578463 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/21 23:37:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113590 积分:578463 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/22 8:49:00 [显示全部帖子]

If Sheet(图片所在的行数, 图片所在的列数).SaveImage(图片保存的路径) Then '如果照片保存成功
[此贴子已经被作者于2025/4/22 8:49:13编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113590 积分:578463 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/22 10:08:00 [显示全部帖子]

1、没有指定保存的文件名称
2、图片在第一列,不是第2 列

    Dim fl As String = dr("路径") & "这里需要指定图片名称.jpg" '获取Excel表格图片到文件夹’
    If Sheet(n, 0).SaveImage(fl) Then '如果照片保存成功

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113590 积分:578463 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/22 13:25:00 [显示全部帖子]

Dim fl As String = sheet(n, 5).Text & sheet(n, 1).Text & ".jpg"

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113590 积分:578463 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/22 17:15:00 [显示全部帖子]

代码?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113590 积分:578463 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/22 20:56:00 [显示全部帖子]


        If dt.Find(bh) Is Nothing Then 
            Dim r As Row = Tables("表A").AddNew() 

        If Sheet(n, 0).SaveImage(fl) Then '如果照片保存成功foxtable的第一列
            r("文件图片") = fileSys.GetName(fl) '将文件录入到foxtable文件图片列’
        End If
        
            For m As Integer = 0 To nms.Length - 1
                If nms(m) > "" Then
                    r(nms(m)) = sheet(n, m).Value
                End If
            Next
        End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113590 积分:578463 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/22 22:24:00 [显示全部帖子]

肯定有一个多余的AddNew

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113590 积分:578463 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/24 8:45:00 [显示全部帖子]

    Dim nms() As String = { "文件图片","", "文件名","","", "活动配置", "数量", "材料", "路径"}

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113590 积分:578463 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/24 13:27:00 [显示全部帖子]

是的,改法看8楼

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:113590 积分:578463 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/4/24 17:15:00 [显示全部帖子]

导入的行都是新增的,哪来的其他列数据?【导入foxtable后,与foxtable的其他列组合】这里所谓的其他列从哪来?不是从execl导入的?

 回到顶部
总数 13 1 2 下一页