小编Jea*_*ett的帖子

我想托管一个Web服务器,并希望使用VBA来完成它.这可能吗？我只是这样做是为了证明某人是错的,并且真的想制作这个节目.

那么有可能制作一个非常简单的Web服务器(只是监听get请求)吗？非常感谢帮助.

编辑

我正在尝试这样的事情

Sub startServer()
    Set wunsock = CreateObject("OSWINSCK.Winsock")
    wunsock.LocalPort = 80
    wunsock.Listen
End Sub

Sub wunsock_ConnectionRequest(ByVal requestID As Long)
    If sockMain.State <> sckClosed Then
        sockMain.Close
    End If
    sockMain.Accept requestID
End Sub

Private Sub wunsock_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    sockMain.GetData strData, vbString
    txtStatus.Text = txtStatus.Text & _
        strData & vbCrLf
End Sub

但它不起作用？

我正在编写一个宏,它通过一个文档并试图通过Style解析它.现在,指定样式的任何内容都会复制到即时窗口中.有没有办法自动化宏进一步将文本从即时窗口移动到txt文件？否则,使用宏的任何人都无法看到文本,除非他们打开VBA,对吗？

我很惊讶这是多么艰难,但我想这是一个快速修复,所以我会在这里问(搜索谷歌和文档,但没有帮助).我有一些代码使用键将项添加到集合中.当我遇到集合中已存在的密钥时,我只想通过在当前值中添加一个数字来设置它.

这是代码:

If CollectionItemExists(aKey, aColl) Then 'If key already has a value
    'add value to existing item
    aColl(aKey).Item = aColl(aKey) + someValue
Else
    'add a new item to the collection (aka a new key/value pair)
    mwTable_ISO_DA.Add someValue, aKey
End If

我第一次将键/值对添加到集合中时,我添加了一个整数作为值.当我再次遇到密钥时,我尝试向该值添加另一个整数,但这不起作用.我不认为问题在于任何类型的对象不匹配或类似的东西.我目前得到的错误信息是

运行时错误424:对象必需

我有一个名为"X"的命名范围,它是1000行,我想动态地将其减少到100.

我试过Range("X").Resize(100,1),.Resize(-900,0)但是当我通过从范围下拉菜单中选择范围来检查excel时,似乎都没有改变命名范围的大小.我究竟做错了什么？

假设我有一些位图数据(黑色),其中某些线条以矢量格式(绿色)手绘.这些线大致遵循位图数据的形状.在某些地方,线条相交.

所以我要做的是,知道绿线交叉点的位置,我怎么能找到A,B,C和D的位置？

请参阅下面的一些示例:

我不知道如何处理这个问题,因为线条的随机定位有时它们甚至不在黑色的形状内.但是,我想必须有一些方法.有什么建议吗？

我的BigBlock类需要一些重载的构造函数.所有这些都需要以相同的方式初始化相同的几个字段.

这样做的正确方法是什么？是否要创建一个函数,例如Initialize在下面的示例中,执行这些操作,并让所有构造函数调用该函数？

public class BigBlock {
    private Thing parentThing;
    Units lengthUnit;
    LabCoordinateSystem labCoordinateSystem;

    private void Initialize(){
        lengthUnit = parentThing.getPreferredUnits(0);
        labCoordinateSystem = parentThing.getCoordinateSystem();
    }

    BigBlock(Thing myThing){
        parentThing= myThing;
        Initialize();
    }

    BigBlock(Thing myThing, double x, double y, double z){
        parentThing= myThing;
        Initialize();
        // more code involving x, y, z
    }

    // a few more constructors

}

当我执行VBScript时,它创建的命令窗口会在用户有机会读取输出之前快速关闭.如何在不修改Windows注册表的情况下让窗口保持打开状态？

这是代码:

Set objShell = WScript.CreateObject("WScript.shell") 
objShell.Run "SyncToyCmd.exe -R", 1, True

如何使用VBA确定包含32位程序的文件夹的完整路径？它在32位Windows系统上称为"程序文件",但在64位系统上称为"程序文件(x86)".

这是我希望做的伪代码:

Open text File

Find "XXXXX" and Replace with "YYYY"

Save text File As

Close text file

这就是我到目前为止所拥有的

Private Sub CommandButton1_Click()

Dim sBuf As String
Dim sTemp As String
Dim iFileNum As Integer
Dim sFileName As String

' Edit as needed
sFileName = "C:\filelocation"

iFileNum = FreeFile
Open sFileName For Input As iFileNum

Do Until EOF(iFileNum)
Line Input #iFileNum, sBuf
sTemp = sTemp & sBuf & vbCrLf
Loop
Close iFileNum

sTemp = Replace(sTemp, "DIM A", "1.75")
sTemp = Replace(sTemp, "DIM …

我是VBA的新手.我手头有工作来提高VBA代码的性能.为了提高代码的性能,我必须读取整行并将其与另一行进行比较.在VBA中有什么办法吗？

伪代码:

sheet1_row1=read row1 from sheet1
sheet2_row1=read row1 from sheet2
if sheet1_row1 = sheet2_row1 then
      print "Row contains same value"
else
      print "Row contains diff value"
end if