すみません。最初の質問で説明が足らなかったので
回答の通りで
Dim htmlDoc As HTMLDocument
Set htmlDoc = objIE.document
Set objAll = objIE.document.all
For iAllCnt = 0 To objAll.Length - 1
Debug.Print objAll(iAllCnt).outerHTML
Next
で出てくる内容と
実動作でIEの右ボタンクリック→ソースの表示で出力した内容が
違うので
直接VBAで実動作の通りに右ボタンクリック→ソースの表示の内容をテキストファイル化
をさせる方法の質問です。
補足
解決しました。 1.適当な位置でマウス右ボタンクリック SetCursorPos 1469, 408 '適当な座標 RightClick Sub RightClick() mouse_event 8 mouse_event 16 End Sub 2. ソースの表示(V)、名付けて保存(CTRL+SHIFT+S)、ファイル名の入力、保存(ENTER) ウインドゥの消去(ALT+F4) Application.SendKeys "V" Application.Wait Now() + TimeValue("00:00:05") Application.SendKeys "^+(S)" Application.SendKeys "{NUMLOCK}" Application.Wait Now() + TimeValue("00:00:05") Application.SendKeys Fname Application.Wait Now() + TimeValue("00:00:05") Application.SendKeys "~" Application.Wait Now() + TimeValue("00:00:05") Application.SendKeys "%{F4}" 以上で、できました