小编Omm*_*mit的帖子

我已经编写了一个程序来运行,并在完成后向Skype发送信息.我需要添加一个参考Skype4COM.dll,以便通过Skype发送消息.我们在网络上有十几台计算机和一个共享文件服务器(除其他外).所有其他计算机都需要能够运行此程序.我希望避免手动设置参考.我曾计划将引用放在共享位置,并在程序运行时以编程方式添加引用.

我似乎无法弄清楚如何使用VBA以编程方式将引用添加到Excel 2007.我知道如何手动完成:打开VBE --> Tools --> References --> browse --_> File Location and Name.但这对我的目的来说并不是很有用.我知道有一些方法可以在Access Vb.net中执行此操作,并且类似于此的代码不断弹出,但我不确定我是否理解它,或者它是否相关:

ThisWorkbook.VBProject.References.AddFromGuid _
    GUID:="{0002E157-0000-0000-C000-000000000046}", _
    Major:=5, Minor:=3

到目前为止,在所提出的解决方案中,为了以编程方式添加引用,我需要手动添加引用并更改信任中心 - 这不仅仅是添加引用.虽然我想如果我按照提出的解决方案进行操作,我将能够以编程方式添加未来的参考.这可能值得付出努力.

任何进一步的想法都会很棒.

vba函数中字符串中可以使用的最大字符数为255.我正在尝试运行此函数

Var1= 1
Var2= 2
.
.
.
Var256 =256

RunMacros= "'Tims_pet_Robot """ & Var1 & """ , """ & Var2 & """ , """   ... """ & Var256 """ '"
Runat=TimeValue("15:00:00")
Application.OnTime EarliestTime:=Runat, Procedure:=RunMacros & RunMacros2 ', schedule:=True

它在某个时间运行一个过程并将一堆变量传递给它.但是字符串太长了.

更新:遗憾的是,我确信它不是观察窗口.而且,它实际上并不是我正在处理的字符串的最大大小.它是vba函数中字符串的最大大小.

例如,此功能有效.

Sub test()
Dim RunAt As Date
Dim RunWhat As String

RunAt = Now + 0.00001
RunWhat = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" & _
"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" & _
"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" 'that makes 254 'a''s
Application.OnTime EarliestTime:=RunAt, Procedure:="'" & RunWhat & " 12'"

End Sub …

我想弄清楚如何在VBA中进行POST.理想情况下,我正在寻找一个可以玩的简单工作示例.这是我到目前为止所做的,但我不确定该如何处理它.大多数形式数据是什么样的.

Function WinHTTPPostRequest(URL, formdata, Boundary)
  Dim http 

  Set http = CreateObject("MSXML2.XMLHTTP")

  http.Open "POST", URL, False

  'Set Content-Type header'
  http.setRequestHeader "Content-Type", "multipart/form-data; boundary=" + Boundary

  'Send the form data To URL As POST binary request'
  http.send formdata

  'Get a result of the script which has received upload'
  WinHTTPPostRequest = http.responseText
End Function

编辑:

所以我安装了firebug,以便我可以获得"formdata"的对象名称(参见代码).我原以为formdata看起来像这样的"Form1 = A&Form2 = B".但它还没有成功.关于我应该如何做得更好的任何建议？

编辑:所以似乎可能有我需要在POST请求中发送的隐藏字段.

RabbitMQ 3.5现在支持消息优先级 ; 但是,我无法建立一个有效的例子.我把我的代码放在下面.它包括我期望的输出和实际的输出.我会对更多文档和/或工作示例感兴趣.

所以我的问题很简单:如何在Rabbit 3.5.0.0中使用消息优先级？

出版商:

using System;
using RabbitMQ.Client;
using System.Text;
using System.Collections.Generic;

class Publisher
{

    public static void Main()
    {
        var factory = new ConnectionFactory() { HostName = "localhost" };
        using (var connection = factory.CreateConnection())
        {
            using (var channel = connection.CreateModel())
            {
                IDictionary <String , Object> args = new Dictionary<String,Object>() ;
                args.Add(" x-max-priority ", 10);
                channel.QueueDeclare("task_queue1", true, false, true, args);

                for (int i = 1 ; i<=10; i++ )
                {
                    var message = "Message";
                    var body …

我可以从已知的ulr中提取数据,但是我可以使用excel导航网站.

例如,可以excel进行谷歌搜索并将结果放在电子表格上.或者导航框架内网站.

此代码从网站提取数据.

With ActiveSheet.QueryTables.Add(Connection:= _
    PUT_URL_HERE, _
    Destination:=Range("A1"))
    .Name = "I need serious help"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = False
    .RefreshPeriod = 0
    .WebSelectionType = xlAllTables
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With

我无法弄清楚如何为我的生活发送超过1个工作簿!我知道通过电子邮件发送1个工作簿的几种不同方法,我将它们放在这里.

Sub SendActiveWorkbook()
                ActiveWorkbook.SendMail _
    Recipients:=Array("MyEmail@123.com", "AnotherEmail@123.com"), _
    Subject:="Write subject here"                 
End Sub

和

Sub RouteActiveWorkbook()   
    With ActiveWorkbook
           .HasRoutingSlip = True
               With .RoutingSlip
                    .Delivery = xlAllAtOnce
                    .Recipients = Array("MyEmail@123.com", "AnotherEmail@123.com")
                    .Subject = "CSAM Lux BIEO and BCF breakdown"
                    .Message = "Attached are the breakdowns as of " & Date
               End With
            .Route
     End With
End Sub

我似乎只能在给定的电子邮件中发送1个工作簿.(将我的2个工作簿变成1个工作簿并不能解决我的问题).有人在电子邮件中发送超过1个工作簿是否有任何成功？