Ik wil voor mijn werk gegevens importen van een interne webpagina.
Voor de pagina moet je echter inloggen alvorens je gegevens op kunt halen.
Ik laat d.m.v. msgbox de user en het wachtwoord invoeren door de gebruiker.
Dit wordt samen met een aantal andere html regels op een sheet gezet en geexporteerd naar een html file op bijvoorbeeld de C-schijf van de gebruiker.
De inhoud van de file ziet er alsvolgt uit:
<form action="http://ONZE SERVER/cacti/index.php" name="auth_cacti" method="post" TARGET="_self">
<input type="hidden" name="action" value="login">
<input type="hidden" name="realm" value="local">
<input type="hidden" name="login_username" value="GEBRUIKER">
<input type="hidden" name="login_password" value="WACHTWOORD">
</form>
<script language="javaScript" type="text/javascript">
document.forms['auth_cacti'].submit();
</script>
Nu wil ik daarna d.m.v. querytables.add gegevens importeren:
With Sheet9.QueryTables.Add(Connection:= _
"URL;\\h:\export.html" _
, Destination:=Sheet9.Range("$A$1"))
.Name = "index"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Ik krijg echter de volgende melding:
Run-time error '1004':
The address of this site is nog valid. Check the address and try again
Heeft iemand een idee wat ik verkeerd doe?
Voor de pagina moet je echter inloggen alvorens je gegevens op kunt halen.
Ik laat d.m.v. msgbox de user en het wachtwoord invoeren door de gebruiker.
Dit wordt samen met een aantal andere html regels op een sheet gezet en geexporteerd naar een html file op bijvoorbeeld de C-schijf van de gebruiker.
De inhoud van de file ziet er alsvolgt uit:
<form action="http://ONZE SERVER/cacti/index.php" name="auth_cacti" method="post" TARGET="_self">
<input type="hidden" name="action" value="login">
<input type="hidden" name="realm" value="local">
<input type="hidden" name="login_username" value="GEBRUIKER">
<input type="hidden" name="login_password" value="WACHTWOORD">
</form>
<script language="javaScript" type="text/javascript">
document.forms['auth_cacti'].submit();
</script>
Nu wil ik daarna d.m.v. querytables.add gegevens importeren:
With Sheet9.QueryTables.Add(Connection:= _
"URL;\\h:\export.html" _
, Destination:=Sheet9.Range("$A$1"))
.Name = "index"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Ik krijg echter de volgende melding:
Run-time error '1004':
The address of this site is nog valid. Check the address and try again
Heeft iemand een idee wat ik verkeerd doe?