小编Sam*_*Sam的帖子

我经常需要在NV的状态下搜索无人认领的属性,并将结果放在Excel电子表格中.我正在尝试自动化该过程,但我仅限于使用Excel 2010和VBA.下面是我尝试使用xmlhttp提交表单的网站的URL.

网址:https://nevadatreasurer.gov/UPSearch/

我创建了一个类来自动在其他网站上提交表单,但无论我在postdata中输入什么,表单都从未提交.以下是我的提交和提交表单的方法.

打电话到课堂:

cXML.openWebsite "Post", "https://nevadatreasurer.gov/UPSearch/Index.aspx", _
                 "ctl04$txtOwner=" & strSearchName

分类方法:

Public Sub openWebsite(strOpenMethod As String, strURL As String, _
Optional strPostData As String)

pXmlHttp.Open strOpenMethod, strURL


If strPostData <> "" Then
    strPostData = convertSpaceToPlus(strPostData)
    pXmlHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    pXmlHttp.send (strPostData)
Else
    pXmlHttp.send
End If

'Create DOM html documnet
pHtmlObj.body.innerHTML = pXmlHttp.responseText

End Sub

每次responseText是没有更新的主网站,好像我没有提交postdata.我是IE自动化的新手,但是有人可以提供一个不工作的原因和一个有效的代码示例吗？

谢谢!

更新:2013年7月26日上午8:30太平洋标准时间

我没有对我的方法进行任何更改,我可以通过其他网站提交表单.OR无人认领的财产形式.它工作得很完美!

网址:https://oregonup.us/upweb/up/UP_search.asp

但是,当我尝试CA无人认领的房产网站时,我遇到了同样的问题.无论我做什么,responseText始终是原始搜索页面,没有更新.

网址:https://scoweb.sco.ca.gov/UCP/Default.aspx

它仍然不适用于原始帖子中的NV状态.我正在使用适当的帖子数据,为每个网站编码的URL,并没有看到任何区别.任何帮助,将不胜感激.

上下文:Excel 2013 VBA.使用外接程序时,术语"ActiveWorkBook"应该引用正在编辑的文档,而"ThisWorkBook"引用后台中的外接程序.考虑一下代码

在加载项的ThisWorkBook模块中

Private WithEvents App As Application

Private Sub Workbook_Open()
Set App = Application
End Sub

Private Sub App_WorkBookOpen(ByVal Wb As Workbook)

MsgBox Wb.Name & " " & Wb.Worksheets(1).Cells(1, 1)
If Wb.Worksheets(1).Cells(1, 1) = "AAA" Then
    MsgBox "Cell OK", 
    MsgBox ActiveWork.Name
End If
End Sub

加载项已启用,Excel已启动.到现在为止还挺好.现在,如果我在Sheet1的单元格(1,1)中打开包含"AAA"的文件"Book1",我会收到:

"Book1.xlsm AAA"(在消息框中,如预期的那样),然后"Cell OK",如预期的那样.
但是然后错误"Object Required"引用了MsgBox行"ActiveWorkBook.Name".所以当时Book1还不是ActiveWorkBook.什么时候变成这样？或者我该怎么做呢？(在MsgBox没有帮助之前,像"Wb.Activate"之类的东西)

这个问题出现在一个更加复杂的现实世界中,而且似乎与某些安全问题紧密相关.我试图通过一个简单的例子来理解这种行为

以下代码工作正常,但现在如果我想让它给同事我需要使用相对路径来获取代码中的工作簿:

Sub HELLO()

Dim x As Workbook


Sheets("Sheet1").Cells.Clear

'## Open both workbooks first:
Set x = Workbooks.Open("C:\Users\500722\Desktop\dashboard\Task.xls")


'Now, transfer values from x to y:
Sheet1.Cells(1, 1) = x.Sheets("Page 1").Range("A1")
With x.Sheets("Page 1").UsedRange
    'Now, paste to y worksheet:
    Sheet1.Range("A1").Resize( _
        .Rows.Count, .Columns.Count) = .Value

End With

x.Close

End Sub

