表格内填写数字，自动生成此数字为文件名的文本文档

qunzhujunjun

在B2和D2输入需要的日期后，按下“按钮1”，自动复制绿色表格内的数据（固定为G3-H15），并生成文本文档，复制的内容自动粘贴到文本文档内并保存到桌面，文件自动命名为：10月18日成绩，即B2+C2+D2+E2+F2合起来生成文件名。如何编写代码，谢谢！

笑着...两年过去

桌面的路径是什么？

719404338

1. Sub t()
   
2. Dim i%, Arr
   
3. Arr = [g3:h15]
   
4. Open "C:\Users\Administrator\Desktop" & [b2] & [C2] & [d2] & [E2] & [F2] & ".txt" For Output As 1
   
5. For i = 1 To UBound(Arr)
   
6. Print #1, Arr(i, 1) & Arr(i, 2)
   
7. Next i
   
8. Close #1
   
9. End Sub

复制代码

笑着...两年过去

1. Sub test()
   
2.   Open CreateObject("WScript.Shell").SpecialFolders("Desktop") & "" & [b2] & "月" & [d2] & "日成绩.txt" For Output As #1
   
3.   For i = 3 To [g9999].End(xlUp).Row
   
4.     Print #1, Cells(i, "g") & "-" & Cells(i, "h")
   
5.   Next
   
6.   Close #1
   
7. End Sub

复制代码

Chip_Kenny

1. Sub zz()
   
2. Dim ar, p$
   
3. ar = [g3:h15]
   
4. For i = 1 To UBound(ar)
   
5.     For j = 1 To UBound(ar, 2)
   
6.         s = s & ar(i, j)
   
7.     Next
   
8.     s = s & vbCrLf
   
9. Next
   
10. Open CreateObject("WScript.Shell").SpecialFolders("Desktop") & "" & [B2] & [C2] & [D2] & [E2] & [F2] & ".txt" For Output As 1
    
11. Print #1, s: Close #1
    
12. End Sub

复制代码

Chip_Kenny

又忘了EH食了"斜棟"的bug,還是上圖好點。

qunzhujunjun

Chip_Kenny 发表于 2018-10-18 16:55

能帮忙上传一下附件吗，我怎么弄都不成功

qunzhujunjun

719404338 发表于 2018-10-18 16:32

能帮忙上传一下附件吗，我怎么弄都不成功

qunzhujunjun

Chip_Kenny 发表于 2018-10-18 16:59
又忘了EH食了"斜棟"的bug,還是上圖好點。

成功了，图片上有个 /  感谢您

qunzhujunjun

Chip_Kenny 发表于 2018-10-18 16:59
又忘了EH食了"斜棟"的bug,還是上圖好點。

遇到2个问题
1：原 G3-H15 更改为 Sheet3里面的G3-H15
2：G3-H15之间若有空行，怎么在文本文档里自动去除空行。谢谢！