導出數據到CSV和後計算機的配置文件名稱

我想從我的Excel來exportdata文件到保存在文件夾中S上CSV重命名：\升級Froyo \集成電路。我想在我的電腦配置文件名稱後命名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

結束子

來源

2013-07-24 user2571551

所述的用戶變量應該被級聯到串，否則，它需要它是字符串的一部分，而不是變量：

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

來源

2013-07-24 05:39:06 RowanC

輝煌。非常感謝你的配偶。 – user2571551

另外，我不確定這個，但我更喜歡引用單元格中的值而不是整個對象，所以使用單元格（r，c）.value而不是單元格，但它看起來應該可以工作。 – RowanC

導出數據到CSV和後計算機的配置文件名稱

回答

相關問題