如果我使用Give,Set x = Workbooks.Open("\Task.xls")我会收到一条错误消息,指出无法找到路径.

目前我们正在尝试使用XCODE中的断点来记录URL.它打印出日志消息和内存地址.我们想记录实际的URL而不是内存地址.

问题:使用断点在xcode中记录URL的正确方法是什么？

希望复制一个简单的(假设它不是我的设置...)

我在PHP脚本中有以下内容:

echo('$userID:&emsp;' . var_dump($userID) . '<br>');
echo('$hashValidate:&emsp;' . var_dump($hashValidate) . '<br>');

输出显示为:

bool(false)$ userID:
bool(false)$ hashValidate: 

不应该这样吗？

$ userID:bool(false)
$ hashValidate:bool(false)

我有If按下窗体对象上的命令按钮运行的以下块.这应该只是检查四个提到的文本框中的任何一个是否为空,如果是,则显示一个消息框,然后退出该过程,以便用户可以更正字段并继续.

这是相关代码:

 if (string.IsNullOrWhiteSpace(txtName.ToString()) || 
     string.IsNullOrWhiteSpace(txtID.ToString()) ||
     string.IsNullOrWhiteSpace(txtSalary.ToString()) ||
     string.IsNullOrWhiteSpace(txtERR.ToString()))
 {
  MessageBox.Show("One or more text fields are empty or hold invalid data, please correct this to continue","Data Error",MessageBoxButtons.OK);
  return;
 }

我已将所有文本字段留空,甚至尝试将空格字符放入,但条件代码未被执行.由于代码没有执行,我假设我的if语句有问题,也许我没有||正确使用'或'运算符？任何帮助赞赏.

我希望我希望有人可以帮助我

我试图使用以下代码在Excel 2013中保存文件,但我收到以下错误消息: -

方法'SaveAs'对象'__ Workbook'失败

任何人都可以建议吗？

Sub SaveFile()

Dim Destwb As Workbook
Dim FolderName As String
Dim Sourcewb As Workbook
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Name As String

Set Sourcewb = ThisWorkbook
Set Destwb = ActiveWorkbook
Name = Cells(2, 2).Value

FolderName = Sourcewb.Path & "\Files_with_graphs"
FileExtStr = ".xls": FileFormatNum = 56

With Destwb
        .SaveAs FolderName _
        & "\" & Name & FileExtStr, FileFormat:=FileFormatNum
        .Close False

End With

End Sub

这让我疯狂,我确信这个问题已经解决了很多次,但我在这个论坛或谷歌上找不到它.所以我为此制作一个主题道歉.

我不知道如何结束正文.

非常感激.

    With OutMail
        .To = "" ' Either an email address or a cell value that contains an email address: ActiveSheet.Range("B11").Value
        .CC = ""
        .BCC = ""
        .Body = "Geachte heer, mevrouw," & vbNewLine & _
        " " & vbNewLine & _
        "De volgende kasbankopdrachten staan klaar in Kasweb onder rekeningnummer........ Ik verzoek u ze te valideren." & vbNewLine & _
        "Bijgaand ontvangt u het boedeloverzicht, tevens treft u hieronder de berekening van het nog te innen bewindvoerdersalaris …

我越来越反复出现以下消息错误"第2行中的语句意外结束"我看不出有什么问题吗？我做错了什么..

Sub Main()
  Dim regex As Regex = New Regex("\d+")
  Dim match As Match = regex.Match("Dot 77 Perls")
  If match.Success Then
      MessageBox.Show(match.Value)
  End If
End Sub

如何计算VB.NET中字符串中特定字符的出现次数？
比如我有一个字符串:

123#17453#40110#065

我想确定获取#符号计数的代码是什么3.

我正在运行一个简单的for循环,但我得到了错误:

编译错误:子或函数未定义

我在vba中创建了一个模块:

Option Explicit

Sub 100group()

Dim i As Integer, E As Integer
  E = 101
  For i = 2 To 37317
    If (cell(i, 1) < E) Then cell(i, 3) = E Else E = E + 100
    End If

  Next i

End Sub