0

こんにちは、次の方法で値を Excel ファイルにインポートする必要があります。

各行の最後の 8 文字、つまり 00004100 に基づいて値をインポートする必要があります。00004 が列 5 で、100 が列 6 であるとします。

column5 と column6 の一意のペアごとに値を個別の Excel シートにインポートする必要があります。つまり、最後の 8 桁が 00002100 のすべての行が 1 つの 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を使用すると、一般的なアイデアが機能します。

通常、私は次のことを行います。各行を反復処理し、新しい文字列を連結します。このような：

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 に答える