VBA编号（11-01）作为excel中的文本/编号_Vba_Excel

VBA编号（11-01）作为excel中的文本/编号

vba excel

VBA编号（11-01）作为excel中的文本/编号,vba,excel,Vba,Excel,我创建了VBA excel脚本以从网站获取数据捕获11-01时，excel会自动转换为1月11日（2012年1月11日），而不是原来的11-01 不将11-01转换为11-01的方法是什么 Address Unit Postal JALAN LEMPHENG 11-01 128791 地址单位邮政 JALAN LEMPHENG 11-01 128791 谢谢 Set clip = New DataObject clip.SetText "<html><

我创建了VBA excel脚本以从网站获取数据

捕获

11-01

时，excel会自动转换为1月11日（2012年1月11日），而不是原来的11-01

不将11-01转换为11-01的方法是什么

Address Unit Postal JALAN LEMPHENG 11-01 128791 地址单位邮政 JALAN LEMPHENG 11-01 128791 谢谢

Set clip = New DataObject
clip.SetText "<html><table><tr>" _
& "<td>" & ieSearchGet.outerHTML & "</td>" _
& "</tr></table></html>"
clip.PutInClipboard
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.PasteSpecial "Unicode Text"

Set clip=新数据对象
clip.SetText“”_
&“”&ieSearchGet.outerHTML&“”_
& ""
夹板
ActiveCell.Offset（1，0）。选择
不为空时执行（ActiveCell）
ActiveCell.Offset（1，0）。选择
环
ActiveSheet.PasteSpecial“Unicode文本”

我认为最好的方法是在粘贴数据之前更改单元格的格式。下面的方法有效吗

Set clip = New DataObject
                clip.SetText "<html><table><tr>" _
                & "<td>" & ieSearchGet.outerHTML & "</td>" _
                & "</tr></table></html>"
                clip.PutInClipboard
                ActiveCell.Offset(1, 0).Select
                Do While Not IsEmpty(ActiveCell)
                    ActiveCell.Offset(1, 0).Select
                    Selection.NumberFormat = "@" 'Format as Text the selected cell
                Loop
                ActiveSheet.PasteSpecial "Unicode Text"

Set clip=新数据对象
clip.SetText“”_
&“”&ieSearchGet.outerHTML&“”_
& ""
夹板
ActiveCell.Offset（1，0）。选择
不为空时执行（ActiveCell）
ActiveCell.Offset（1，0）。选择
Selection.NumberFormat=“@”将所选单元格格式化为文本
环
ActiveSheet.PasteSpecial“Unicode文本”

您可以尝试在粘贴的文本之前添加字符“”（即单引号）

我从未尝试过这样做，所以这可能不是正确的代码。你可能必须进行实验。但这只是一个开始：

clip.SetText "<html><table><tr>" _
    & "<td>'" & ieSearchGet.outerHTML & "</td>" _
    & "</tr></table></html>"

clip.SetText“”_
&“'”&ieSearchGet.outerHTML&“_
& ""

它仍然会显示为1月11日。11-01实际上是一个从网站中提取的单位编号。ieSearchGet.outerHTML的内容通常是什么样的？地址单位邮政JALAN LEMPHENG 11-01 128791我理解，但我的意思是它大概是HTML。HTML是什么样子的？这是一张桌子吗？它包含一个单元格还是多个单元格？等等。谢谢。这是一个表格，包含多个单元格。谢谢。为什么要将HTML粘贴到单元格中？因为我需要将HTML表格数据粘贴到单元格中