0

嗨,我必须按以下方式将值导入 excel 文件:

必须根据每行的最后 8 个字符(即 00004100)导入值。假设 00004 是第 5 列,而 100 是第 6 列。

我需要为每对独特的 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表!?

提前谢谢!

4

1 回答 1

0

我不确定为什么这是一个 VB 问题?你使用互操作吗?由于我不知道这一点,我正在使用伪代码 - 但我想你会明白的。它更像 vb.net - 如果您使用 vba,一般的 Idea 将起作用。

通常我会执行以下操作:遍历每一行并连接一个新字符串。像这样:

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
于 2012-10-25T13:49:12.703 回答