Tag: 记事本

如何将Excel范围复制到文本（.txt）文件，无格式，以便所有单元格形成一个单一的string，不是单独的项目？ C＃: 我在Excel工作表的B列中find了一系列“Good”单元格，在“D”列中find相应的单元格，并创build这些单元格的范围。我想将所有这些单元格转换为一个单一的string，并将其粘贴到我的记事本文件，以便每个单元格的string之间没有空格，它们显示在一行上。现在我的代码读取每个单元格项目作为自己的实体，并打印在不同的行。我想能够遍历一个单一的string，所以我想他们都形成一个完整的string。 Microsoft.Office.Interop.Excel.Application excelApp = new Microsoft.Office.Interop.Excel.ApplicationClass(); Microsoft.Office.Interop.Excel.Workbook excelWorkbook = excelApp.Workbooks.Open(comboBox2.Text); Excel.Worksheet xlWorkSheet = (Excel.Worksheet)excelWorkbook.Sheets[sheetSpaces]; excelApp.Visible = false; excelApp.ScreenUpdating = false; excelApp.DisplayAlerts = false; Excel.Range last = xlWorkSheet.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell, Type.Missing); int lastUsedRow = last.Row; string lastCell = "B" + lastUsedRow.ToString(); Excel.Range range = xlWorkSheet.get_Range("B1", lastCell); foreach (Excel.Range item in range.Cells) { string text = […]

在Excel中打开CSV文件与记事本: 每当我在Excel或Sakura编辑器中打开.csv文件时，运行我的C程序时遇到fopen错误，而当我在记事本或记事本++中打开文件时，我不会收到任何错误，并且程序可以使用该文件而不会出现问题。这些应用程序中.csv文件的用法和为什么有什么区别？

batch file命令打开excel \ csv作为记事本: 我可以通过简单地使用文件的path从.bat打开一个excel文件。有没有一个参数来打开编辑模式下的CSV（作为记事本）？

记事本中的回车: 我有1-2000个记事本文件，我需要添加一个新行。我有一个Excelmacros，可以自动查找和replace记事本文件中的文本，我可以用它来添加我需要的文本。 excelmacros有一个单元格，用户键入要find的文本，另一个用户键入将replace该文本的文本。问题是，我需要用两个replace一行，并在excel中使用“replace”单元格中的换行符（使用alt-enter）不会将文本放在记事本的新行中。有趣的是，当我在Word中打开记事本文件时，它显示在一个新行上，两行之间有一个回车符，但仍然在记事本的同一行上。有什么办法，我可以使用Excelmacros添加回车显示在记事本中？

避免循环，而使用Excel记事本: 我使用下面的代码来复制一些范围从Excel到记事本。但是，当我工作超过10万（100,000）的数据非常慢。有没有更简单的方法来实现这一点，而不使用发送键的方法。 Sub PrintToTextFile() Dim FileNum As Integer, cl As Range, z As Integer, y As Integer Dim myStr As String FileNum = FreeFile ' next free filenumber 'Open "C:\Temp\TEXTFILE.TXT" For Output As #FileNum ' creates the new file Open "C:\temp\TEXTFILE.TXT" For Append As #FileNum Print #FileNum, [a1] z = 10 For Each cl In […]

如何删除记事本文件中的字母数字字符: 我有一个文本文件 Example: 793643450715275|Andriod Game Hacker 470734673064253|Andriod Firmရာ 382409221961101|Andriod Solution 709215912481252|AndriodوIOS 248027618719895|Exchange App Andriod Reviews 212241765574268|andrioders 我想删除所有的字母字符 Example Like : 793643450715275 470734673064253 382409221961101 709215912481252 248027618719895 212241765574268 有人告诉我，我怎么能做到这一点。我也尝试记事本++，但无法做到这一点 build议我。

将数据从Excel复制到记事本: 我目前正在复制数据表格Excel到记事本，并成功使用SendKeys excel VBAfunction。但我正在寻找任何可以帮助我避免使用sendkeys的工作。我有这样的代码： sub test() dim wb as Workbook set wb = "C:\Documents\test.xlsx" wb.Sheets(2).Range("C2:C" & lRow).Copy myApp = Shell("Notepad.exe", vbNormalFocus) SendKeys "^v" Application.CutCopyMode = False wb.Sheets(2).Range("C2:C" & lRow).NumberFormat = "@" end sub 这个只复制excel到记事本的数据，但是在excel文件中做了一些修改之后，我想把复制到记事本中的数据再从C2复制到excel。

删除文本文件中的额外空间: 我正在创build一个文本文件，并将一些预先生成的Excel数据复制到其中。它工作正常。但是输出结果如下所示： MGSSP:IMSI= 40211xxxx ; MGSSP:IMSI= 40211xxxx ; MGSSP:IMSI= 40211xxxx ; … 我想摆脱=和之前的空格; 。这是欲望输出应该是这样的： MGSSP:IMSI=40211xxxx; MGSSP:IMSI=40211xxxx; MGSSP:IMSI=40211xxxx; … 我正在使用下面的代码： If My.Computer.FileSystem.FileExists("C:\Temp\mgssp_script.txt") Then Dim proc As Process = Process.Start("notepad.exe", "C:\Temp\mgssp_script.txt") System.Threading.Thread.Sleep(250) SendKeys.Send("^v") Else Dim file As System.IO.FileStream file = System.IO.File.Create("C:\Temp\mgssp_script.txt") file.Close() Dim proc As Process = Process.Start("notepad.exe", "C:\Temp\mgssp_script.txt") System.Threading.Thread.Sleep(250) SendKeys.Send("^V") file.Close() End If

生成Excel文件到.txt文件并做一些循环: 我想生成.txt文件的Excel文件，并做一些循环。比如像这样：在Excel中： A | B | C | D –+—+—+— 1 | 5 | 9 | 1 A | H | U | I 将这样生成为.txt文件： "A", "1" "B", "5" "C", "9" "D", "1" "A", "A" "B", "H" "C", "U" "D", "I" 编辑：这是我的编码 Private Sub CommandButton1_Click() Dim sFirst As String Dim sSecond As String Dim […]

VBA使用macros将22个pipe道（|）添加到文本文件: 我希望你可以帮助我有一段代码，它是从两个Excel表中获取信息，并将其放入两个文本文档中供数据库使用。代码我已经正常工作，但22列已被添加到数据库中的文本文件注定要被消耗，所以我需要把22pipe道（|）公司之前在记事本文件第一张照片是Excel表格，工作人员可以input数据第二张图显示的是从“会议closures模板”中sorting数据的Excel工作表，macros选取要转换为文本的数据。这个sorting表被称为“Template-EFPIA-iTOV”灰色的列是macros观图片在下面的图片中，您可以看到“公司ID”是“Template-EFPIA-iTOV”中的最后一列以下是表格“Template-EFPIA-iTOV”在文本中的表示方式这是公司文件中的公司ID 因为目标数据库现在已经有了额外的22列之前的公司ID我需要我的macros放22个pipe道（|）公司ID之前的文本文档。 Excel工作表“EFPIA客户模板”也可以转换为文本，但是这样很好，不需要修改。我的代码如下。像往常一样，任何帮助，不胜感激。 macros前端的图片码 'Variables for Deduplication Dim WB_Cust As Workbook 'File Variables Dim DTOV_Directory As String Dim DTOV_File As String Dim ITOV_Directory As String Dim ITOV_file As String Const DELIMITER As String = "|" ' Variables for writing text into file Dim WriteObject As […]