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
    评论
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的...
vba 创建txt文件 并且写入字符串
Memory1011的博客
11-25 1008
转自：http://www.pinlue.com/article/2020/05/1216/0210507855532.html
VBA创建文本文件
豪情云天博客,分享经典好用代码,和工具,感谢大家的关注和支持!
05-24 656
【代码】VBA创建文本文件。
VBA新建文件夹
最新发布
豪情云天博客,分享经典好用代码,和工具,感谢大家的关注和支持!
06-05 280
【代码】VBA新建文件夹。
python创建txt文件并写入_如何利用VBA代码创建文件并写入数据
weixin_39527292的博客
11-28 405
分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.183-NO.184内容是：NO. 193：在VBA中使用CreateTextFile方法创建文件并将工作表数据写入到文件内NO. 194：在VBA代码中使用OpenTextFile方法创建一个指定名称的文本文件并将工作表数据写入到文件内。V...
VBA文本文件（二十）
weixin_30686845的博客
08-13 209
还可以读取Excel文件，并使用VBA将单元格的内容写入文本文件。VBA允许用户使用两种方法处理文本文件 - 文件系统对象(FSO) 使用Write命令 文件系统对象(FSO) 顾名思义，FSO对象帮助开发人员使用驱动器，文件夹和文件。 在本节中，我们将讨论如何使用FSO。 编号对象类型描述 1 Drive Drive是一个对象。 包含收集...
MF系列技术资料MF32：VBA_创建文本文件并写入内容
VBA语言専攻
07-08 273
如果您获得我的全部教程+手册+工具（NZ,YZ），那么您可以获得我提供的所有MF系列技术资料，如果您还不是我的学员，您可以选择分享。恰逢#今日端午# 佳节，礼敬南无本师释迦牟尼佛，唯愿一切有情众生，平安吉祥，事事顺心，福慧双增。点击按钮后，会把工作表中的单元格内容以文本文件的格式备份，或者您修改代码以期望获得您自己需要的备份文档内容。各个系列的工具，在平台上不会公布代码，大家可以根据自己的需要联系我选择。从简单的入门，到数据库，到字典，到高级的网抓及类的应用。效率，而且可以提高数据的准确度。
CreateTextFile 方法资料(VBA)
燕儿尾的博客
04-10 1395
描述 创建一个指定的文件名并且返回一个用于该文件读写的 TextStream 对象。 语法 object.CreateTextFile(filename[, overwrite[, unicode]]) CreateTextFile 方法有如下几部分： 部分 描述 object 必需的。始终是一个 FileSystemObject 或 Folder
learning microstation vba 配套源代码及附属文件
01-12
在VBA中，可以方便地读写这些文本文件，用于记录程序状态、调试信息或是与其他系统交换数据。 在“VBA CD Contents”这个压缩包中，我们可以期待找到关于MicroStation VBA编程的全面资源，包括示例代码、教程文档、...
VB读写INI文件
01-13
INI文件是早期Windows系统中广泛使用的配置文件格式，它以纯文本形式存储数据，结构简单，易于读写。 标题“VB读写INI文件”指的是使用VB进行INI配置文件的操作。以下是一些关于VB读写INI文件的核心知识点： 1. **...
EXCEL VBA 读取文本文件宏
05-12
EXCEL VBA 读取文本文件宏EXCEL VBA 读取文本文件宏EXCEL VBA 读取文本文件宏
VBA使用FileSystemObject将读取或写入文本文件
08-31
VBA使用FileSystemObject将读取或写入文本文件
VBA技巧学习示例文件.zip
08-16
8. **第10章 文件操作**：文件操作在VBA中非常重要，这包括读写文本文件、CSV文件，甚至Excel自身的XLS或XLSX文件。这部分将教你如何利用VBA进行文件的创建、打开、保存和关闭，以及数据的导入和导出。 9. **第8章 ...
VBA来创建一个新的 Excel 文件
marst437730201的博客
02-26 1277
其他的宏指令执行的前提条件是创建一个新的xlsx文件,来存储操作完成后的结果.否则会因为缺少操作对象,出现1004错误.
VBA读取可选择文件夹下可选择txt文件内容
weixin_30482181的博客
07-18 295
Sub OneTxt() '打开一个txt文件 Dim Filename As Variant, extLine&, mArr() As String Dim i%, j% ChDir ThisWorkbook.Path Filename = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "请选...
VBA读取固定文件夹中txt内容
weixin_30600197的博客
07-18 403
Sub OneTxt() '打开一个txt文件 Dim Filename As Variant, extLine&, mArr() As String Dim i%, j%, txtpath As String Dim txtname As Variant ChDir ThisWorkbook.Path txtpath = "D:\Us...
VBA 读取TXT文件
Lab2013
05-15 6790
Public Sub ReadTxt() Const ForReading = 1, ForWriting = 2, ForAppending = 3 Dim FileObj Dim TextObj Dim TmpPath As String TmpPath = "d:\test.txt" Set FileObj = CreateObject("S
Excel 中 VBA 常用的操作文本文件的方法
SouthKing
11-26 1280
1、调用脚本对象 Sub WriteTxt1()       Set fs = CreateObject("Scripting.FileSystemObject")       Set f = fs.CreateTextFile("path\filename", True)       f.WriteLine ("Text Message.")       f.writeline(cel...
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、付费专栏及课程。

余额充值