Question

您好我必须按以下方式将值导入excel文件：

必须根据每行中的最后8个字符（即00004100）导入值。假设00004是column5,100是column6。

我需要为每个唯一的column5和column6对导入值到单独的excel表中。即所有最后8位数字为00002100的行将进入一张excel表格，依此类推。

1234 john smith  america 00002100
1234 john smith  america 00002100
1234 john smith  america 00002200
1234 john smith  america 00002200
1234 john smith  america 00003100
1234 john smith  america 00003200
1234 john smith  america 00003200
1234 john smith  america 00004100
1234 john smith  america 00002100

如何根据vb中的给定条件生成Excel工作表？

提前Thanx！

Answer 1

我不确定为什么这是一个VB问题？你用Interop吗？由于我不知道这一点，我使用伪代码 - 但我认为你会得到这个想法。它更像是vb.net - 如果你使用vba，一般的想法都会有效。

通常我会做以下事情：迭代每一行并构思一个新字符串。像这样：

For row = 0 to rows.count-1
dim str as new stringbuilder()


 for col = 0 to rows(row).count-1
    str.append(rows(row).item(col)
 next

dim lasteight=str.tostring
lasteight=lasteight.substring(lasteight.length-8)

'here do the following: have a list of your sheetnames. If this list contains lasteight goto this page and append the row. if no sheet exist, create one and append as well.
next

从平面文件excel导入值

1 个答案: