Excel VBA:xmlhttp响应粘贴有时会忽略选项卡?
EDIT2:我不知道为什么粘贴不正确,但是responseText每次都读作tab,我可以将它拆分成一个数组,完全避免使用剪贴板。如果有人知道为什么会发生这种事,我还是会很感激的Excel VBA:xmlhttp响应粘贴有时会忽略选项卡?,excel,vba,Excel,Vba,EDIT2:我不知道为什么粘贴不正确,但是responseText每次都读作tab,我可以将它拆分成一个数组,完全避免使用剪贴板。如果有人知道为什么会发生这种事,我还是会很感激的 Sub example() Dim clip As Object, D As Object, H As Object, URL As String Set clip = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") Set H
Sub example()
Dim clip As Object, D As Object, H As Object, URL As String
Set clip = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Set H = CreateObject("WinHTTP.WinHTTPRequest.5.1")
Set D = CreateObject("HTMLFile")
'authentication
'xmlrequest
'here
URL = "https:/someinternal.site/tsv?filter=querystring"
H.Open "GET", URL
H.send
clip.SetText H.responseText
clip.PutInClipboard
Sheet1.Range("A1").PasteSpecial
End Sub
我试图查询一个内部站点,该站点以.TSV响应,结果不一致。有时,它会正确地分为几列粘贴,有时,它会将所有的去污剂混合,然后像这样滴入:
FullNameFirstLast
John SmithJohnSmith
何时应该:
FullName First Last
John Smith John Smith
我在参考资料中发现,人们谈论使用TextToColumns手动设置清除器的默认值,但当我粘贴到Excel时,它看起来是一样的——所有选项卡都被删除。如果我将网站(只是一个raw.TSV)粘贴到notepad++中,然后从那里粘贴到Excel中,它会在编辑器上正确显示选项卡和换行符,并在Excel中工作。如果我调试.Print H.responseText,它给我的响应会用4个空格替换所有选项卡,我想这对于即时窗口来说是很正常的,但对我没有帮助
在代码的其他地方,我还使用我认为破坏它的相同方法查询.CSV文件。我是否可以设置任何参数来正确解析响应,或者使用其他方法?为此,我可以使用querytable连接,但由于首先需要进行身份验证,这有其自身的问题,我试图像瘟疫一样避免这些问题
编辑:将Excel中的转储粘贴为图像而不是文本。更令人困惑的是,当我将Excel输出复制并粘贴到记事本或记事本++中时,它会正确地显示选项卡。将其粘贴回Excel会产生相同的结果。这意味着响应是正确的,但Excel本身在选项卡上做了一些奇怪的事情。。。当之前没有找到除沫器时,手动文本到色谱柱起作用有时显示为四个空格,有时显示为不可见的选项卡-这就是问题所在。
您能否提供一个失败响应的示例(当您希望它拆分时失败)并补充说,并发现问题来自被解释为四个空格或(隐藏)选项卡的选项卡。