- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 高速合并表Merger的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38917)
-- 发布时间：2013/8/10 18:29:00
-- 高速合并表Merger的问题
设计了各系统需要经常从公司的ERP(U8)系统导入数据，目前还达不到直接从U8导入到狐表开发的系统中的水平，先由U8导出Excel表，再从Excel表倒入（采用合并的方式）到狐表系统， 现在的问题是U8导出的Excel 数据字段名包括如"()" 等狐表列不允许的符号, 手工去除Excel表中的非法符号太耗时间，有没有好的方法？
-- 发布时间：2013/8/10 18:39:00
--
这个应该不难，你传个例子，上几张U8导出的表。
-- 发布时间：2013/8/10 18:49:00
--
传上去了，“标准宽”和“标准长”“母件名称”合并不了。谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:pcc1.foxdb |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:p2891bom.xls |
-- 发布时间：2013/8/10 19:31:00
--
楼主，对于导出的xls文件，可以使用代码修改xls的表头为你喜欢的，参考下。
Dim file As String = ProjectPath & "test.xls"
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For i As Integer = 0 To sheet.Cols.Count - 1
Dim data As String = sheet(0, i).Text
\'Dim sidx As Integer = data.IndexOf("(")
\'Dim eidx As Integer = data.IndexOf(")")
\'If sidx > -1 Then
\'data = data.SubString(0, sidx) & data.SubString(eidx)
\'End If
sheet(0, i).Value = data.Replace(" ", "").Replace("(", "").Replace(")", "")
Next
book.Save(file)
-- 发布时间：2013/8/10 22:56:00
--
以下是引用有点甜在2013-8-10 19:31:00的发言：
楼主，对于导出的xls文件，可以使用代码修改xls的表头为你喜欢的，参考下。
楼主，对于导出的xls文件，可以使用代码修改xls的表头为你喜欢的，参考下。
Dim file As String = ProjectPath & "test.xls"
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For i As Integer = 0 To sheet.Cols.Count - 1
Dim data As String = sheet(0, i).Text
\'Dim sidx As Integer = data.IndexOf("(")
\'Dim eidx As Integer = data.IndexOf(")")
\'If sidx > -1 Then
\'data = data.SubString(0, sidx) & data.SubString(eidx)
\'End If
sheet(0, i).Value = data.Replace(" ", "").Replace("(", "").Replace(")", "")
Next
book.Save(file)
看了好久，也看不明白，不知如何添加代码，我重新做了各事例，加了各按钮，将数据合并进来，Excel 表头有“（”“）”的列没有合并进来，麻烦再事例中加入代码，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:合并数据.foxdb |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:p2891.xlsx |
[此贴子已经被作者于2013-8-10 22:57:17编辑过]
-- 发布时间：2013/8/10 23:15:00
--
如下例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:downloads.zip |
-- 发布时间：2013/8/10 23:44:00
--
还是看不明白，。点按钮，出现错误，明天接着测试，谢谢了。
-- 发布时间：2013/8/11 7:23:00
--
6楼朋友，我看到新加了audiobutton在button上，这起什么作用？如果在我的电脑上测试，我还需要修改什么？"file"的路径？还是“P2891"的路径？
-- 发布时间：2013/8/11 9:17:00
--
你是不是搞错了，我测试6楼的文件没有任何问题，也没有看到什么“audiobutton在button上”。
另注意第一行代码：
Dim file As String = ProjectPath & "P2891.xlsx"
也就是说这个待合并的excel文件和项目文件必须在同一个目录。
个人建议你先看帮助，至少要系统学习两遍，否则人家给你写的代码，你也消化不了，意义何在？
-- 发布时间：2013/8/11 9:58:00
--
奇怪，昨天下载的文件有audioboutten, 可能是我弄乱来，正在系统学习帮助，在实践中学才能加深理解。如果我把Excel文件和项目文件都放到D:\\My document D, 代码做如何的改动？本人比较愚钝，请耐心指点。