ブラウザを開かずに検索するには？ (ID:118421)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ガッさん、ありがとうございました！！ なんとか解決できました。 本当にありがとうございます。m(__)m Command1_Clickの部分にIE.Visible = Trueを入れることで 解決することができました。 Option Explicit Dim IE As Object Private Sub Command1_Click() IE.Visible = True SyncNavigate "http://www.google.ne.jp" IE.Document.All.Item("q").Value = Text1.Text Call IE.Document.Forms.Item(0).submit End Sub Private Sub Form_Load() Set IE = CreateObject("InternetExplorer.Application") 'IE.Visible = True Text1.Text = "検索する文字列" End Sub Sub SyncNavigate(ByVal URL As String) IE.Navigate URL Call LoopWhileBusy End Sub Sub LoopWhileBusy() Do DoEvents Loop While IE.Busy End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) IE.Quit End Sub えとさんも書き込みの際のご指摘ありがとうございます。