如何利用VBA代码创建文件并写入数据 |
您所在的位置:网站首页 › vba编程教学视频 › 如何利用VBA代码创建文件并写入数据 |
分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.183-NO.184内容是: NO. 193:在VBA中使用CreateTextFile方法创建文件并将工作表数据写入到文件内 NO. 194:在VBA代码中使用OpenTextFile方法创建一个指定名称的文本文件并将工作表数据写入到文件内。 VBA过程代码193:在VBA中使用CreateTextFile方法创建文件并将工作表数据写入到文件内 Sub mynz () Dim MyFile As Object Dim myStr As String Dim j As Integer, i As Integer Set MyFile = CreateObject("Scripting.FileSystemObject") _ .CreateTextFile(ThisWorkbook.Path & "\" & "人员表单.txt", True) For i = 1 To Range("A65536").End(xlUp).Row myStr = "" For j = 1 To Range("IV"& i).End(xlToLeft).Column myStr = myStr & Cells(i, j) & "," Next myStr = Left(myStr, (Len(myStr) - 1)) MyFile.WriteLine (myStr) Next MyFile.Close Set MyFile = Nothing End Sub 代码解析:mynz过程使用CreateTextFile方法创建一个指定名称的文本文件并将工作表数据写入到文件内。代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile后使用CreateTextFile方法创建一个指定名称的文本文件。WriteLine方法将当前行数据写入到创建的文本文件,使用Close方法关闭打开的文本文件。 VBA过程代码194:在VBA代码中使用OpenTextFile方法创建一个指定名称的文本文件并将工作表数据写入到文件内。 Sub mynz () Dim MyFile As Object Dim myStr As String Dim j As Integer, i As Integer Set MyFile = CreateObject("Scripting.FileSystemObject") _ .OpenTextFile(ThisWorkbook.Path & "\" & "人员表单.txt", 8, True) For i = 1 To Range("A65536").End(xlUp).Row myStr = "" For j = 1 To Range("IV" & i).End(xlToLeft).Column myStr = myStr & Cells(i, j) & "," Next myStr = Left(myStr, (Len(myStr) - 1)) MyFile.WriteLine (myStr) Next MyFile.Close Set MyFile = Nothing End Sub 代码解析:mynz过程使用OpenTextFile方法创建一个指定名称的文本文件并将工作表数据写入到文件内。示例中将OpenTextFile方法的iomode参数设置为8,打开文本文件后在文件的尾部进行追加操作;将create参数设置为True,如果指定的文本文件不存在则创建一个新文件。 VBA是实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,现推出了四部VBA教程,这些是我多年编程经验的记录,也是我“积木编程”思想的体现。每一讲都是较大块的“积木”,可以独立的完成某些或者某类的过程。利用这些可以提高自己的编程效率。 其一:“VBA代码解决方案”PDF教程,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点,是初学及中级以下人员必备; 其二“VBA数据库解决方案”PDF教程,数据库是数据处理的利器,对于中级人员应该掌握这个内容了。 其三“VBA数组与字典解决方案”PDF教程,讲解VBA的精华----字典,是我们打开思路,提高代码水平的必备。 其四“VBA代码解决方案”视频教程。目前正在录制,“每天20分钟,半年精进VBA”,越早参与,回馈越多。现在录制到第三册的111讲,以上各教程的代码都是经过实测,可以拿来即用。 非常时期,多提高自己,是正道。 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |