vba 读取txt文件文本，并发送到系统剪贴板

tanxiaohui

各位老师，我想通过 vba 读取一个 txt文件的文本，并将文本发送到 系统 的剪贴板，使之能用于粘贴到其他程序（比如记事本、word等）的文本中，我写的代码如下

Private Sub Commanon1_Click()
Dim txtLine
Dim FileObj
Dim TextObj
Dim FilePath
FilePath = "C:\text1.txt"
Set FileObj = CreateObject("Scripting.FileSystemObject")
Set TextObj = FileObj.OpenTextFile(FilePath)
Do While Not TextObj.AtEndOfLine
txtLine = txtLine & Chr(13) & TextObj.ReadLine
Loop
Dim mydata As New DataObject
mydata.SetText txtline
mydata.PutInClipboard
End Sub

这段代码如果将 loop后面的改为 msg txtline ,  显示到msg对话框是可以的，但就是不能用于系统剪贴板。请老师们看看，错在哪里。

还有要请教一下，如何将一个 txt 文件的文本清空？如何写？

zjdh

在运行代码前，如何将 text1.txt 文件的文本清空？
清空了还运行代码复制啥？？

tanxiaohui

zjdh 发表于 2015-12-23 18:54
在运行代码前，如何将 text1.txt 文件的文本清空？
清空了还运行代码复制啥？？

我只是想知道用vba如何删除一个txt文件的内容，而不是删除这个txt文件，请指导一下

tanxiaohui

zjdh 发表于 2015-12-23 18:54
在运行代码前，如何将 text1.txt 文件的文本清空？
清空了还运行代码复制啥？？

大师，恳请指导一下

zjdh

没有什么捷径，若要清除文件内的内容，只有建立一个空文件覆盖源文件；
若要删除源文件的某一行，只有将数据读出，再建一个新文件逐条写入（排除不需要的内容或行），用新文件覆盖源文件。