VBの記述方法はVBAと同じ？

2023/09/04 18:24

このQ&Aのポイント

VB（Visual Basic）の記述方法はVBA（Visual Basic for Applications）とほぼ同じです。
VBAでネットのあるサイトをログインして遷移後のHTMLを取得する方法とほぼ同様の手順でVBでも実現できます。
VBでの記述に悩んでいる場合は、慣れているVBAの記述方法をそのまま応用してみると良いでしょう。

ベストアンサー

VBの記述方法はVBAと同じなのですか？

2013/06/02 00:02

これからVisual Studio 2012を導入してVBA（Excel）でやっていたことをVSでやりたいのですが基本的にVSのVisual Basicの記述方法はVBAと同じなのでしょうか？例えばネットのあるサイトをログインして遷移後のhtmlを取得するには、VBAだと以下のように書きます。 Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://xxxxxx/login.aspx" objIE.document.All.txt_userid.Value = xxx 'ユーザー名 objIE.document.All.txt_pass.Value = xxx 'パスワード objIE.document.All.btn_login.Click '送信結果のページ読み込みが終わるまでループ While (objIE.Busy = True Or objIE.ReadyState <> 4) 　DoEvents Wend '表示したページの<BODY>部のHTMLを取得 Dim htmlBody As String htmlBody = objIE.Document.Body.InnerHtml C#で記述しようか、慣れているVBAと似ているVBで書こうか悩んでいます。どうぞよろしくお願い致します。

suffre
お礼率76% (2013/2633)

Visual Basic
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

nora1962
ベストアンサー率60% (431/717)

2013/06/02 03:22 回答No.1

.NET Frameworkになってからは、WebBrowserコントロールを使うほうが一般的かもしれません。 http://social.msdn.microsoft.com/forums/ja-JP/csharpgeneralja/thread/f8e740ab-ff9b-46a4-b274-7e1805315ce4/ もし、COMの利用をしたいならこちらを参考に。 http://bbs.wankuma.com/index.cgi?mode=al2&namber=21670&KLOG=41

質問者

お礼 2013/06/02 23:04

ありがとうございます。この際、C#で書くことにしました。ちょうど今日一日C#で書いてて、ある程度VBAで書いていたことと同じようなことができました。

関連するQ&A

