0

根据下面的评论，我正在编辑我原来发布的问题，以更准确地反映我的问题。

这是为了我的工作。在我的工作程序中，我将数据表下载到 csv 文件中，它会自动在记事本中打开数据。我没有将文件保存在记事本中。（根据我的工作，这个过程必须保持不变。保存数据是不必要的，而且会花费太多时间，因为我必须每天执行数百次相同的步骤。）

在记事本中打开数据后，我会复制所有数据。然后我需要将数据直接粘贴到excel中。数据由 66 个不同的列组成，并包括标题。我需要解析这些列，以便跳过其中的许多列，而将其他大多数列粘贴为文本。在下面的数组中，我认为我使用 Array(1, 9), Array(4, 2) 方法正确布局，希望第 1 列将被跳过，第 4 列将被粘贴为文本等...

但是，在运行此代码时，会跳过第一列，但随后会粘贴所有后续列，而不遵循我在代码中编写的任何数组设置。我已经研究了这个网站和许多其他网站上的问题。我不知道我的代码有什么问题导致这个问题。

这是我正在使用的数据的链接（为匿名数据而编辑）： https ://www.dropbox.com/s/2ujbpgm3zkvserx/Test_Data_Parsing.txt?dl=0

这是我正在使用的代码：

    Sub Test_PasteParsing()


        With ThisWorkbook.Sheets(1)
                Range("A1").PasteSpecial
        End With


        Columns("A:A").TextToColumns _
                    Destination:=Range("A1"), _
                    DataType:=xlDelimited, _
                    TextQualifier:=xlDoubleQuote, _
                    ConsecutiveDelimiter:=True, _
                    Tab:=True, _
                    Semicolon:=False, _
                    Comma:=False, _
                    Space:=False, _
                    Other:=False, _
                    OtherChar:=False, _
                    FieldInfo:=Array(Array(1, 9), Array(2, 9), Array(3, 4), Array(4, 2), Array(5, 9), Array(6, 9), _
                        Array(7, 9), Array(8, 2), Array(9, 9), Array(10, 9), Array(11, 2), Array(12, 9), _
                        Array(13, 2), Array(14, 9), Array(15, 9), Array(16, 2), Array(17, 9), Array(18, 9), _
                        Array(19, 9), Array(20, 9), Array(21, 9), Array(22, 9), Array(23, 9), Array(24, 9), _
                        Array(25, 9), Array(26, 9), Array(27, 9), Array(28, 2), Array(29, 2), Array(30, 2), _
                        Array(31, 2), Array(32, 9), Array(33, 9), Array(34, 9), Array(35, 9), Array(36, 9), _
                        Array(37, 9), Array(38, 2), Array(39, 9), Array(40, 2), Array(41, 9), Array(42, 9), _
                        Array(43, 9), Array(44, 9), Array(45, 9), Array(46, 9), Array(47, 9), Array(48, 9), _
                        Array(49, 9), Array(50, 9), Array(51, 2), Array(52, 2), Array(53, 2), Array(54, 2), _
                        Array(55, 9), Array(56, 9), Array(57, 2), Array(58, 9), Array(59, 2), Array(60, 9), _
                        Array(61, 9), Array(62, 2), Array(63, 9), Array(64, 9), Array(65, 2), Array(66, 2)), _
                    TrailingMinusNumbers:=True


    End Sub
4

0 回答 0