[已解决]更改数据保存路径

kandhong · 发表于 2017-5-3 14:47

本帖最后由 kandhong 于 2017-5-4 09:58 编辑

老师：
我想请教的是：更改数据保存路径。
原文中有VBA：
------------------------------------------------------------------
sub 数据保存()
Dim arr, i&, j&, s$, f
For WJ = 1 To 2
    f = ThisWorkbook.Path & "\" & Format(WJ, "00") & ".txt"
Range("ac97") = WJ
Open f For Output As #1
arr = Range("i2:i24")
For i = 1 To UBound(arr)
      s = arr(i, 1)
      For j = 2 To UBound(arr, 2)
         s = s & vbTab & arr(i, j)
      Next
      Print #1, s
Next
Close #1
Next WJ
End Sub
-----------------------------------------------------------------------
  VBA实现的效果是：将i2:i24的数据保存到该文件所在的文件夹中。
  我想请老师把数据保存路径更改为："桌面菜单"下"01文件夹"中。

指定文件夹保存.rar (7.98 KB, 下载次数: 9)

苏子龙 · 发表于 2017-5-3 15:01

自己不是用红色提示了吗，改那里就可以了吧，祝你好运

france723 · 发表于 2017-5-3 15:16

这个最佳答案由 france723 给出，感谢 france723 的回答。

单击隐藏图章

f= CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\01文件夹" & "" & Format(WJ, "00") & ".txt"

复制代码

kandhong · 发表于 2017-5-3 15:30

france723老师：
复制代码后，出现错误，如图所示了：

france723 · 发表于 2017-5-3 15:37

kandhong 发表于 2017-5-3 15:30
france723老师：
复制代码后，出现错误，如图所示了：

我没有提示错误, 你桌面那个文件确定叫"01文件夹"?

kandhong · 发表于 2017-5-3 15:58

france723 老师：
我想表达的意思是：把i2:i24数据保存到桌面上，一个名称为01的文件夹里面。

france723 · 发表于 2017-5-3 15:59

kandhong 发表于 2017-5-3 15:58
france723 老师：
我想表达的意思是：把i2:i24数据保存到桌面上，一个名称为01的文件夹里面。

f= CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\01" & "" & Format(WJ, "00") & ".txt"

复制代码

kandhong · 发表于 2017-5-3 16:14

france723 老师：
还是不行，我把文件发给你，帮忙看一下！

指定文件夹保存.rar (8.22 KB, 下载次数: 9)

france723 · 发表于 2017-5-3 16:31

本帖最后由 france723 于 2017-5-3 16:33 编辑

kandhong 发表于 2017-5-3 16:14
france723 老师：
还是不行，我把文件发给你，帮忙看一下！

你桌面的文件夹名字叫 "01", 里面该清空清空

kandhong · 发表于 2017-5-3 16:43

france723 老师：
我用的是excel2003，这是不是出现错误的原因呀？

		自动登录	找回密码
密码			注册

[已解决]更改数据保存路径

评分