写一个VBA抓取北京时间的代码
时间: 2023-04-04 14:02:56 浏览: 88
以下是一个VBA抓取北京时间的代码:
Sub GetBeijingTime()
Dim url As String
Dim xmlHttp As Object
Dim html As Object
Dim timeStr As String
url = "http://time.tianqi.com/beijing/"
Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
xmlHttp.Open "GET", url, False
xmlHttp.send
Set html = CreateObject("htmlfile")
html.body.innerHTML = xmlHttp.responseText
timeStr = html.getElementById("bjtime").innerText
MsgBox "当前北京时间为:" & timeStr
End Sub
相关问题
写一个vba代码,实现删除整行
好的,以下是 VBA 代码实现删除整行的示例:
```vba
Sub deleteRow()
Dim i As Long
Dim lastRow As Long
'获取最后一行的行号
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'从第一行开始遍历到最后一行
For i = 1 To lastRow
'如果第 i 行的某个单元格的值等于目标值,则删除整行
If Cells(i, 1).Value = "目标值" Then
Rows(i).Delete
i = i - 1 '由于删除了一行,所以需要将行号减一,否则会跳过下一行
lastRow = lastRow - 1 '由于删除了一行,所以最后一行的行号也需要减一
End If
Next i
End Sub
```
在这段代码中,我们使用了 `Rows(i).Delete` 方法来删除第 i 行。由于删除了一行,所以需要将行号减一,否则会跳过下一行。同时,由于最后一行的行号也会发生变化,所以需要在删除一行后将 `lastRow` 的值减一。
需要注意的是,本例中删除的是第一列的目标值,您需要根据自己的实际需求修改代码。
用vba写一个查找代码
以下是一个简单的VBA查找代码,它可以在Excel中查找指定单元格中的特定文本或数字。
Sub Find_Text()
Dim FindString As String
Dim FoundCell As Range
FindString = InputBox("Enter text to find:")
Set FoundCell = Cells.Find(What:=FindString, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not FoundCell Is Nothing Then
FoundCell.Select
MsgBox "Text found in cell " & FoundCell.Address
Else
MsgBox "Text not found."
End If
End Sub
要使用此代码,请按下Alt + F11,打开VBA编辑器。然后,选择要运行代码的工作表,然后将代码复制并粘贴到工作表的代码窗格中。最后,按下F5键以运行代码。输入要查找的文本或数字,然后代码将搜索工作表中的所有单元格,并在找到匹配项时弹出消息框。