3

我想使用 VBA 将文本文件中的内容复制到 Excel 单元格。我可以从大多数文本文件中成功地做到这一点。但在某些文件的情况下，代码只会将部分数据复制到 excel 文件中。

这是我用来复制的代码

FileName = folderpath & sFile
Set mytextfile = Workbooks.Open(FileName)
mytextfile.Sheets(1).Cells.CurrentRegion.Copy ThisWorkbook.Sheets("RawData").Range("A" & inputRow)
'mytextfile.Sheets(1).Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets("RawData").Range("A" & inputRow)
mytextfile.Close (False)

我已经明白是什么问题了。在将某些文本文件作为 excel 文件打开时，单元格 A1 中存在一些内容，而单元格 A2 中存在其余内容。

不知道为什么会这样打开。我在下面发布两个文本文件的内容：

1）在excel中打开时内容包含在不同单元格中的文本文件

fwi!3F5A!041!g1ksIpqub7J MCMILLAN J. PIIKKILA RAYMONDBERRY@WEBTV.NET +001 061 477 130 F g3ktHqrwc9 CLE!g1ksIpqub7 CLEHS04C |PO BOX 171 SEARSPORT,ME Nashville 68800 AZ| |5150 CTY RD 525 罗利 64292| 18000000 0412CL0 1 N 2

当我使用上面的文本文件时，我得到了以下输出。

fwi!3F5A!041!g1ksIpqub7J MCMILLAN J. PIIKKILA RAYMONDBERRY@WEBTV.NET +001 061 477 130 F g3ktHqrwc9 CLE!g1ksIpqub7 CLEHS04C |PO BOX 171 SEARSPORT

2) 内容包含在单个单元格 A1 中的文本文件

fSj!3U68!071!gQloo3d5OGG Presley Y. TART JR PULPACTION82@HOIMAIL.COM +001 047 475273 M gQmqq6d8ME CVE!gQloo3d5OG CVEGF07C |10001 SW 125TH CT RD Reno 88595 TN| |10849 黛博拉大道格伦代尔 70958| 97400000 0712CV0 0 N 0

当我使用上面的文本文件时，我得到了以下输出。

fSj!3U68!071!gQloo3d5OGG Presley Y. TART JR PULPACTION82@HOIMAIL.COM +001 047 475273 M gQmqq6d8ME CVE!gQloo3d5OG CVEGF07C |10001 SW 125TH CT RD Reno 88595 TN| |10849 黛博拉大道格伦代尔 70958| 97400000 0712CV0 0 N 0

这两个文件的内容没有明显的区别。

我也尝试了这段代码，但没有任何成功：

FileName = folderpath & sFile
Set mytextfile = Workbooks.Open(FileName)
mytextfile.Sheets(1).Range("A1").CurrentRegion.Copy ThisWorkbook.Sheets("RawData").Range("A" & inputRow)
mytextfile.Close (False)
4

1 回答 1

5

问题：

您没有使用正确的方法*.txt在 VBA 中读取文件。打开文件 usingWorkbooks.Open()将打开的文件视为*.csv. 因此，当 Excel 读取流并出现逗号时，它会将其视为换行符，并将剩余部分（逗号之后）扔到下一个单元格。如MSDN Workbooks.Open 方法所述

表达式 .Open(FileName ... )

表达式表示Workbooks 对象的变量。

显然，aWorkbook object不是txt文件。

解决方案：

读取文件内容的正确方法*.txt是使用库中的FileSystemObject和TextStream对象Microsoft Scripting Runtime。

我为你写了一个简单Sub的读取*.txt文件的全部内容。为了使其工作，您必须添加对项目的引用

在 VBE 窗口中，单击Tools» References»向下滚动，找到并打勾 Microsoft Scripting Runtime

现在，通过下面的代码筛选并修改*.txt文件的路径或通过参数传递路径，文件的全部内容*.txt将放置在第一个工作表Sheet(1)单元格中A1

Sub ReadTxtFile()

    Dim oFSO As New FileSystemObject
    Dim oFS As TextStream
    
    Dim fileName As String
    ' make sure to update your path or
    ' pass it to the sub through parameter
    fileName = "C:\Users\fooboo\Desktop\text.txt"
    
    Set oFS = oFSO.OpenTextFile(fileName)
    
    Dim content As String
    content = oFS.ReadAll
    
    With Sheets(1).Range("A1")
        .ClearContents
        .NumberFormat = "@"
        .Value = content
    End With
    
    oFS.Close
    Set oFS = Nothing
    Set oFSO = Nothing
End Sub
于 2013-08-22T07:16:47.507 回答