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

我想从excel文件中导出数据到保存在文件夹S：\ froyo \ ics中的csv中。 我想在我的电脑configuration文件名称后命名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 

结束小组

Answer 1

s用户variables应该连接到string，否则，它将其作为string的一部分而不是variables：

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