Internetseite aus vba ansprechen
20.01.2015 18:37:18
kai
Hallo,
mit dem nachfogenden Code wird eine Internetseite geöffnet,
es wird ein String eingefügt und ein Button angeklickt.
Daraufhin öffnet sich eine neue Internetseite, welche die alte ersetzt.
Hier brauche ich Hilfe:
Auf dieser Ergebnisseite gibt es die Möglichkeit:
ct file
- rechts zu klicken
- Ziel speichern unter...
als txt zu speichern.
1. Gibt es eine Möglichkeit, ohne das ct file als txt zu speichern es direkt als String einzulesen?
2. Wieviel Zeichen darf so ein String in Excel enthalten?
Vielen Dank und Grüße Kai
Option Explicit
Sub test1()
Dim ieApp As Object
Dim ieDoc As Object
Dim ieForm As Object
Dim ieObj As Object
Dim URL As String
Dim str As String
str = "attcgcttta;attagcttta;"
URL = "http://mfold.rna.albany.edu/?q=DINAMelt/Quickfold"
Set ieApp = CreateObject("InternetExplorer.Application")
ieApp.Visible = False
ieApp.navigate URL
While ieApp.Busy Or ieApp.readyState <> 4: DoEvents: Wend
Set ieDoc = ieApp.Document
Set ieForm = ieDoc.forms(1)
ieForm.elements(1).textcontent = str
ieForm.elements(13).Click
While ieApp.Busy Or ieApp.readyState <> 4: DoEvents: Wend
Dim strResponse As String
strResponse = (ieApp.Document.body.innerHTML)
'ieApp.Quit
End Sub