将数据导出到 csv 并在计算机配置文件名称后重命名

Posted 2023-04-19

【中文标题】将数据导出到 csv 并在计算机配置文件名称后重命名

【英文标题】：export data onto csv and rename after computer profile name

【发布时间】：2013-07-24 05:33:59

【问题描述】：

我想将我的 excel 文件中的数据导出到保存在文件夹 S:\froyo\ics 中的 csv 文件中。我想以我的计算机配置文件名称命名 csv 文件。我目前使用下面的代码，但我没有正确命名部分。

子 csvfile()

Dim fs As Object, a As Object, i As Integer, s As String, t As String, l As String, mn As String
Set fs = CreateObject("Scripting.FileSystemObject")
sUser = Environ("username")
Set a = fs.CreateTextFile("S:\froyo\ics\sUser.csv", True)
For r = 1 To Range("A65536").End(xlUp).Row
    s = ""
    c = 1
    While Not IsEmpty(Cells(r, c))
        s = s & Cells(r, c) & ","
        c = c + 1
    Wend
    a.writeline s 'write line
Next r

结束子

【参考方案1】：

s 用户变量应该连接到字符串中，否则，它将成为字符串的一部分而不是变量：

Set a = fs.CreateTextFile("S:\froyo\ics\" & sUser &".csv", True)

【讨论】：

太棒了。非常感谢朋友。

另外，我不确定这个，但我更喜欢引用单元格中的值而不是整个对象，所以使用 cells(r,c).value 而不是单元格，但它看起来它应该可以工作。