VBA excel 提取字符串中的日期

Sub 提取日期()

Dim temp

Dim str As String

Dim d As Date

str = "l4-122344/201238"

temp = Split(str, "/")(1)

d = DateSerial(Split(temp, "")(0), Split(temp, "")(1), Split(temp, "")(2))

End Sub

首先打开Excel 2007工作表，点击想要把数据导入的位置，然后在菜单栏找到第五项"数据“，点击，在“获取外部数据”项下找到“自网站”并点击。

这时d出来”新建 Web 查询“对话框，可以在“地址”一栏键入要添加数据的网页的地址。

添加完成后，点击“转到（G）”，下面会出来要添加网页的内容和**箭头，单击要选择的表旁边的**箭头，可以看到点击后**箭头变成绿色的对号，这表示内容已经选中了，然后单击“导入（I）”。

d出来”导入数据“对话框，设置完成点击“确定”。

Excel表中显示“正在获取数据……”。

数据获取完成，之前选中的网页内容全部导入了Excel工作表里。

你应该是想在sheet1中设置的吧？

那你就打开visual basic编辑器，然后双击左边的workbook,然后再粘贴以下的代码就可以了。

Private Sub Workbook_Open()

If Sheets(1)[f10] = "" Then

Sheets(1)[f10] = Now

End If

End Sub

注：这个代码显示首次打开时的日期和时间。

有什么不懂的可以追问。

供参考

Sub test()

Dim myQuery

With ActiveSheet

CellsDelete

[a1] = "Conneting, Please Wait"

Set myQuery = ActiveSheetQueryTables _

Add(Connection:="URL;>

以上就是关于VBA excel 提取字符串中的日期全部的内容，包括:VBA excel 提取字符串中的日期、excel VBA 网页数据抓取、vba代码:要求打开工作表时，单元格F10显示为当前日期，以后再次打开时此日期不变，目的是得知首次打开日期等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！