小编Pau*_*sen的帖子

我有一个Bootstrap下拉列表

<button class="btn btn-primary" id="selectButton" data-toggle="dropdown">
  Arrangement
  <span class="caret"></span>
</button>
<ul class="dropdown-menu scrollable-menu" id="ulGenres">
  @foreach (var item in Model.Tours)
  {
  <li>
    <a href="#" data-pdsa-dropdown-val="@item.Id">@item.StringValue</a>
  </li>
  }
</ul>

我想设置所选项目

function DataLoad() {
  var id = $("#TourId").val();
  $("#Details").load('/umbraco/Surface/Tour/GetTourDetails?tourId=' + id);
}
$(document).ready(function () {
  $("#ulGenres li a").on("click", function () {
    // Get text from anchor tag
    var id = $(this).data('pdsa-dropdown-val');
    $("#TourId").val(id);
    // Add text and caret to the Select button
    var text = $(this).text();
    $("#selectButton").html(text + '&nbsp;<span class="caret"></span>');
    // Put text into …

我已经在 Windows Server 2012 上安装了 Visual Studio，现在我正在尝试调试现有项目。这给了我“尝试运行项目时出错 - 拒绝访问”我现在在不调试的情况下运行项目时遇到问题。

我已重新启动 Studio，但没有文件是只读的

我尝试从这个休息服务中获取数据。我的浏览器工作正常。现在我尝试在VBA中执行此操作以在Excel中显示数据

https://energidataservice.dk/api/action/datastore_search?resource_id=ec797392-7ba5-4c3a-b021-8ae302ac295a&limit=5

我相信这与 https 和 TSL 有关。当我用 C# 编写代码并添加这一行时，它就可以工作了。我只是不知道如何在 VBA 中做到这一点

'ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 - object required

Dim reader As New WinHttpRequest
Dim json As New JSONParser
Dim ws As Worksheet: Set ws = ActiveSheet

Dim url As String
url = ws.[EDS_URL]

' reader.Option(9) = 2720 - invalid procedure call
reader.Open "GET", url, False

reader.Send ' automation error

如果没有 TSL 部分，我会在最后一行收到自动化错误