[已解决]如何使宏生成的文件保存在相应文件夹内

无为123456

如何调整使宏生成的文件保存在“C:\Users\Administrator\Desktop\导出文本”文件夹内

谢谢
Sub 重复数据转换成txt文件()

  '将筛选表中的数据写入到文本文本中


    Dim f, arr, x, y, k, rw&
   f = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "重复数据" & ".txt"

   arr = Sheets("重复数据").Range(Cells(2, 2), Cells([F1], 2))
    rw = Sheets("重复数据").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 "已将筛选表中的数据写入到文本文件股票导出中！"


  End Sub

最佳答案

月排行榜 / 总排行榜

七彩屋

2016-8-21 16:54

Sub 重复数据转换成txt文件()

  '将筛选表中的数据写入到文本文本中


    Dim f, arr, x, y, k, rw&
f = "C:\Users\Administrator\Desktop\导出文本\" & "重复数据" & ".txt"

   arr = Sheets("重复数据").Range(Cells(2, 2), Cells([F1], 2))
    rw = Sheets("重复数据").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 "已将筛选表中的数据写入到文本文件股票导出中！"


  End Sub

跳转到最佳答案楼层

七彩屋

f = Environ("USERPROFILE") & "\desktop\导出文本\" & "重复数据" & ".txt"

无为123456

运行时错误76，路径未找到Open f For Output As #1

七彩屋

测试过是可以运行的
可能你的桌面没有“导出文本”这个文件夹

七彩屋

Sub 重复数据转换成txt文件()

  '将筛选表中的数据写入到文本文本中


    Dim f, arr, x, y, k, rw&
f = "C:\Users\Administrator\Desktop\导出文本\" & "重复数据" & ".txt"

   arr = Sheets("重复数据").Range(Cells(2, 2), Cells([F1], 2))
    rw = Sheets("重复数据").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 "已将筛选表中的数据写入到文本文件股票导出中！"


  End Sub

无为123456

谢谢七彩屋，已解决

可能你的桌面没有“导出文本”这个文件夹