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