ここから本文です

エクセルで入力した値をVBAを使ってweb上に入力させたい。 Excel2016でブラウザは...

miy********さん

2018/9/2118:50:29

エクセルで入力した値をVBAを使ってweb上に入力させたい。
Excel2016でブラウザはIE11を使用しています。

あらかじめ入力させたいwebを開いた状態で、個人番号を参照し点数を
エクセルから転記させる事は可能でしょうか。

webのソースは以下の通りです。

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta http-equiv="Content-Style-Type" content="text/css" />
<meta name="robots" content="noindex,nofollow" />
<link rel="stylesheet" type="text/css" href="/.style/default2.css" media="screen" />
<link rel="stylesheet" type="text/css" href="/.style/default-print.css" media="print" />
<title>入力画面</title>
</head>
<body>

<p>
<div class="center bcenter">
<form method="post" action="/classentry/result2/input.php">
<input type="hidden" name="action" value="regist" />
<input type="hidden" name="testk" value="120" />
<input type="hidden" name="class" value="11,2," />
<input type="hidden" name="kamoku" value="162" />

<p>
<table border="1" cellpadding="2" cellspacing="2">
<tr>
<th class="right">No.</th>
<th class="center">個人番号</th>
<th>氏名</th>
<th class="center">点数</th>
</tr>
<tr>
<td class="right">
<input type="hidden" name="gid[]" value=8567 />
5
</td>
<td class="center">00235</td>
<td>田中 哲也</td>
<td class="center"><input type="text" size="6" class="right" value="" name="ten[]" /></td>
</tr>
<tr>
<td class="right">
<input type="hidden" name="gid[]" value=8359 />
6
</td>
<td class="center">00369</td>
<td>山中 健志</td>
<td class="center"><input type="text" size="6" class="right" value="" name="ten[]" /></td>
</tr>
<tr>
<td class="right">
<input type="hidden" name="gid[]" value=8397 />
11
</td>
<td class="center">00154</td>
<td>和田 隼人</td>
<td class="center"><input type="text" size="6" class="right" value="" name="ten[]" /></td>
</tr>
</table>
</p>

</form>
</div>
</p>
</body>
</html>

center&amp;quot,hidden&amp;quot,input type,right&amp;quot,td&amp;gt,Dim n As String,innerText

閲覧数:
95
回答数:
1
お礼:
500枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

hot********さん

2018/9/2121:14:11

こんなでしょうか。

Sub sample()
Dim ie As Object
Dim table As Object
Dim r As Integer
Dim n As String
Dim rng As Range
'
Set ie = CreateObject("InternetExplorer.Application") 'ie
ie.Visible = True '表示
ie.Navigate "http://localhost/test.html" '目的のurl
Do While ie.Busy Or ie.ReadyState <> 4: DoEvents: Loop '表示完了待ち
Set table = ie.document.getElementsByTagName("table")(0) 'テーブル取得
For r = 1 To table.Rows.Length - 1 '2行目から最終行まで(Rows(?)は0から始まる)
n = table.Rows(r).Cells(1).innerText '個人番号
Set rng = Range("C:C").Find(n, LookIn:=xlValues, lookAt:=xlWhole) '個人番号をExcelのC列から探す
If Not rng Is Nothing Then 'あったら
table.Rows(r).Cells(3).innerText = Range("E" & rng.Row).Value '表の4列目にExcelのE列の値(得点)を表示
End If
Next
'ie.Quit 'ie終了
End Sub

質問した人からのコメント

2018/9/23 22:01:11

ありがとうございます。無事思い通りのことが出来ました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる