使用TextRange.InsertAfter方法将文本添加到VBA导出的文本文件中
VBA（Visual Basic for Applications）是一种基于Visual Basic语言的宏编程语言，常用于微软的Office套件中，用于自动化处理文档、数据和任务。
TextRange.InsertAfter方法是VBA中用于向文本文件中插入文本的方法。具体而言，它可以在指定的文本范围之后插入新的文本。
这个方法可以在VBA导出的文本文件中方便地添加文本内容。通过指定合适的文本范围，我们可以将新的文本添加到现有文本的后面。这个方法非常适用于在文本文件末尾添加数据、记录、注释等。
在云计算领域中，使用TextRange.InsertAfter方法可能不直接相关，因为云计算更多涉及到基础设施、平台和软件的托管和部署。然而，VBA作为一种常用的宏编程语言，可以用于自动化处理和管理云计算资源和任务。
以下是一些可能的应用场景和示例：
- 自动化脚本：利用VBA编写自动化脚本，通过云计算平台的API接口实现自动化资源管理、部署和监控。
- 数据处理：使用VBA编写数据处理脚本，将云计算平台上的数据导出为文本文件，然后利用TextRange.InsertAfter方法将相关数据添加到指定位置，从而实现数据的整理和汇总。
- 文档生成：结合云计算平台的数据和VBA编写的脚本，生成各种文档报告，通过TextRange.InsertAfter方法将生成的文本内容逐步添加到目标文档中。
需要注意的是，如果需要在云计算中进行大规模的数据处理、自动化部署和管理等任务，可以考虑使用云计算服务商提供的更为专业的解决方案和产品。腾讯云提供了一系列云计算产品，例如云服务器、云数据库、云存储等，可以根据具体的需求选择相应的产品。
腾讯云相关产品和产品介绍链接地址如下：
- 云服务器（CVM）：腾讯云提供的可弹性伸缩、安全可靠的云端服务器，支持多种操作系统，满足不同应用场景的需求。详情请参考：https://cloud.tencent.com/product/cvm
- 云数据库（TencentDB）：腾讯云提供的高性能、高可靠、弹性扩展的云数据库服务，支持关系型数据库和非关系型数据库。详情请参考：https://cloud.tencent.com/product/tencentdb
- 云存储（COS）：腾讯云提供的安全可靠、高扩展性、低成本的云端存储服务，适用于图片、视频、文档等各种类型的文件存储。详情请参考：https://cloud.tencent.com/product/cos
请注意，以上产品仅作为示例，实际选择应根据具体需求和项目要求进行评估和决策。
相关·内容
我正在尝试使用以下过程将表导出到文本文件：
右击表|导出|文本文件
这一切都很好，但我的其中一个字段是数据/时间字段，并将其中的值导出如下：
0:00:00
我对此做了一些研究，微软发现了这一点，它解释了为什么会发生这种情况，并提供了几个解决方案。
这些解决方案实际上并不适合我，因为我需要a作为分隔符，并且不希望出现0:00:00。最好的方法是什么？
谢谢
我愿意通过VBA或MS向导听取建议
浏览 1提问于2013-03-13得票数 3
回答已采纳
1回答
制作“字典”
、、
我为各种不同的项目写了很多代码。
我想将它们保存在一个文件中，这样就像一个工作代码模块的“存储库”。因此，对于新的VBA项目，我可以从那里复制模块。
有没有办法在VBA编辑器之外保存代码文件？像是文本文件之类的吗？
浏览 6提问于2019-01-16得票数 1
我正在尝试使用this VBA将注释从PowerPoint导出为文本文件。在每个导出的文本文件中，我希望在导出的文件中的文本末尾添加一段额外的文本。使用TextRange.InsertAfter method似乎可以做到这一点，但我不确定如何做到这一点。 假设我想要在文件中的每个文本范围的末尾添加的文本是“额外文本”，我想这样可能行得通 原始 Print #intFileNum, oSh.TextFrame.TextRange.Text 修订 Print #intFileNum, oSh.TextFrame.TextRange.InsertAfter "extra text"
浏览 47提问于2021-08-14得票数 0
回答已采纳
我有用Outlook 2010 VBA编写的代码，希望与同事共享(运行调用代码的Outlook规则，将当前电子邮件作为文本文件保存到网络文件夹)。我想要做的是将VBA代码保存在网络上的某个库中，并让Outlook在那里调用它。这样，其他人就可以调用相同的代码，并且Outlook的所有实例都可以指向一组代码。如果你能告诉我关于设置这个的信息，我将不胜感激！
我在VBscript程序中做了类似的事情，使用executeglobal基本上运行一个包含函数的文件(类似于包含文件)，并且正在研究如何在VBA中这样做。
浏览 1提问于2014-09-02得票数 1
我被要求对一个Access 2007 VBA应用程序进行一些更新。我的经验主要是使用Excel VBA，不太熟悉Access。
在一个地方，我们添加了一些额外的字段。其中一个表导出到Excel工作簿，如下所示：
CSV acExportDelim，“(文本文件规范)”，“(源表名称)”，(要创建的CSV文件的路径)，True
在将新字段添加到源表之后，我得到了错误：
INSERT INTO语句包含下列未知的字段名：‘(字段名)’。请确保键入的名称正确，然后重试该操作。
在阅读了我在上面找到的内容后，我了解到问题在于“文本文件规范”中没有新的字段。此外，我不能编辑文本文件规范，而必须创建一个新的
浏览 5提问于2013-11-26得票数 0
与其将VBA代码保存在Excel文件中的模块中，我希望将代码保存在文本文件中，例如module1.vba。在Excel中，module1.vba将被加载或导入，并像正常的模块一样运行。
这有可能吗？怎么做？
在Excel中，在VBA编辑器中，菜单中有一个选项Insert > File...，它可以做我想做的事情，但是我不知道如何用最少的VBA代码来加载保存为文本的真正代码。
其原因是允许使用基于文本的应用程序(如git )进行代码修订控制。
编辑
这个展示了一个很好的替代工作。不过，我还是不太喜欢复制东西。
浏览 1提问于2019-06-26得票数 1
回答已采纳
2回答
我一直在到处研究这个问题，希望得到一个答案，或者至少是一个可以参考的模板。
我正在使用MS Access 2007。我需要将查询导出为具有固定宽度规范的文本文件(已经完成)。我遇到的问题是，我必须将特定的页眉和页脚附加到导出中。标题必须具有当前日期，尾部必须具有要导出的项目总数。
无可否认，我有点不知所措，但通常会遇到一些做类似事情的VBA代码。
有人能帮上忙吗？
浏览 5提问于2016-09-10得票数 2
我希望使用VBA导出/维护/管理个人宏工作簿personal.xlsb中模块的文本文件备份。
我找不到引用msdn上模块本身的对象库。有人能帮我指出正确的方向吗？
使用Excel 2013。
浏览 10提问于2016-08-01得票数 3
回答已采纳
1回答
我已经完全意识到我在vba中完全没有意识到；所以我请求一个宏的帮助，从Ms Professional导出某些日期到Ms Project，如果可能的话，通过电子邮件一次点击发送。
我看到一些线程部分地覆盖了我的请求，但我的知识不允许我修改和调整它们。
在进入细节之前，快速提问，日期，即使导出到excel通过一个vba作为文本字段？太烦人了。
我想导出的数据已经在一个特定的视图中(名为"- Excel导出/导入“)，但是如果需要的话，让我们说它将实现一个特定的过滤器(名为"- Excel导出/导入”)，并包含以下列：
Text24
Project
Text14
Task Name
浏览 0提问于2020-08-27得票数 0
您是否建议在MS Access应用程序上与多个程序员一起工作？
我们的一个MS Access应用程序已经增长到一个程序员无法在请求的时间范围内处理更改(错误修复)和新功能的数量。
我们正在尝试使用VBA中未记录的SaveAsText和LoadFromText过程来引入版本控制，以使在此应用程序上进行协作成为可能。不幸的是，我们已经遇到了将修改过的窗体和报告加载回Access的问题，因为校验和存储在每个窗体文本文件中。
在花时间构建导入/导出应用程序以将文本文件编译到Access数据库之前，我们想听听您的建议。
浏览 1提问于2008-10-29得票数 11
我在MS Access 2010中有一个表，我想将查询结果导出到一个文本文件中(用户指定了一个路径，这个文本文件应该保存在这个路径中)
下面是我的问题：
SELECT Name FROM MyTable
我想把每个名字放在一个文本文件中的单独一行。我如何在VBA中做到这一点？
浏览 0提问于2013-06-24得票数 0
回答已采纳
我有一个项目，其中我需要比较Access 2003数据库的不同版本。我们对表中的数据不感兴趣。我们只对描述数据库的对象感兴趣。即表单对象、报表对象、QueryDefs、TableDefs等。数据库相当大，因此方法是将感兴趣对象的所有描述转储到一个文本文件中，方法是在每个数据库中运行VBA应用程序，然后在比较查看器中比较结果。
几天来，我一直在四处寻找如何从VBA中动态转储access 2003宏内容。请不要将这与从VBA转储VBA代码混淆。
我了解Application.CurrentDB.AllMacros以获取active access数据库中的宏列表。但是我无法从宏(MacroName)
浏览 1提问于2011-08-07得票数 0
我正在编写一个VBA代码，该代码将删除选定excel工作表上的数据，打开一个用于选择文本文件的对话框，然后将该文本文件中的数据导入到我从中删除数据的同一张工作表中。到目前为止，我只能在新的工作簿中打开文本文件，但不能在删除数据的同一张工作表中打开它。
到目前为止，我提供了以下内容，感谢您的帮助：
Dim Filt As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As Variant
Filt = "Cst Files (*.prn),*.prn"
Title = "Select
浏览 3提问于2012-06-30得票数 19
1回答
我正在导入一个固定宽度的文本文件到Excel，然后导出它。我正在努力弄清楚如何在保存时保留格式。
在导入时，我尝试使用.NumberFormat，它强制导入格式，但在导出时，它松开了格式设置。
我导入的文本文件：
我的出口例程：
Option Explicit
Sub CreateFixedWidthFile(strFile As String, ws As Worksheet, s() As Integer)
Dim i As Long, j As Long
Dim strLine As String, strCell As String
'get a freef
浏览 2提问于2017-11-02得票数 1
回答已采纳
4回答
我正在使用Excel 2010。我有一些代码在后台(VBA)，是不断成长起来的。我正在尝试找到一种方法将源代码从xls文件中分离出来，这样我就可以比较代码更改。换句话说，我希望代码放在一个文本文件中，每次打开Excel文件时，宏的源代码都会从该文件中取出。
提前感谢！
浏览 0提问于2012-04-22得票数 3
回答已采纳
完全是Python的新手。我有很多带有文本框的Word文档。使用VBA，我已经将这些框中的文本捕获到变量。首先，我希望能够打开给定文件夹中的每个Word doc，读取包含文本框数据的每个VBA变量，并将其打印到文本文件中。
我安装了Python2.7.3，并安装了Pywin32。
浏览 1提问于2013-01-28得票数 0
5回答
我需要将一个“数字列”转换为34221个带有前导零的数字，比如342.21。预期最终结果为0000000000034221。我应该在vba中使用什么特定格式或代码来实现此目的？ 我正在尝试使用vba将excel文件转换为文本文件。最终结果的字段长度固定为16位，而“数字列”的长度可能会有所不同。希望你能帮助我。 非常感谢。
浏览 87提问于2019-03-29得票数 1
回答已采纳
我正在尝试编写一些VBA代码来生成一个文本文件，其中包含Access数据库(accdb)表中所有记录的SQL INSERT语句。该表有一个OLE对象字段和一个二进制字段。我似乎不能将它们正确地写入文本文件；我通常会得到问号(？)。我一直在寻找解决方案，找到了一些可能的想法，但都没有奏效。 如果任何人有任何建议，我将非常感谢您能提供的任何帮助。 米格尔
浏览 50提问于2020-07-16得票数 0
回答已采纳
我不是MS Access的专家，我得到了一个文本文件，基本上有超过十万条记录，并已被要求加载到MS access数据库中的文本文件。据我所知，我首先使用普通的加载文本文件命令将该文本文件上传到MySQL数据库中，它就像预期的那样工作。然而，在Access 2003中，当我进入文件菜单获取外部数据并浏览文本文件时，它在我选择文件后什么也不做。
我尝试过通过SQL转储加载，我创建了一个表，切换到SQL查询，但我不能复制粘贴其中的所有insert命令，事实上，它显示值太大而无法输入，并且我不能一个接一个地粘贴，因为记录数很大。
有人能帮上忙吗？我会很感激的。
浏览 2提问于2010-09-08得票数 1
我正在尝试用MSAccess Vba代码导入一个文本文件，如下所示
DoCmd.TransferText acImportDelim, "", "TableName", FileName, True, ""
正在导入的文件中没有任何标头。它是一个逗号分隔的文件，只包含数据。表中有列名。现在，我想将该文件导入到此表中。当我尝试使用上面的代码导入该文件时，它抛出一个错误，无法在表中找到列'X‘。(其中X是输入文件中数据的第一行，第一列)。请向我推荐一些解决方案或示例。非常感谢您的帮助。
浏览 0提问于2011-09-23得票数 0
回答已采纳
我正在尝试创建一个文本文件来存储文件夹路径。然后通过vba子引用这个文本文件。我想使用的路径如下：
"C:\Users\" & Environ("username") & "\AppData\Roaming\Microsoft\Templates"
这在子程序中很好，但是我尝试过文本文件中的各种变体，但是没有一个被识别并触发错误52 -坏文件。
有办法让这件事成功吗？我试图允许人们在不需要修改代码的情况下设置不同的文件路径。
浏览 0提问于2018-10-21得票数 0
回答已采纳
我有一个名为my_date.txt的文本文件，其中包含以下数据：
1 Adam
2 Steve
3 Lisa
4 Josh
.....
文本文件可能很长。我试图将这个文本文件中包含的数据加载到C#中的一个数组中，这样我就可以进行操作了。在sas中，我只使用输入。在VBA中，我只是引用单元格，假设我是在excel中创建的。但在这里和C#在一起，我一点也不知道。
浏览 2提问于2014-04-10得票数 1
1回答
当我将一个表导入access时，我遇到了一件很奇怪的事情。
我试过用三种方法.
首先，我使用内置的功能导入表(从文本文件中)，并定义(并保存)运行tickety。
接下来，我通过创建一个宏来重新运行上传，但是引用我在上面保存的。
问题是，当我这样做的时候，一些导入规范并不有效，特别是，我要求一个字段有索引(没有重复)，但是当它用宏加载时，它会将字段索引回到默认位置，返回到"No“
我还尝试使用VBA (引用相同的)加载表，但遇到了同样的问题。
有人知道如何在基于规范文件的自动加载时维护索引的完整性吗？
浏览 2提问于2016-03-23得票数 1
回答已采纳
我是第一次接触excel vba。我想读取一个包含如下文本的文本文件：
John Smith Engineer Chicago
Bob Alice Doctor New York
Jane Smith Teacher St. Louis
所以，我想把它转换成一个二维数组，所以如果我真的打印(3，3)，它应该返回'Teacher‘。我能够将整个文件内容读取到一个字符串中，但在将其转换为像上面这样的2d数组时遇到了困难。请就如何继续进行提供建议。谢谢
浏览 0提问于2020-02-19得票数 0
目前，我已经设置了宏来自动化我的所有报告。但是，由于数据的大小，我的一些宏可能要花费5-10分钟。
我已经从Excel/VBA转移到Python/熊猫，用于数据分析和操作。我仍然使用excel进行数据可视化(即枢轴表)。
我想知道其他人如何使用python自动化他们的报告？你们是做什么的？关于我如何开始这个过程有什么建议吗？
我的大多数宏都执行以下操作-
导入文本文件
将原始数据粘贴到链接到枢轴表/图表的表中。
刷新工作簿
保存为新的
浏览 4提问于2018-07-24得票数 0
我使用的是Oracle SQL Developer 3.0。尝试弄清楚如何将查询结果导出到文本文件(最好是CSV)。右键单击query results窗口不会给出任何导出选项。
浏览 4提问于2010-11-13得票数 252
回答已采纳
3回答
我喜欢Eclipse的构建路径特性，但希望使其与我的ant build.xml保持同步。有没有办法从文本文件中自动导入Eclipse构建路径，或者将Eclipse构建路径导出到文本文件中，这样我就可以从ant中使用该文件了？(如果我可以找到一个文本文件，我就知道如何让ant使用该文件作为其javac构建路径)
浏览 0提问于2009-08-20得票数 18
回答已采纳
1回答
我正在与Excel和VBA并行工作，以便创建我希望用于MATLAB的txt文件。然而，我遇到了一些无法解决的格式问题。
例如，以下VBA
Open "example.txt" For Output As #1
For i = 1 To 5
Print #1, Sheets("Example").Cells(i + 3, 3)
Next i
实际上，它应该打印数字(实数)，但是MATLAB在读取这个示例.txt文件时遇到了困难。
VBA正在打印某些字符。我不知道如何删除VBA代码中的那些。
Example.txt在matlab中打开。注意
浏览 1提问于2020-12-01得票数 1
我尝试加载以下数据：
create table emp_data (fname varchar2(20), lname varchar2(20))
orgaization external(type oracle_loader default directory dir1
access parameters( records delimited by newline
NOBADFILES NOLOGFILES fields terminated by ','
(fname char,lname char))
location('t1.txt'))
parall
浏览 1提问于2013-06-05得票数 0
5回答
我试图使用VBA解析一个文本文档，并返回文本文件中给出的路径。例如，文本文件如下所示：
*Blah blah instructions
*Blah blah instructions on line 2
G:\\Folder\...\data.xls
D:\\AnotherFolder\...\moredata.xls
我希望VBA一次加载1行，如果它以*开头，那么移动到下一行(类似于被注释的行)。对于具有文件路径的行，我希望将该路径写入单元格，例如第一个路径为A2，下一个路径为B2，等等。
我希望能回答的主要问题是：
使用VBA读取文本文件的最佳/简单方法是什么？
我怎样才能一条条地
浏览 7提问于2012-07-17得票数 63
回答已采纳
由于Access 2013不再提供直接的源代码管理兼容性:如何将源代码控制集成到MS Access，特别是TFS？编辑: access2013 ->的工作流任何源代码系统都可以欣赏
我想到的第一件事是通过内置函数SaveAsText将所有对象导出到文本文件中，这对于数据库中的几乎每一项都是可用的。
Application.SaveAsText acModule, d.Name, sExportLocation & "Module_" & d.Name & ".txt"
我会用VBA函数加载、保存甚至签入普通文件。问题是:这个任务是
浏览 5提问于2015-04-21得票数 3
回答已采纳
2回答
我正在尝试自动添加新的文本文件，这些文件都具有相同的(已知的)布局。
使用制表符( TAB按钮)分隔各列。我的问题是，有没有可能在VBA中做到这一点？例如，在导入文本文件的access向导中？
我正在使用VBA中的DoCmd.TransferText方法。
浏览 0提问于2013-02-25得票数 7
回答已采纳
2回答
我的代码读取文件夹中的所有文本文件，将其转换为数组，并使用for cycle绘制每个数据的直方图，这是一个非常简单的stuf，但我希望将所有返回的直方图保存到一个pdf文件中。我知道它的功能：
plt.savefig('file.pdf')
工作，但由于它在一个for循环中，它将只保存最后一个，我的意思是它会覆盖它。有没有一个函数可以添加其他直方图，或者我应该修改代码？
浏览 1提问于2017-04-02得票数 3
我在VBA中为excel实现了一个基于用户输入(单元格的选择)的自动通信程序。这种用VBA编写的宏广泛使用VBA的listObject函数，即定义表(列表对象)。
Dim ClsSht As Worksheet
Set ClsSht = ThisWorkbook.Sheets("paragraph texts")
Dim ClsTbl As ListObject
Set ClsTbl = ClsSht.ListObjects(1)
以非常符合逻辑的方式访问代码中的表: ClsTbl现在是我想要获取数据的表。
myvariable= ClsTbl.listcolu
浏览 0提问于2018-05-22得票数 0
我有一个很长的sql查询，我正尝试将其放入VBA for Excel中。VBA for Excel对一行文本的长度有限制，看起来大约是1000个字符。我想要做的是将查询复制到一个文本文件中，并通过perl脚本运行它，然后输出到该文本文件中，并按照VBA所需的方式进行格式化。
我需要Perl将字符计数到1000，然后写(“& _)，然后换行符(")，然后重复这个过程，直到文件结束。空格或字符类型无关紧要。任何帮助都是非常感谢的。我会经常回来看看是否有人需要更多的信息。谢谢！
浏览 0提问于2012-12-27得票数 2
回答已采纳
1回答
MSXML2丢弃编码？
、、、、
我在将xml文件加载到'DOMDocument60‘时遇到了一些问题。它是一个保存为XML的纯文本文件。在VBA中加载后，它丢失了编码行。 有什么想法吗？在此之前，非常感谢， Dim MyDom As MSXML2.DOMDocument60
Set MyDom = New MSXML2.DOMDocument60
FILEL = "c:/temp/test.xml"
MyDom.Async = False
MyDom.validateOnParse = True
MyDom.Load (FILEL) 第一行 <?xml version="1.0
浏览 6提问于2019-01-15得票数 0
2回答
有没有一些代码可以让我序列化MS Access MDB文件中的所有对象。
所有的对象，如表定义、表数据、查询定义、报表定义、VB模块，都应该写入一个或多个文本文件。
没有必要逆转操作(但如果有就更好了)。我想将文本文件放到VCS中，这样我就可以跟踪更改并记录下来。
浏览 0提问于2009-08-17得票数 3
回答已采纳
1回答
我正在处理excel中的一个项目，我正在获取一个文本文件，读取该文本文件，并尝试从该文本文件中删除停用词。但是我在删除excel VBA中的停用词时遇到了麻烦。从研究中，我发现这在Java和PHP中是可能的，但我还没有找到专门用于excel VBA的。excel VBA中有没有删除停用词的功能？
浏览 3提问于2013-02-27得票数 1
1回答
我正在导出来自ms 2010中的2个查询的文本文件。查询来自不同的链接ODBC表(但表仅因数据、结构和数据类型相同而不同)。我为两个文件设置了导出规范，以utf-8编码方式导出文本文件.现在麻烦来了。当我导出查询并在记事本中打开它们时，一个查询在utf-8中，第二个查询在ANSI中。我不知道这是怎么可能的，当两个客户有相同的出口规格，它正使我疯狂。
这是我导出查询的VBA代码：
DoCmd.TransferText acExportDelim，"miniflow"，"qry01_CZ_test"，"C:\TEST_CZ.txt"，no DoCm
浏览 8提问于2014-04-03得票数 2
回答已采纳
2回答
我在Oracle 11g中有一个名为Name: Customer的表
ID|Name |Country
1 |Mark |USA
2 |Allan|UK
3 |James|USA
4 |Todd |UK
5 |Mike |UK
我有一个文本文件list.txt
ID
1
3
5
我需要在文本文件中导出结果
result.txt
1 |Mark |USA
3 |James|USA
5 |Mike |UK
基本上，我需要提取客户表中的记录ID 1,3,5并将其保存到文本文件(result.txt)中，这可以在存储过程或脚本中完成。
浏览 1提问于2013-09-11得票数 0
回答已采纳
我们已经有了VBA/EXCEL的代码库。哪个SonarQube插件可以在excel内部或外部以文本文件的形式分析VBA。如果可能，我们可以将VBA复制到.vba文本文件中。
如果没有，有没有其他工具可以帮助我们在这些语言上执行代码质量。
浏览 2提问于2016-04-19得票数 2
1回答
使日常程序自动化
、、
是否有一种方法可以在Excel中自动运行VBA来清理应用程序内部的文件？
每天我的办公室都要确认有50人准时上班。我们使用的调度软件允许我们运行一个报告并导出到4种文件类型: HTML、RTF、CSV和一个文本文件。对于我想做的事情，我决定使用逗号分隔的价值出口。我能够将CSV导入Excel，清理它，然后在MSSQL中导入结果。我想要做的是在没有任何人工交互的情况下运行该部分，而不是指定CSV的文件名。我喜欢的语言是C#，但我很灵活。
浏览 0提问于2014-09-27得票数 -3
一般情况下，要将文本文件中的内容复制到excel表格中，需要使用大量的vba代码。我期待着vba代码，它将复制文本文件中的每一行到excel表中的不同单元格。我找不到适合这种情况的参考资料..有没有人能对上述问题提出一些参考意见？
浏览 2提问于2013-06-06得票数 0
如何将从wcf服务接收到的字节数组转换为excel vba中的文本文件？
这就是我获取字节数组Dim结果的方法，变量result = service1.DownloadDocument()
在这段代码之后，我想编写将这个字节流写入文本文件的代码……
浏览 1提问于2013-06-07得票数 2
1回答
最佳Windows脚本工具
、、、、
我有一个简单的任务，获取一个文本文件并复制文本文件中的每个单词。因此，如果文本文件是“我爱煎饼”，我的输出需要是“我爱煎饼煎饼”。
我试过使用Word 2013和VBA。下面是我的代码：
Sub HLSConvert()
Set docNew = Documents.Add
Set origDoc = Documents.Open("c:\test\AllWords.txt")
Dim r As String
For Each sentence In ActiveDocument.StoryRanges
For Each W In
浏览 1提问于2016-03-14得票数 0
1回答
我正在尝试使用宏将excel输出表转换为文本文件，但是可以不使用分隔符来转换文件吗？我现有的代码只能保存为制表符分隔，但我正在上传文本文件的系统检测标签空间作为多余的字符。
下面是我现有的VBA代码：
Sub SaveAsTXT()
Dim parts As Variant
parts = Split(ActiveWorkbook.Name, ".")
parts(UBound(parts)) = ".txt"
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" &
浏览 2提问于2017-11-17得票数 0
回答已采纳
我有一个包含多个工作表的Excell工作簿。我想将所有工作表的文本导出到一个文本文件中。我见过多种解决方案(主要使用下面的VBA示例)将每个工作表导出为其自己的文本文件，但尚未找到将所有工作表导出为一个文本文件的解决方案。关于如何使用VBA (或者Python)实现这一点，您有什么想法吗？
Sub ExportSheetsToText()
Dim xWs As Worksheet
Dim xTextFile As String
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Copy
xTextFile = C
浏览 25提问于2017-01-19得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
