vb.net文件追加 vba以追加方式写入文件

vb.net .Excel 追加保存

 Sub Excel()

        Const FilePath As String = "C:\1.xls"   '文件名

        Dim ExApp As Object = CreateObject("Excel.Application")

        ExApp.Visible = True

        If Not IO.File.Exists(FilePath) Then

            ExApp.Workbooks.Add()

            ExApp.ActiveWorkbook.SaveAs(FilePath)

        Else

            ExApp.Workbooks.Open(FilePath)

        End If

        Dim Wk As Object = ExApp.ActiveWorkbook

        Dim iRow As Integer = Wk.ActiveSheet.Range("A65535").End(3).Row + 1

        '添加需要的代码

        Wk.ActiveSheet.Cells(iRow, 1).Value = "xxxxx"

        ExApp = Nothing

        Wk = Nothing

    End Sub

相关问答

Q1: VB.NET读写文本文件方法

工作需要 vb.net文件追加我需要使用对文本文件进行读写操作 编程需要完成如下工作

把程序执行错误追加到错误日志中

使巧巧读书网vb.net文件追加的编辑能够读取错误日志

记得以前使用vb vb.net文件追加的时候 对文本文件的操作挺麻烦的 特别是在写文件的时候 需要区分什么顺序文件 随机文件 很教材都专门针对文本文件的读写开辟vb.net文件追加了一个章节来讲解 够麻烦的vb.net文件追加了 现在使用 net读写文本文件 因为时间仓促 没来得及细看MSDN 同时受到 的思路影响 把问题复杂化了 在追加记录到文本文件尾部的时候就写不下去了 后来仔细看了一下MSDN中例子 问题终于得到了解决

好了下面进入正题 分别把中对文本文件进行读和写的通用操作做个示例 免得后来新手多走弯路

我们这里是对文件流进行操作 所以模块前面要加上

Imports System IO

写操作

使用System IO的StreamWriter 下面是代码

Dim strFilePath As String = SaveFileDialog FileName

Dim sw As StreamWriter = New StreamWriter（strFilePath True） true是指以追加的方式打开指定文件

For i = To j

temp = i ToString

sw WriteLine（temp）

sw Flush（）

Next

sw Close（）

sw = Nothing

首先要说明的是构造函数new

Public Sub New（path append Encoding）

path 要打开文件的完整路径 如果文件不存在则自动建立一个新的文件

append 缺省值为false 指示是否以追加方式打开指定文件 false——如果存在path指定的文件 则覆盖原文件 否则建立一个新文件 true——如果存在path指定的文件 则打开该文件 以追加数据的方式在文尾写数据 否则建立一个新文件

Encoding 缺省值为System Text Encoding Default 即使用系统缺省的编码 指示以什么样的编码写文件

WriterLine（str） 在文本中添加一个新行 同时在行尾加上回车换行符

读操作

Dim line As String

Dim sr As StreamReader = New StreamReader（strPath System Text Encoding Default）

Do While sr Peek（）

line = sr ReadLine（）

Loop

sr Close（）

sr = Nothing

构造函数new

Public Sub New（Path Encoding）

path 要打开文件的完整路径 如果文件抛出一个错误

Encoding 缺省值为System Text Encoding Default 即使用系统缺省的编码 指示以什么样的编码读文件

lishixinzhi/Article/program/net/201311/11973

Q2: vbnet如何判断目录下增加了文件

首先我们得判断文件/目录是否存在然后获取文件信息（创建时间）。有文件的获取时间了，就可以知道这个文件的创建时间，就能判断目录的文件是什么时候增加的，那么离自己最近的时间创建的的文件就是目录的增加文件了。

判断文件/目录是否存在

Try            ' 先判断文件是否存在。            If Not File.Exists(TextBox4.Text) Then

File.CreateText(TextBox4.Text) '单纯创建文件一般不常用，正常情况下是创建文件然后进行读写操作

'System.IO.File.Create(TextBox4.Text)            End If

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

获取文件信息（创建时间） FileDateTime(fii(i).FullName)     File.GetCreationTime(path)

System.IO.File.Create(Path)'创建文件

System.IO.File.CreateText(Path)'创建文件

System.IO.File.Copy(Path,targetPath)      '复制到新位置,不允许覆盖现有文件        也可以'FileCopy(TextBox4.Text, "C:" "\" file_name(UBound(file_name))) System.IO.File.Move(SourceFileName, DestFileName)

System.IO.File.Delete(Path)

'追加 System.IO.File.AppendText'替换

System.IO.File.Replace

Q3: VB.net 2008 如何以二进制的方式向文本文件中追加一个回车符

解决了，把 fr.Write(vbCrLf) 改成 fr.Write(CByte(vbCrLf))即可。

牛，为使用二进制的程序员鼓掌！

从来没用过的人问：为什么要用二进制啊，有啥好处？

Q4: VB.NET 打开Excel追加一行数据

VB.NET2008代码：

Dim xlapp1 As Excel.Application

Dim xlworksheet As Excel.Worksheet

Dim xlworkbk As Excel.Workbook

xlapp1 = New Excel.Application

xlworkbk = xlapp1.Workbooks.Open("Excel文件名")

xlworksheet = xlworkbk.Worksheets("Sheet名")

xlworksheet.Cells.Item(行编号, 列编号).value ="需要输入的数据"

xlworkbk.Close()

另外，xlworksheet.UsedRange.Rows.Count是最大行数，可以用这个算行编号。

注意，需要引用Microsoft Excel Object Library（在COM的那个选项卡里）。

关于vb.net文件追加和vba以追加方式写入文件的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。