为什么我不能把记事本保存在界面

有两种方法：1.你直接在桌面右击新建文本文档写完直接保存就在桌面了。
2.写完记事本后点击文件另存为点击桌面保存就可以了。

唉，我家都不能保存txt文件了
啊啊啊啊啊啊啊，破电脑，不对，破系统

你先用VB打开EXCEL文件，然后将Text内的数据赋值到Excel的单元格内。

改一下文件和后缀名改成.Word;现在他应该是.txt试一下看看

应该很难恢复了，看看保存在那个盘根目录下面了，如果有备份过的话，C盘下的还原之后，也许会恢复。其他盘根下的就不行了。
我感觉你的文件应该不会太容易找回来了，建议还是通过其他途径找吧！

Private Sub Command1_Click()
Dim ExApp As New Excel.Application
Dim Exb As Excel.Workbook
Dim Exsh As Excel.Worksheet

Dim R1 As Excel.Range
ExApp.Workbooks.Open D\my ducuments\book1.xls
Set Exb = ExApp.Workbooks(1)
Set Exsh = Exb.Worksheets(Sheet1)
Exsh.Range(D4)=Text1.Text

ExApp.Workbooks.Close
ExApp.save
ExApp.Quit
Set ExApp = Nothing
End Sub

运行前要在菜单的“工程”-“引用”-找到Microsoft Excel 的lib库才可以运行