VBAで教えてgooに自動ログインしたい
Sub 教えてgoo() Dim objIE As Object Const READYSTATE_COMPLETE As Long = 4 Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://login.mail.goo.ne.jp/id/authn/LoginStart?Site=oshiete.goo.ne.jp&Success=http%3A%2F%2Foshiete.goo.ne.jp%2F" Do While objIE.Busy = True DoEvents Loop Do Until objIE.ReadyState = READYSTATE_COMPLETE Loop objIE.document.all.all("uname").Value = "gooID" objIE.document.all.all("pass").Value = "gooPW" Do While objIE.Busy = True DoEvents Loop Do Until objIE.ReadyState = READYSTATE_COMPLETE Loop objIE.document.all("ログイン").Click End Sub --------------------------------------------------------- を実行してみても、 objIE.document.all.all("uname").Value = "gooID" objIE.document.all.all("pass").Value = "gooPW" objIE.document.all("ログイン").Click の部分がエラーになってしまいます。教えてgooは、VBAでログインできないように規制されてるのでしょうか？
- ベストアンサー
- オフィス系ソフト
エクセルのVBAで最終行までループする方法
エクセルのVBAで最終行までループする方法を教えてください。下記がコードになります。 Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate Range("A1").Value While objIE.ReadyState <> 4 Or objIE.Busy = True DoEvents Wend Range("B1").value = objIE.Document.all("zoom1").href
- ベストアンサー
- オフィス系ソフト
ｖｂａでｙａｈｏｏメールの受信メールの一覧を読み取
ｖｂａでｙａｈｏｏメールの受信メールの一覧を読み取る方法はありますか？ Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "http://login.yahoo.co.jp/config/login?logout=1" 'ログアウトする Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Navigate "https://login.yahoo.co.jp/config/login?.src=&.pd=&.done=http%3A//www.yahoo.co.jp/" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Document.all.UserName.Value = "" objIE.Document.all.passwd.Value = "" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Document.Forms(0).submit Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Navigate "http://jp.mc1003.mail.yahoo.co.jp/mc/welcome?.rand=6i0loli2li7s6&noFlush&YY=940152127#_pg=showFolder&fid=Inbox&order=down&tt=84&pSize=25&.jsrand=6381767" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop Debug.Print objIE.Document.Body.innerHTML Set objIE = Nothing End Sub これでログインまではできるのですが、その後のソースを読み取っても受信メールの一覧は読み取れません。ログイン後に、ｖｂａではなく手動でＷＥＢクエリをやってソースに書き出してみましたがやはり受信メールだけは読み取れません。ＷＥＢクエリならフォルダの一覧は読み取れました。ＶＢＡで読み取るのは不可能なのでしょうか？
- ベストアンサー
- Visual Basic
OCNにＶＢＡでログインしたいのですが
OCNにＶＢＡでログインしたいのですがうまくできません。ＵＲＬは https://login.ocn.ne.jp/auth/s2001/pc/AuthLoginDisplay.action もしくは http://www.ocn.ne.jp/ です。 objIE.Document.all("comid").Value = " tenor.ocn.ne.jp" objIE.Document.all("password").Value = "" ここまではうまくいくのですが、ログインしようと、 objIE.Document.forms(0).submit 'ダメ objIE.Document.all("action:AuthLoginLogin").Checked = True 'ダメでもダメでした。ソースは <p class="align-c roll"><input type="image" alt="ログイン" src="common/images/btn_login.gif" id="AuthLoginDisplay_AuthLoginLogin" name="action:AuthLoginLogin" value="Submit" class="button"/> </p></form> なのですがうまくできません。わかる方ご教授よろしくお願いします。
- ベストアンサー
- Visual Basic
ｖｂａ　ｉｅ操作　電気家計簿ログインできない
いつもお世話になっております。何度も質問して申し訳ございません。またまた教えてください。電気家計簿（https://www.kakeibo.tepco.co.jp/dk/aut/login/）のログインボタンをＶＢＡで押したいのですがうまくできません。コードは下記の通りです。 ***************************************************************** Sub test() Dim objIE As InternetExplorer Dim myObj As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://www.kakeibo.tepco.co.jp/dk/aut/login/" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Document.all("id").Value = "test" objIE.Document.all("password").Value = "tset" 'objIE.Document.Forms(0).submit 'これだと更新されちゃうっぽい 'objIE.Document.Forms(0).Item(2).Click 'Item(0)とItem(1)はエラーにならないけど何も起こらない。Item(2)にするとエラー 'objIE.Document.all.submit.Click 'エラー 'エラーにならないけど何も起こらない 'For i = 0 To objIE.Document.Links.Length - 1 ' If objIE.Document.Links(i).innerHTML Like "*alt=ログイン*" Then ' objIE.Document.Links(i).Click ' Exit For ' End If 'Next i 'エラーにならないけど何も起こらない 'For Each myObj In objIE.Document.forms(0).all ' If TypeName(myObj) = "HTMLInputElement" Then ' If myObj.alt = "ログイン" Then ' myObj.Click ' Exit For ' End If ' End If 'Next Set objIE = Nothing End Sub ***************************************************************** 自分なりにいくつか試してみたのですが、うまくいきませんでした。ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
エクセルでのVBA
エクセルでVBAを使ってIEで指定のURLを開いて、VBAで指定したWEBフォームにエクセルで指定したセルの値を入力したいのですが、下記のコードを入れるとエラーが出てしまいます。　 A1：1-1 or 1-2 or 1-3 B1：月曜日 C1：火曜日 D1：水曜日上のA1～D1まで入力した上でコマンドボタンをクリックすると、自動的に行うようにしたいです。 Private Sub CommandButton1_Click() Dim objie As Object Set objie = CreateObject("InternetExplorer.application") objie.Visible = True objie.Navigate "http://●●●●/form.html" Dim kubun As String kubun = range("A1") Select Case kubun Case "1-1" call ma1_1 Case "1-2" call ma1_2 Case "1-3" call ma1_3 End select Set objie = Nothing End sub Sub ma1_1() objie.Document.all.form1_1.Value = Range("B1") End Sub Sub ma1_2() objie.Document.all.form1_1.Value = Range("B1") objie.Document.all.form1_2.Value = Range("C1") End Sub Sub ma1_3() objie.Document.all.form1_1.Value = Range("B1") objie.Document.all.form1_2.Value = Range("C1") objie.Document.all.form1_3.Value = Range("D1") End Sub これで実行を押すと、objie 変数が定義されていません。と出てしまいます。このobjieを有効にするにはどうしたよいのでしょうか？わかる方いましたらご教授願います。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
VBAからIEの操作
グーグルをIEで開いてVBA（語句）を検索して見終わったら IEを閉じる作業をしたいのですが、検索窓にVBA（語句）を入力するところでエラーとなります。初心者ですが、なんとか勉強したいのでよろしくお願いいたします。 Sub ie_test_Navigate() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.google.co.jp/" IE.document.all.q.Value = "VBA" IE.document.all.btnG.Click If MsgBox("IEを閉じますか？", vbYesNo, "終了確認") = vbYes Then objIE.Quit End If Set objIE = Nothing End Sub
- 締切済み
- Visual Basic
ＶＢＡでＩＥ操作
こんばんは。エクセル２００３です。証券会社にＶＢＡでログインを試みてるのですができません。ソースの一部を転記します。 <label for="account_id"><span>ユーザー名</span></label> <input type="text" tabindex="1" id="account_id" name="account_id" /> <label for="password"><span>パスワード</span></label> <input type="password" tabindex="2" id="password" name="password" /> <div id="rememberbox"> <label for="remember" id="rememberlabel">ユーザー名を記録する</label> <input type="checkbox" tabindex="3" name="remember" id="remember" /> </div> なので、下記ＶＢＡコードを作りました。 Sub IGマーケット証券() Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "http://www.igmarkets.co.jp/login/" Do While objIE.Busy = True DoEvents Loop Const READYSTATE_COMPLETE As Long = 4 Do Until objIE.ReadyState = READYSTATE_COMPLETE Loop objIE.Document.all("account_id").Value = "test" objIE.Document.all("password").Value = "test" objIE.Document.Forms(0).submit Set objIE = Nothing End Sub ですが、 objIE.Document.all("account_id").Value = "test" のところでエラーになってしまいます。 objIE.Document.all("login").Value = "test" に変えても同じです。何がいけないのでしょうか？アドバイスよろしくお願いします。
- ベストアンサー
- Visual Basic
VBA　IE操作　ログイン後ＵＲＬを取得したい
yahooにログインするＶＢＡコードはわかるのですが、ログインが失敗なのか正常にログインできたのかをＶＢＡで知りたいです。結果を知るには、ログインボタン押下後のＵＲＬを取得できればいいと思うのですがその方法がわかりません。ログイン自体は、 --------------------------------------------------------- Sub ie_test() Dim objIE As Object 'ＩＥオブジェクト参照用 'インターネットエクスプローラーのオブジェクトを作る Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True '見えるようにする(お約束) '文字列で指定したＵＲＬに飛ぶ objIE.Navigate "https://login.yahoo.co.jp/config/login?.src=www&.done=http://www.yahoo.co.jp" '表示終了まで待つ Do While objIE.Busy = True '何もしないループ（笑） DoEvents Loop '項目名を指定して、データをセットする objIE.document.all.UserName.Value = "UserName" objIE.document.all.passwd.Value = "****" objIE.document.Forms(0).submit End Sub --------------------------------------------------------- で、できました。 objIE.document.Forms(0).submitの後には、ログインが出来ていたら http://www.yahoo.co.jp/ のページへ行き、ログイン失敗なら https://login.yahoo.co.jp/config/login? のＵＲＬが表示され、図のように「Yahoo! JAPAN IDまたはパスワードが正しくありません。」と表示されます。 objIE.document.Forms(0).submitの後に MsgBox objIE.URL を入れると「オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)」になり、 MsgBox objIE.Navigate を入れると「引数の数が一致していません。または不正なプロパティを指定しています。(Error 450)」になります。ログイン後のソースをエクセルに書き出す方法も考えましたが、書き出しに時間がかかるのでやめました。ご教授よろしくお願いします。
- ベストアンサー
- Visual Basic
ＶＢＡでSkyDriveにログインしたい
ＶＢＡでSkyDriveにログインしたいのですが、 --------------------------------------------------------- Sub SkyDriveにログインする() Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1340539242&rver=6.1.6206.0&wp=MBI_SSL_SHARED&wreply=https:%2F%2Fskydrive.live.com%2F%3Flc%3D1041&lc=1041&id=250206&mkt=ja-JP&cbcxt=sky" '表示終了まで共通_表示待ち Do While objIE.Busy = True DoEvents Loop objIE.Document.all.PageID.Value = "aaa" objIE.Document.all.passwd.Value = "aaa" '表示終了まで共通_表示待ち Do While objIE.Busy = True DoEvents Loop objIE.Document.Forms(0).submit Set objIE = Nothing End Sub --------------------------------------------------------- を実行すると、 objIE.Document.all.PageID.Value = "aaa" の部分で、【オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)】というエラーになります。たぶん、「PageID」が間違ってると思うのですが、ソースを見てもよくわかりません。ご教授いただけないでしょうか？ご回答よろしくお願いします。
- ベストアンサー
- Visual Basic