|
こんにちは。かみちゃん です。
>イントラからエクセルにデータを取り込む方法があったら教えてください。
>
>ログイン画面から最終的には数ページ先に進んだ登録結果の出たページ全体を
>エクセルに取込たいと思います。
以下のような方法でできませんでしょうか?
Sub Sample()
Dim MyShell As Object, MyWindow As Object, IE As Object
Set MyShell = CreateObject("Shell.Application")
For Each MyWindow In MyShell.Windows
If TypeName(MyWindow.document) = "HTMLDocument" Then
If MyWindow.document.Title = "XXXXX" Then 'ここが重要「XXXXX」を変更る
Set IE = MyWindow: Exit For
End If
End If
Next
Set MyShell = Nothing
If IE Is Nothing Then
MsgBox "JRAホ−ムページが開いていません"
Exit Sub
Else
With IE
.ExecWB 17, 2, 0, 0
.ExecWB 12, 2, 0, 0
End With
End If
Set IE = Nothing
With Application
.ScreenUpdating = False
End With
With Worksheets("Sheet1")
.Cells.Clear
.Paste .Range("A1")
.Hyperlinks.Delete
.DrawingObjects.Delete
With .Cells
.WrapText = False
.Orientation = 0 'セル結合解除
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End With
With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub
|
|