如何使用VBA和Access 97复制并粘贴到文件?

时间:2011-08-16 17:48:15

标签: ms-access vba append

我终于设法连接VBA和类似telnet的终端。 现在我需要将一些屏幕复制到TXT文件。 问题是我无法使用附加到文件代码:

Dim inputString As String = "This is a test string."
My.Computer.FileSystem.WriteAllText _
("C://testfile.txt", inputString, True)

它只适用于使用Access 97的VBA - 每次我删除它要求a =或a的代码时它都没有任何意义。

我知道可以将值发送到表格然后将其导出为TXT文件,这实际上就是我现在正在做的事情:

rsttbl1!line01 = .copy(5, 38, 43)
rsttbl1!line02 = .copy(6, 38, 43)
rsttbl1!line03 = .copy(7, 38, 43)
rsttbl1!line04 = .copy(8, 38, 43)
rsttbl1!line05 = .copy(9, 38, 43)

但这太费时了。 我很确定这是可能的,但我找不到任何参考。 而我所能找到的所有@ microsoft.com似乎都没有用。

1 个答案:

答案 0 :(得分:1)

我有点困惑,你引用了.NET函数并且正在谈论VBA for Access '97。

但是,在.NET中附加一个文件:

Imports System.IO 'Add to Imports section, can call it explicit if you'd like. System.IO.StreamWriter

    Dim writer As New StreamWriter("C:\test.txt", True)
    writer.WriteLine("Testing...")
    writer.Close()

至于 Classic VBA示例:

Open "C:\test.txt" For Append As #1
    Print #1, "Testing..."
Close #1