送分80分:如何根据一些内容直接生成一个文件。

Question

步骤如下：
1、将某文本框中的TEXT复制到粘贴板。
2、在粘贴板中复制的TEXT内容前加上：“文件名称：”
3、根据粘贴板此时的内容直接在桌面上生成一个文件名为“1.TXT”的文件。

Answer 1

不用那么复杂，这样就可以Private Sub Command1_Click()
    Open "E:\1.txt" For Output As #1   '建文件的路径和文件名可以根据实际自己修改
    Print #1, "文件名称：" & Text2   '在第一行输入文件名称
    
    Print #1, Text1   '在第二行输入内容
    Close #1  '关闭
End Sub

Answer 2

莫非ＬＺ是想操作剪切板？
Clipboard.clear
Clipboard.getdata
Clipboard.getformat
Clipboard.gettext
Clipboard.setdata
Clipboard.settext
……

Answer 3

Private Sub Command1_Click()
  VB.Clipboard.Clear
  VB.Clipboard.SetText Text1.Text
  VB.Clipboard.SetText "文件名：" & VB.Clipboard.GetText
  Open Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\桌面\1.TXT" For Output As #1
  Print #1, VB.Clipboard.GetText: Close #1  MsgBox "OK"
  
End Sub

Answer 4

Private Sub Command1_Click()
  VB.Clipboard.Clear
  VB.Clipboard.SetText Text1.Text
  VB.Clipboard.SetText "文件名：" & VB.Clipboard.GetText
  Open Environ$("userprofile") & "\桌面\1.TXT" For Output As #1
  Print #1, VB.Clipboard.GetText: Close #1
  MsgBox "OK"
  
End Sub

Answer 5

Option Explicit
Dim DeskPath$, Fname$, WshShell
Private Sub Command1_Click()
   DeskPath = GetDeskPath & "\" '获取桌面路径
   Fname = DeskPath & "1.txt" '赋值目标文件名
   Clipboard.Clear '清除剪切板缓存数据
   Clipboard.SetText Text1.Text '将目前Text1内容黏贴进剪切板
   Open Fname For Output As #1 '打开准备写入的文件
   Print #1, "文件名称:" & Clipboard.GetText '写入前先加上 "文件名称:" 再加上剪切板内容
   Close #1 '关闭文档
End SubPublic Function GetDeskPath() As String '获取桌面路径
   Set WshShell = CreateObject("Wscript.shell")
   GetDeskPath = WshShell.SpecialFolders("DeskTop") & "\"
End Function

Answer 6

更正:DeskPath = GetDeskPath '获取桌面路径