Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA:xmlhttp响应粘贴有时会忽略选项卡?_Excel_Vba - Fatal编程技术网

Excel VBA:xmlhttp响应粘贴有时会忽略选项卡?

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

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 = 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本身在选项卡上做了一些奇怪的事情。。。当之前没有找到除沫器时,手动文本到色谱柱起作用有时显示为四个空格,有时显示为不可见的选项卡-这就是问题所在。


您能否提供一个失败响应的示例(当您希望它拆分时失败)并补充说,并发现问题来自被解释为四个空格或(隐藏)选项卡的选项卡。