teacup. [ 掲示板 ] [ 掲示板作成 ] [ 有料掲示板 ] [ ブログ ]

 投稿者
  題名
  内容 入力補助画像・ファイル<IMG> youtubeの<IFRAME>タグが利用可能です。(詳細)
    
 URL
[ ケータイで使う ] [ BBSティッカー ] [ 書込み通知 ] [ 検索 ]


かり

 投稿者:かり  投稿日:2009年12月 2日(水)01時00分23秒
返信・引用 編集済
  Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 2 Then
        Call ie_test(Target.Value)
    End If
End Sub

Private Sub ie_test(dai As String)

    Dim objShell  As Object
    Dim objIE     As Object
    Dim n         As Integer

    Set objShell = CreateObject("Shell.Application")
    Set objIE = Nothing

    For n = objShell.Windows.Count To 1 Step -1
        If Right(UCase(objShell.Windows(n - 1).FullName), 12) = "IEXPLORE.EXE" Then
            Set objIE = objShell.Windows(n - 1)
            Exit For
        End If
    Next
    Set objShell = Nothing

    If objIE Is Nothing Then
        Set objIE = CreateObject("InternetExplorer.Application")
    End If
    objIE.Visible = True

    '表示位置(左上の座標)とサイズ(高さ・幅)を調整する
    objIE.FullScreen = False '※Trueのモードだとびっくりするよ
    objIE.Top = 0      '左上 上位置
    objIE.Left = 500     '左上 左位置
    objIE.Width = 800    '横幅
    objIE.Height = 800   '高さ

'XXXバー、外観・外枠の調整。
    objIE.Toolbar = True     'タブの切り替えで必要なので、ツールバーを表示にする
    objIE.MenuBar = False    'メニューは非表示にする
    objIE.AddressBar = True  'URLなど アドレスバーは確認のため、表示する
    objIE.StatusBar = True   '一番下のステータスバーを表示。



    objIE.Navigate "http://www.google.co.jp/"

    While objIE.ReadyState <> 4 Or objIE.busy = True
        DoEvents
    Wend

    objIE.Document.Forms("f").Item("q").Value = dai
    objIE.Document.Forms("f").Submit

    While objIE.ReadyState <> 4 Or objIE.busy = True
        DoEvents
    Wend


    Dim yLINE As Integer

    yLINE = ActiveCell.Row
    Cells(yLINE, "C") = "'" & objIE.Document.Links(24).InnerTEXT
    Cells(yLINE, "D").Select
    Cells(yLINE, "D").Copy

    While objIE.ReadyState <> 4 Or objIE.busy = True
        DoEvents
    Wend


    objIE.Document.Links(22).Click

    AppActivate "Microsoft Excel"




    While objIE.ReadyState <> 4 Or objIE.busy = True
        DoEvents
    Wend


    AppActivate "windows Internet Explorer"

    SendKeys "^f", True
    SendKeys "^v", True

    SendKeys "{ENTER}", True


End Sub
 
 

teacup.掲示板 START!

 投稿者:teacup.運営  投稿日:2009年12月 2日(水)00時59分18秒
返信・引用
  掲示板が完成しました!
掲示板のデザイン変更や記事の削除などは管理者メニュー(管理画面)から行えます。
また、ケータイでは50種類以上のデザインテンプレートが選べますので、ぜひケータイからのご利用もお試しください。(※ケータイ版も同じURLでご利用になれます!)

teacup.の掲示板はお一人様いくつでもご利用になれますので、用途に合わせて掲示板を作成して下さい。※この記事を削除してご利用下さい。
【記事の削除方法】
・掲示板下部の管理者メニュー(管理画面)からログイン
・左メニューより「投稿の管理」をクリック
・削除したい記事にチェックを入れ「削除」をクリック

http://www.teacup.com/

 

レンタル掲示板
/1