Question

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

Sub 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

End Sub

Answer 1

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

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

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

1 个答案: