Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生成文件在几台电脑都可以，就是有一台不行，提示这些出来


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

主题：生成文件在几台电脑都可以，就是有一台不行，提示这些出来
帅哥，在线噢！
zhuxinhui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1961 积分：6056 威望：0 精华：0 注册：2017/11/8 17:37:00 		生成文件在几台电脑都可以，就是有一台不行，提示这些出来  发帖心情 Post By：2023/6/17 15:18:00 [显示全部帖子]

生成文件在几台电脑都可以，就是有一台不行，提示这些出来
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20230617151414.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20230617151431.png
图片点击可在新窗口打开查看

不知是不是缺少了基础文件安装
 回到顶部
帅哥，在线噢！
zhuxinhui
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1961 积分：6056 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2023/6/17 15:25:00 [显示全部帖子]

在我的电脑是可以，另外一台也是可以的，应该不是代码问题，应该是基础配置问题多些

 
 回到顶部
帅哥，在线噢！
zhuxinhui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1961 积分：6056 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2023/6/17 19:33:00 [显示全部帖子]

缷载了WPS就可以了，可能是WPS拦截了

 回到顶部
帅哥，在线噢！
zhuxinhui
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1961 积分：6056 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2023/6/19 21:52:00 [显示全部帖子]

不使用WPS，跟同事的共享文件使用不了
两者同时使用怎样解决？？？
 回到顶部
帅哥，在线噢！
zhuxinhui
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1961 积分：6056 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2023/6/20 10:08:00 [显示全部帖子]

微软2003、2007、2010都有安装，只要安装了WPS，就被拦住了

 回到顶部
帅哥，在线噢！
zhuxinhui
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1961 积分：6056 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2023/6/21 14:17:00 [显示全部帖子]

老师真的是WPS的问题，帮我看看，怎样可以解决
 回到顶部
帅哥，在线噢！
zhuxinhui
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1961 积分：6056 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2023/6/21 17:07:00 [显示全部帖子]

 Dim cm = e.form.Controls("ComboBox1").text
        Dim App As New MSExcel.Application
        Dim u As Table = Tables("销售开piao明细")
        For j As Integer = 0 To u.Rows.count - 1 Step 150
            Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(ProjectPath & "Attachments\全电fa piao.xls")
            Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("明细模板")
            Dim r As Integer
            For i As Integer = 0 To 149
                If i + j < u.Rows.count Then
                    Dim u1 As Row = u.Rows(i + j)              
                    
                    Dim d1 = u1("开piao型号").Length
                    If d1 > 40 Then
                        Ws.Range("C" & i + 4).Value = u1("开piao型号").SubString(0, 39)''''''规格型号
                    Else
                        Ws.Range("C" & i + 4).Value = u1("开piao型号").SubString(0, d1)''''''规格型号
                    End If
                   
                    Ws.Range("D" & i + 4).Value = u1("单位")''''''单位
   
                End If
            Next
            Wb.SaveAs("D:\" & cm & j & ".xls")
            Wb.close
        Next
        App.quit 
 ")

 回到顶部
帅哥，在线噢！
zhuxinhui
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1961 积分：6056 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2023/6/21 17:38:00 [显示全部帖子]

好的，试试先
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询