共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：两个EXCEK文件差别原因
1楼
L88919138 发表于：2024/7/13 8:34:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:狐表清单导出.xlsx |
现在电子税务局开具fa piao时，可以通过EXCEL模板进行清单导入。这两个EXCEL文件内容都一样，而用狐表制作系统导出的EXCEL文件（狐表清单导出），在清单导入时一直报错；而用 fa piao开具项目信息导入模板 就可以正常清单导入，经
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:fa piao开具项目信息导入模板.xlsx |
比对后发现 fa piao开具项目信息导入模板（文件大小为62KB）,而狐表制作系统导出的 狐表清单导出 （文件大小为12.5KB），不知道是不是这个原因造成清单无法正常导入，现在想咨询下狐表制作系统导出同样内容的EXCEL文件为何会偏小？该如何解决？
2楼
有点蓝 发表于：2024/7/13 8:52:00除了标题及以上部分字体不一样之外，看不出有什么不同。
试试把【fa piao开具项目信息导入模板（文件大小为62KB）】改造为Foxtable的execl模板使用看看有没有问题
3楼
L88919138 发表于：2024/7/13 9:34:00就是用 开具项目信息导入模板（文件大小为62KB） 改造为Foxtable的execl模板，但导出的文件 狐表清单导出 （文件大小为12.5KB）， 在清单导入时一直报错
4楼
有点蓝 发表于：2024/7/13 9:44:00报什么错？execl模板发上来看看
5楼
L88919138 发表于：2024/7/13 10:42:00MainTable = Tables("开piao数据")
ShowAppWindow("清单导出.XLSx", 5)
Dim dr As String = Forms("fa piao清单导出").Controls("TextBox1").Value
If dr Is Nothing Then
MESSAGEBOX.SHOW("您未录入fa piao号码.")
Return Nothing
End If
Tables("开piao数据").Filter = "[fa piao号码] = '" & dr & "'" '筛选出记录
Dim cnt As Integer = DataTables("开piao数据").Select("[fa piao号码] = '" & dr & "' ").count
If cnt < 1 Then
MESSAGEBOX.SHOW("您录入fa piao号码不存在.")
Return Nothing
End If
Dim Book As New XLS.Book(ProjectPath & "\附件\全电fa piao清单导出.xlsx") '打开模板
Dim fl As String = ProjectPath & "Reports\清单导出.xlsx"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3, 11).Value = " < fa piao号码 = '" & dr & "' AND 不含税金额 > 0 > " '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Book1 As New XLS.Book(fl) '在生成具体对账单后设置有效
Dim Sheet1 As XLS.Sheet = Book1.Sheets(0)
Sheet1.Rows.Frozen = 6 '冻结前六行
Book1.Save(fl)
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:全电fa piao清单导出.xlsx |
Dim Proc As New Process
Proc.File = fl
Proc.Start()
6楼
有点蓝 发表于：2024/7/13 11:22:00不要使用execl模板，换种方式导入试试：http://www.foxtable.com/webhelp/topics/1148.htm
把【fa piao开具项目信息导入模板（文件大小为62KB）】从第4行开始的内容清除掉，然后使用上面帮助的用法从第4行开始导入数据
7楼
L88919138 发表于：2024/7/17 10:05:00按照大师指点，终于解决问题，谢谢
共7 条记录, 每页显示 10 条, 页签:
[1]