Tag: 文本文件

VBA Excel将文本文件复制到工作表

我试图统计一个文本文件中的特定列，我认为最好的办法可能是将文本文件中的所有内容复制到Excel工作表中，然后从那里计算（否则我需要尝试直接从Excel文件中只读取一行）。 这是我迄今为止的代码： Dim filePath As String Dim currentValue As String Dim iRow As Long Dim iCol As Long Dim badAddress As Long Dim coverageNoListing As Long Dim activeListing As Long Dim noCoverageNoListing As Long Dim inactiveListing As Long Dim fso As Object Dim f As Object '' filePath would include entire file name (picked from […]

使用多行单元格导入制表符分隔的文本文件（到Excel或Access）

我试图导入的制表符分隔的文本文件看起来像这样（4场，场3是多行）…和大约100,000行的数据： 下面只是一个示例…但请给出一个通用的解决scheme，其中多行文本可以在多个领域…就像fld3，fld6和fld7共10个领域。 Field 1 <tab> Field 2 <tab> Field 3.1 Field 3.2 Field 3.3<tab>Field 4 Field 1 <tab> Field 2 <tab> Field 3.1 Field 3.2 Field 3.3<tab>Field 4 Field 1 <tab> Field 2 <tab> Field 3.1 Field 3.2 Field 3.3<tab>Field 4 但是，实际上，当它从数据库导出到上述文本文件时…它有3行实际…看起来像这样… 4个字段。 字段3是多行的。 Field 1 <tab> Field 2 <tab> Field 3.1(CR)Field 3.2(CR)Field 3.3<tab>Field 4 […]

使用VBA将文本文件复制到Excel时出错

我想使用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 […]

将.txt文件导入到.xlsx文件

我正在处理将.txt文件（非分隔符）转换为Excel电子表格的脚本。 我的问题发生在我需要拉取5-10个字符之间的数据，并且每行有几组数据。 每行的每个字段中可以包含以下字符数，每行中有五个字段： 10 char 10 char 10 char 17 char 10 char 523452 D918 20120418 1FD7X2XTACEB8963820120606 523874 L9117244 20120409 3C6TDT5H0CG12130200000000 535581 G700 20120507 5GYFUD CT 00000000 我基本上需要能够拉10,10,10,17,10并把它们放在他们自己的单元格连续在Excel中。 我可以像现在一样拉动单元格，但是它是基于空间划分的，这样当字段不占用全部空间的时候就会出现问题，并最终生成一个空白单元格的Excel表单。

从文本文件中读取数据并进行分隔

我有一个Excel 2010电子表格，并且正在读取.txt文件（以及将来的另一个.xls文件）中的信息。 这个文本文件每行有3个元素; 姓，职称，每个元素用逗号隔开。 我有数据读取和粘贴到Excel中，但每行都粘贴到一个单元格。 我正在寻找将每个元素粘贴到不同的列。 我知道我应该尝试划分，但我不能弄清楚语法。 我的问题是如何分离每个元素，并将其粘贴到它自己的单元格？ 我目前使用逗号来分隔我的.txt文件上的每个元素，但未来的文件可能使用制表符，全站，分号等。我如何扩展它，使所有的基地被覆盖？ 下面是我的代码，在我的代码下是一个虚拟数据的样本 Sub FetchDataFromTextFile() Dim i As Long Dim LineText As String Open "C:\mytxtfile.txt" For Input As #24 i = 2 While Not EOF(24) Line Input #24, LineText ActiveSheet.Cells(i, 2).Value = LineText P = Split(Record, ",") i = i + 1 Wend Close #24 End Sub John，Doe，老板 […]

从文本文件中读取行，但跳过前两行

我在Microsoft Office Word 2003中有这个macros代码，它读取文本文件的行。 每行代表一个string值，我需要在代码中稍后使用。 但是，文本文件的前两行包含了一些我不需要的东西。 如何修改代码以便跳过两条第一行？ 在Word中的VBA编辑器中的“智能感知”糟透了。 无论如何，代码看起来像这样 Dim sFileName As String Dim iFileNum As Integer Dim sBuf As String Dim Fields as String sFileName = "c:\fields.ini" ''//Does the file exist? If Len(Dir$(sFileName)) = 0 Then MsgBox ("Cannot find fields.ini") End If iFileNum = FreeFile() Open sFileName For Input As iFileNum Do While Not […]

如何将制表符分隔文件转换为CSV格式？

我有这种格式的文本文件： { attribute1 attribute2 attribute3…. attributeN value"A" value"B" value"C"…. value"Z" /* next line of values*/ } 每个单词由一个制表符分隔。 我如何转换为CSV格式？ 我尝试使用Excel，但它给兼容性问题。