VBA创建文本文件、读写文本文件

最新推荐文章于 2024-06-05 07:46:41 发布
最新推荐文章于 2024-06-05 07:46:41 发布
阅读量2w 收藏 7
点赞数 1
文章标签： vba object string
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/merry1205/article/details/5786273
版权

Private Sub CommandButton1_Click()
    Dim gPath As String
    Dim sFile As Object, Fso As Object
   
    gPath = Application.ActiveWorkbook.Path
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set sFile = Fso.CreateTextFile(gPath & "/TestFile.txt", True)
    sFile.WriteLine ("CreateTextFile Test")
    sFile.WriteLine ("CreateTextFile Test1")
    sFile.WriteLine ("CreateTextFile Test2")
    sFile.WriteLine ("CreateTextFile Test2")
    sFile.Close
    Set sFile = Nothing
    Set Fso = Nothing

 
End Sub

 

merry1205
关注
  • 1
    点赞
  • 踩
  • 7
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
vbs脚本：CreateTextFile
StarFish的专栏
08-09 1166
Rem : =========== 创建文本文件 Rem : =========== 不能有同名的文件或文件夹 Rem : =========== 父文件夹必须存在 Sub CreateTextFile( file ) Dim f f = Trim( file ) If Right(f,1) = "/" Then f = Left(f,Len(f) -1 ) If fso.fileexists(f) = True Or fso.folderexists(f) = Tr
VBA 读取文本文件
ecjtuAndy的专栏
05-05 4789
Excel在我们的日常办公中，用到非常多。因此，对于它的脚本VBA的使用，难免也比较频繁。在此总结、整理下之前写过的一段VBA读取MAP文件，统计ECU存储空间使用情况的部分代码。 该段程序，先使用Collection集合类装载读取的数据，最后统一写入将数据按照期望的格式，写入Excle表格中。这样一次性读取、写入，可以避免多次在读MAP文件和写Excel文件之间切换，增加系统资源开销。
vba 创建txt文件 并且写入字符串
Memory1011的博客
11-25 1008
转自：http://www.pinlue.com/article/2020/05/1216/0210507855532.html
VBA创建文本文件
豪情云天博客,分享经典好用代码,和工具,感谢大家的关注和支持!
05-24 657
【代码】VBA创建文本文件。
VBA新建文件夹
最新发布
豪情云天博客,分享经典好用代码,和工具,感谢大家的关注和支持!
06-05 280
【代码】VBA新建文件夹。
VBS教程：创建txt文件
阳光心态，健康人生的博客
10-29 1万+
关于在C，C++里面我们学习了创建文件的方法，非常之繁琐，然而在VBS里卖弄却异常的简单和方便，那么让我们看一看怎么做到的，看代码dim fso,testfile set fso = createobject("scripting.filesystemobject") ‘指明一个对象 set testfile = fso.createtextfile("d:\nice.txt",true) ’指明
VBS读写文件以及OpenTextFile方法
zhangrenfang的专栏
01-14 2万+
文件的创建： FSO 让你可以用现存在的文本工作，也可以让你自己创建脚本。为了创建一个新的文本文件，简单的创建一个 FSO 对象，然后调用 CreateTextFile 方法，输入完整的文件路径信息作为这个方法的参数 例如：（在c:\windows文件夹创建一个xxwl.ini文件） Set objFSO = CreateObject("Scripting.FileSystemObject") S
MF系列技术资料MF32：VBA_创建文本文件并写入内容
VBA语言専攻
07-08 273
如果您获得我的全部教程+手册+工具（NZ,YZ），那么您可以获得我提供的所有MF系列技术资料，如果您还不是我的学员，您可以选择分享。恰逢#今日端午# 佳节，礼敬南无本师释迦牟尼佛，唯愿一切有情众生，平安吉祥，事事顺心，福慧双增。点击按钮后，会把工作表中的单元格内容以文本文件的格式备份，或者您修改代码以期望获得您自己需要的备份文档内容。各个系列的工具，在平台上不会公布代码，大家可以根据自己的需要联系我选择。从简单的入门，到数据库，到字典，到高级的网抓及类的应用。效率，而且可以提高数据的准确度。
VBA按行读取TXT文本文件
热门推荐
徐坤的博客
10-12 3万+
VBA按行读取TXT文本文件 文件格式 窗口上添加一个文本控件 TextBox1 属性设置 MultiLine ：True ScrollBars ：3 - fmScrollBarsBoth 代码如下： Private Sub CommandButton1_Click() Dim strTxt() As String Dim strRight() As String Dim str...
VBA的Excel文件读写操作.zip
06-24
在这个"VBA的Excel文件读写操作.zip"中，我们可以看到一个例子，演示了如何使用VBA从TXT文件导入数据到Excel，基于日期或特定条件查询数据，以及自动生成曲线图。 首先，我们关注的是将TXT文档的数据导入到Excel的...
learning microstation vba 配套源代码及附属文件
01-12
在VBA中，可以方便地读写这些文本文件，用于记录程序状态、调试信息或是与其他系统交换数据。 在“VBA CD Contents”这个压缩包中，我们可以期待找到关于MicroStation VBA编程的全面资源，包括示例代码、教程文档、...
VB读写INI文件
01-13
INI文件是早期Windows系统中广泛使用的配置文件格式，它以纯文本形式存储数据，结构简单，易于读写。 标题“VB读写INI文件”指的是使用VB进行INI配置文件的操作。以下是一些关于VB读写INI文件的核心知识点： 1. **...
VBA使用FileSystemObject将读取或写入文本文件
08-31
VBA使用FileSystemObject将读取或写入文本文件
VBA技巧学习示例文件.zip
08-16
8. **第10章 文件操作**：文件操作在VBA中非常重要，这包括读写文本文件、CSV文件，甚至Excel自身的XLS或XLSX文件。这部分将教你如何利用VBA进行文件的创建、打开、保存和关闭，以及数据的导入和导出。 9. **第8章 ...
Excel·VBA选中区域保存为txt文本
hhhhh_51的博客
04-28 6322
vba代码有3种写法，都可实现，适用单/多列选中、单/多列部分选中，选中区域内容保存为一个txt文件
File.CreateText创建文件并写入文本
果vinegar的博客
10-10 1万+
最近在网上看到许多关于创建文件并写入文本的博文，大概都是以下的方法： 创建一个新文本文件并写入一个字符串: using System; using System.IO; public class TextToFile { private const string FILE_NAME = "MyFile.txt"; public static void Main(String[] args) {
vba在文本文件中间插入行
07-16
要在VBA中在文本文件中间插入行，你可以使用FileSystemObject对象来读取和写入文件。下面是一个示例代码，演示如何在文本文件的指定行之后插入新行： ```vba Sub InsertLineInFile() Dim filePath As String Dim lineToInsert As String Dim lineToFind As String Dim tempFilePath As String Dim tempFileName As String ' 设置文件路径 filePath = "C:\path\to\your\file.txt" ' 设置要插入的行 lineToInsert = "This is the new line to insert" ' 设置要找到的行 lineToFind = "This is the line after which you want to insert the new line" ' 创建FileSystemObject对象 Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") ' 检查文件是否存在 If Not fso.FileExists(filePath) Then MsgBox "文件不存在!" Exit Sub End If ' 创建一个临时文件以保存修改后的内容 tempFilePath = fso.GetParentFolderName(filePath) tempFileName = fso.GetBaseName(filePath) & "_temp" & fso.GetExtensionName(filePath) ' 打开原始文件和临时文件 Dim originalFile As Object Set originalFile = fso.OpenTextFile(filePath, 1) ' 1 表示只读模式 Dim tempFile As Object Set tempFile = fso.CreateTextFile(tempFilePath & "\" & tempFileName, True) ' True 表示创建新文件 ' 逐行读取原始文件并写入临时文件 Do Until originalFile.AtEndOfStream Dim line As String line = originalFile.ReadLine ' 找到要插入行的位置 If line = lineToFind Then ' 在找到的行之后插入新行 tempFile.WriteLine line tempFile.WriteLine lineToInsert Else ' 其他行直接写入临时文件 tempFile.WriteLine line End If Loop ' 关闭文件 originalFile.Close tempFile.Close ' 删除原始文件并重命名临时文件为原始文件名 fso.DeleteFile filePath fso.MoveFile tempFilePath & "\" & tempFileName, filePath MsgBox "新行已成功插入文件!" End Sub ``` 请确保将上述代码中的`filePath`、`lineToInsert`和`lineToFind`替换为你实际的文件路径、要插入的行和要找到的行。 此代码将在指定行之后插入新行，并将修改后的内容保存回原始文件中。请注意，在处理大型文件时，此方法可能会对性能产生一些影响。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值