Tag: 分隔文本

带有两个自定义分隔符的Excel TextToColumns: 我正在尝试使用VBA来分隔单元格中的文本，同时使用连字符和正斜杠作为分隔符。使用一个或另一个是相当简单的。但是，这些字符都不是Excel中的标准分隔符，我无法弄清楚如何使用两个自定义分隔符。我知道Excel有一个文本到列的function，使用起来更容易，不需要我编写任何代码，但这是一个大型项目的一部分，需要它在VBA中。这是我有的代码。 Dim wireIDCell As Range Set wireIDCell = Range("A1") wireIDCell.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _ Other:=True, OtherChar:="/" 试图用string函数做某种魔术将成为我的下一个想法，但我想知道如果有人在那里有更好的想法

将文本文件转换为带分隔符和文本格式的列vbscript的excel: 我想通过VBScript将.txt文件转换为Excel。我有一个angular色，我想分隔“|”。我还想在文本打开之前将列数据格式化为文本。这是我目前正在使用的减去列数据的格式作为文本。 Const xlDelimited = 1 Const xlOpenXMLWorkbook = 51 xl.Workbooks.OpenText "C:\project\project.txt", , , xlDelimited, , , , , , , True, "|" Set wb = xl.ActiveWorkbook wb.SaveAs "C:\project\project.xlsx", xlOpenXMLWorkbook, , , , False wb.Close xl.Quit 在打开文本文件之前，我需要格式化列数据的帮助。我不知道如何去做这件事。在打开文件后，我试图将文本格式设置为文本，导致从零开始的数字数据丢失。任何帮助将不胜感激。先谢谢你。

将ctrl分隔的文件转换为csv: 我有一个ctrl+A扩展名为.txt ctrl+A分隔文件。我想将此文件转换为CSV文件。唯一可用的工具是Excel，每个文件大约200MB。

如何将数据库备份转换为csv或xls文件: 我有一个数据库的数据库备份文件是由下面的分隔符分隔的长行字段分隔符是~^ 行分隔符是^~ 如何将其转换为行并将其放入列中。我只是想能够将它转换成逗号分隔值，以便我可以使用Excel来处理数据。我知道SED工具可以帮助完成，但是有没有其他的替代方法可以实现呢？我试过notepad++但无法弄清楚

空格分隔“导出到文本”Excelmacros问题: 我有下面的vbamacros将选定的单元格导出到文本文件。问题似乎是分隔符。我需要一切准确的位置。我有每个列的宽度设置为正确的宽度（ 9像9像SSN ），我有单元格字体作为新快报（ 9pt ）在Excel表中。当我运行这个时候，它真的很接近我所需要的，但是它似乎并没有处理那些只是单个空间宽度的列。我将把WHOLE方法（和伴随函数）放在底部作为参考，但首先我想发布我认为是我需要关注的部分。我只是不知道如何… 这是我相信我的问题是（分隔符设置为delimiter = "" – > ' Loop through every cell, from left to right and top to bottom. For RowNum = 1 To TotalRows For ColNum = 1 To TotalCols With Selection.Cells(RowNum, ColNum) Dim ColWidth As Integer ColWidth = Application.RoundUp(.ColumnWidth, 0) ' […]

从文本文件中读取数据并进行分隔: 我有一个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，老板 […]