Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2942 / 76807

←次へ　｜　前へ→


	【79505】コンフィグからパラメータシート作成について

愁 - 17/11/20(月) 20:49 -


	引用なし

	パスワード

config.txt

edit 1234
set uuid 1a1a23d4-e567-8f90-1a11-ab1acd23e456f
set srcintf "VLAN8001"
set srcintf "VLAN9001"
set srcaddr "192.168.0.2" "192.168.0.3" "192.168.1.2"
set dstaddr "172.16.0.1" "172.16.0.2"
set action accept
set status disable
set schedule "always"
set service "DNS" "HTTP"
set utm-status enable
set logtraffic all
set ips-sensor "AAA"
set profile-protocol-options "BBB"
set ssl-ssh-profile "CCC"
next
edit 5678
set uuid 2b2b45e5-f123-4aa12-2b22-bc2bde45f123a
set srcintf "any"
set srcintf "VLAN6001"
set srcaddr "192.168.1.4" "192.168.1.5"
set dstaddr "172.31.1.7" "172.31.1.8"
set action accept
set schedule "always"
set service "MAIL"
set utm-status enable
set logtraffic all
next

sheet2
　 A　　B　　　　　　　　　　　　　　　　　　 C　　　　　D　　　　　E　　　　　　　　　　　　　　　　　　　　 F　　　　　　　　　　　　　　 O
1　ID　 uuid　　　　　　　　　　　　　　　　　srcintf　　srcintf　　srcaddr　　　　　　　　　　　　　　　　　 dstaddr　　　　　　　　　･･･ ssl-ssh-profile
2　1234 1a1a23d4-e567-8f90-1a11-ab1acd23e456f "VLAN8001" "VLAN9001" "192.168.0.2" "192.168.0.3" "192.168.1.2" "172.16.0.1" "172.16.0.2" ･･･ "CCC"
3　5678 2b2b45e5-f123-4a12-2b22-bc2bde45f123a "any"　　　"VLAN6001" "192.168.1.4" "192.168.1.5"　　　　　　　 "172.31.1.7" "172.31.1.8" ･･･　　　

VBAがわからないため、得意な方にご教授頂ければありがたいです。

config.txtのedit～nextまでを1固まりとして、大体500行くらいのconfigがあり、これをテキストでsheet1に
手動で貼り付けます。
このconfig.txtの中身を、sheet2にパラメータシートとして作成したいと思っています。

そのため、editを項目名でIDとしてA1に、uuidをB1に、srcintfをC1に、という形で、sheet2のようにedit1234の順に並べていき、
O1にssl-ssh-profileまで項目名として1行目に設定したあと、
中の値を2列目以降に書き出し、nextまで転記したら、次の行に移り転記を繰り返し、最後のnextまで行ったら終了する
というVBAマクロを用意したいと考えています。
edit5678のように1列目で定義したフィールドが無い場合にはスキップで構いません。

※sheet1はconfig、sheet2はparameterという名前にリネームしたいです。

お手数おかけしますが、宜しくお願い致します。

3 hits

▼

【79505】コンフィグからパラメータシート作成について 愁 17/11/20(月) 20:49