|
本帖最后由 无为123456 于 2016-1-5 14:53 编辑
请问:如何修改宏将TXT文件保存在桌面上
'将sheet1表中的数据写入到文本文本中
Sub 转换成txt文件()
Dim f, arr, x, y, k, , rw&
f = ThisWorkbook.Path & "\" & "临时文本" & ".txt"
arr = Sheets("sheet1").Range("a1").CurrentRegion
rw = Sheets("sheet1").Cells(Rows.Count, 1).End(3).Row
Open f For Output As #1
For x = 1 To UBound(arr)
Print #1, arr(x, 1)
Next x
Close #1
MsgBox "已将sheet1表中的数据写入到文本文件临时文本中!"
End Sub
- Sub 转换成txt文件()
- Dim f, arr, x, y, k, sr$, rw&
- sr = Sheets("sheet2").Range("a2").Value
- f = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "" & sr & ".txt"
- arr = Sheets("sheet1").Range("a1").CurrentRegion
- rw = Sheets("sheet1").Cells(Rows.Count, 1).End(3).Row
- Open f For Output As #1
- For x = 1 To UBound(arr)
- Print #1, arr(x, 1)
- Next x
- Close #1
- MsgBox "已将sheet1表中的数据写入到文本文件" & sr & "中!"
- End Sub
复制代码
|
|